向表追加记录,以前用的是SQl的Insert,现在改用Append,如何写?这是以前的Unit3.DataModule3.ClientDataSet5.close;
Unit3.DataModule3.ClientDataSet5.CommandText:='insert into Keywords(KeyWord,Key_URl,Key_user) values('''+Trim(Edit1.Text)+''','''+Trim(Edit2.Text)+''','''+Unit5.UserName+''')';//
Unit3.DataModule3.ClientDataSet5.Execute;
Unit3.DataModule3.ClientDataSet5.CommandText:='insert into Keywords(KeyWord,Key_URl,Key_user) values('''+Trim(Edit1.Text)+''','''+Trim(Edit2.Text)+''','''+Unit5.UserName+''')';//
Unit3.DataModule3.ClientDataSet5.Execute;
帮助文档的内容
with Unit3.DataModule3.ClientDataSet5 do
begin
close;
sql.clear;
sql.text := 'select * from Keywords ';
uptable := 'Keywords';
append;
fieldByName('Key_URl').asString := Trim(Edit1.Text);
fieldByName('KeyWord').asString := Trim(Edit2.Text);
fieldByName('Key_user').asString := Unit5.UserName;
applyupdates(0);
end;如果有数据集的话,可以在外围价格循环
Unit3.DataModule3.ClientDataSet5.CommandText:='select * from Keywords where 1=10 ';
Unit3.DataModule3.ClientDataSet5.open;Unit3.DataModule3.ClientDataSet5.Append;
//给相关字段赋值后,提交
Unit3.DataModule3.ClientDataSet5.Post;
Unit3.DataModule3.ClientDataSet5.ApplyUpdates(-1);
'select * from Keywords';2、你的dbgrid连接的数据集就是当前Append的数据集;