请问一下为什么Adoquery没把数据存到后台的表中。(50分)

  • 主题发起人 主题发起人 weibinggui
  • 开始时间 开始时间
W

weibinggui

Unregistered / Unconfirmed
GUEST, unregistred user!
要求:点了按钮之后,将记录本身按输入的数值去复制出几条完全相同的记录。<br>代码我是这样写的:<br>procedure Tfr_SC_SCJH.N1Click(Sender: TObject);<br>var<br>i,j:integer;<br>Adoq_Temp:TAdoquery;<br>begin<br>try<br>j:=StrToint(inputbox('请输入需要增加的记录数','提示',''));<br>except<br>Application.MessageBox('只能输入数字','奇良提标',MB_OK+MB_ICONINFORMATION);<br>end;<br>I:=Adoq_dj.RecNo ;<br>Adoq_Temp:=TAdoquery.Create(self);<br>Adoq_Temp.Clone(Adoq_dj);<br>Adoq_temp.MoveBy(i);<br>for i:=1 to j-1 do<br>begin<br>Adoq_dj.Insert ;<br>Adoq_dj.FieldByName('sfdr').Value :=Adoq_Temp.FieldByName('sfdr').Value;<br>Adoq_dj.FieldByName('scrq').Value :=Adoq_Temp.FieldByName('scrq').Value; <br>Adoq_dj.Post ;<br><br>end;<br>Next;<br><br>end;<br>程序执行时,按了按钮之后,在dbgrid中看确实复制了那么多条记录,但是用select * from 去查表里,却只有原来表里的内容。请问大家这该如何改。<br>再一个问题是,要实现这样的要求,有没有更简单点的方法。初学者向您致敬。
 
为什么没人回答![:(]!
 
你这个相当于自定义数据库的字段,就是增加字段的问题.
 
你的数据库中字段'sfdr'和'scrq'是否有主键约束?<br>有主键约束就无法重复提交了
 
问题没有解决,但还是谢谢大家!
 
后退
顶部