query1.Close;
query1.SQL.Clear;
query1.SQL.Add('delete from dwdzd');
query1.ExecSQL;
query1.SQL.Clear;
query1.SQL.Add('select a.sbh,a.dwdm,a.xm,b.dwmc');
query1.SQL.Add(' from grjbxx a,dwjbxx b where a.dwdm=b.dwdm and a.dwdm=:dwdm1');
query1.Params[0].AsString:=dwdm.Text;
query1.Open;
query1.Last;
query1.First;
while not query1.Eof do
begin
query.Close;
query.SQL.Clear;
query.SQL.Add('insert into dwdzd (sbh,dwdm,dwmc,xm,zzgz,txgz,zhsr1,bnlx,cszh,ljsr,ljlx,qtsr,ickf,mzzc,qtzc,zhye) values');
query.SQL.Add(' (:sbh,:dwdm,:dwmc,:xm,:zzgz,:txgz,:zhsr1,:bnlx,:cszh,:ljsr,:ljlx,:qtsr,:ickf,:mzzc,:qtzc,:zhye)');
query.Params[0].AsString:=lwsbh;
query.Params[1].AsString:=lwdwdm;
query.Params[2].AsString:=lwdwmc;
。。
query.ExecSQL;
query1.Next;
end
怎么表里只有一条数据呢???
query1.SQL.Clear;
query1.SQL.Add('delete from dwdzd');
query1.ExecSQL;
query1.SQL.Clear;
query1.SQL.Add('select a.sbh,a.dwdm,a.xm,b.dwmc');
query1.SQL.Add(' from grjbxx a,dwjbxx b where a.dwdm=b.dwdm and a.dwdm=:dwdm1');
query1.Params[0].AsString:=dwdm.Text;
query1.Open;
query1.Last;
query1.First;
while not query1.Eof do
begin
query.Close;
query.SQL.Clear;
query.SQL.Add('insert into dwdzd (sbh,dwdm,dwmc,xm,zzgz,txgz,zhsr1,bnlx,cszh,ljsr,ljlx,qtsr,ickf,mzzc,qtzc,zhye) values');
query.SQL.Add(' (:sbh,:dwdm,:dwmc,:xm,:zzgz,:txgz,:zhsr1,:bnlx,:cszh,:ljsr,:ljlx,:qtsr,:ickf,:mzzc,:qtzc,:zhye)');
query.Params[0].AsString:=lwsbh;
query.Params[1].AsString:=lwdwdm;
query.Params[2].AsString:=lwdwmc;
。。
query.ExecSQL;
query1.Next;
end
怎么表里只有一条数据呢???
解决方案 »
- 求delphi画弧控件
- 请教fastreport的方法
- 急!!!关于键盘HOOK的问题!!
- 怎么样让datetimepicker里的日期的颜色变成红色,并且datetimepicker只读(即不能选择)?
- 请问如何获知SQL SERVER中的某个数据库或数据表是否已存在?
- 救命啊,一机器两网卡,一接INTERNET交换机,一接内网交换机,好了问题来了!
- 我应该怎么读出这写文件内容呢?
- 如何在QuickReport报表中加水印?急!急!急!在线等待...
- delphi7 dbgrideh表格中 如果字段数量值为零, 怎么把 dbgrideh单元格颜色设置为红色啊?
- delphi连接oracle数据库为什么连不了.
- 谁能把下面的VB代码转为DELPHI的?
- 状态值为什么用0或1表示
如果不确定,可以把代码放到查询分析器里执行一下,看看有多少记录。---------
你结帐率好低。
那样岂不是每次都做第一条记录?
所以插入一条咯,把query.close去掉试试