如何在一次插入多条记录 用不着代码,你还是将dbgrid指向一个临时表吧将临时表的纪录循环插入你的主表! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 将dataset/table的curtype属性设为ctKeyset,locktype属性设为ltBatchOptimistic 。在提交的按钮中加入如下代码:dataset/table.UpdateBatch();即可取消用:CancelBatch() 明白了吗? 用缓冲.bde中:将table,query的cachedupdates:=true;在提交的按钮中加入:dataset.applyupdates; dataset.commitupdates; //清除缓冲取消:dataset.cancelupdates; 如果是PARADOX数据库无法一次插入多条记录.SQL可以 用clientdatasetapplyupdate(0)^_^ insert into 目标表 select * from 源表 where ... 我想在grid中先输入多条记录,然后一次提交(用按钮),请详细一点,最好有代码,我可以另外加分 代码如下:procedure TForm1.Button1Click(Sender: TObject);begin DbGrid1.ReadOnly:=False; Query1.Append; end;procedure TForm1.Button3Click(Sender: TObject);begin Query1.Close; Query1.Open; Dbgrid1.ReadOnly:=True;end;procedure TForm1.Button2Click(Sender: TObject);begin Query1.CancelUpdates; //取消修改 DbGrid1.ReadOnly:=False;end;procedure TForm1.Button4Click(Sender: TObject);begin Query1.ApplyUpdates; Query1.CommitUpdates;//将数据由缓存写如数据库end;procedure TForm1.Query1UpdateRecord(DataSet: TDataSet; UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);begin Try UpdateSql1.SetParams(ukInsert); UpdateSql1.ExecSQL(ukInsert); UpdateAction:=UaApplied; except Exit; end;end; 这个问题断断续续搞一半年了。还没有搞掂。。。 如何禁止TEdit的剪切、复制、粘贴功能 一个类的公共变量问题 API函数在C++里有,在Delphi就没有? DisplayRect(drLabel)的问题 一个设置如何登陆的问题???? rave问题,100分求救!!! 关于XE里的ClientDataSet.XMLData中文乱码问题 在下数学很不OK,我能成为高手吗? mp3 sql语句,难呀 请教各位,哪里有delphi6的格式化工具?
dataset/table.UpdateBatch();即可
取消用:CancelBatch() 明白了吗?
bde中:将table,query的cachedupdates:=true;
在提交的按钮中加入:dataset.applyupdates;
dataset.commitupdates; //清除缓冲
取消:dataset.cancelupdates;
applyupdate(0)
^_^
procedure TForm1.Button1Click(Sender: TObject);
begin
DbGrid1.ReadOnly:=False;
Query1.Append;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
Query1.Close;
Query1.Open;
Dbgrid1.ReadOnly:=True;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
Query1.CancelUpdates; //取消修改
DbGrid1.ReadOnly:=False;
end;procedure TForm1.Button4Click(Sender: TObject);
begin
Query1.ApplyUpdates;
Query1.CommitUpdates;//将数据由缓存写如数据库end;procedure TForm1.Query1UpdateRecord(DataSet: TDataSet;
UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);
begin
Try
UpdateSql1.SetParams(ukInsert);
UpdateSql1.ExecSQL(ukInsert);
UpdateAction:=UaApplied;
except
Exit;
end;
end;