注册 登录
编程论坛 → Delphi论坛

[求助][求助][求助]添加记录到数据库的代码

mzxrh320 发布于 2006-03-24 23:31， 538 次点击
CheckUserForm.ADOQuery1.SQL.Clear;
CheckUserForm.ADOQuery1.SQL.Add('insert into card values('+Edit1.Text+','''+Edit3.Text+''','''+Edit2.Text+''','''+Edit4.Text+''','''+Edit5.Text+''','''+Main.UserName+''',#'+FormatDateTime('yyyy-mm-dd',Now)+'#)'');
CheckUserForm.ADOQuery1.ExecSQL;

说明：DELPHI7.0+SQL2000

[此贴子已经被作者于2006-3-24 23:33:30编辑过]

1 回复
#2
yang399212006-03-25 08:14
用delphi 往sql數據庫添加紀錄可以用這種形勢的：
dmc.cds1.Append;
dmc.cds1.FieldByName('進貨日期').Value:=DateTimePicker1.Date;
dmc.cds1.FieldByName('供應商').Value:=edit2.Text;
dmc.cds1.FieldByName('物品名稱').Value:=edit3.Text;
dmc.cds1.FieldByName('規格').Value:=edit4.Text;
dmc.cds1.FieldByName('數量').Value:=edit5.Text;
dmc.cds1.FieldByName('單位').Value:=edit6.Text;
dmc.cds1.FieldByName('申請人').Value:=edit7.Text;
dmc.cds1.FieldByName('訂單號').Value:=edit8.Text;
dmc.cds1.FieldByName('驗收單號').Value:=edit9.Text;
dmc.cds1.FieldByName('領料單號').Value:=edit10.Text;
dmc.cds1.FieldByName('案號').Value:=edit11.Text;
dmc.cds1.FieldByName('庫存量').Value:=edit12.Text;
dmc.cds1.FieldByName('是否對帳').Value:=edit13.Text;
dmc.cds1.FieldByName('物料編號').Value:=edit14.Text;
dmc.cds1.Post;
用append命令打開數據集，添加完后再用post關閉數據集
漢字部分為字段名，等號後面的就是要添加的内容
1
©2025, BC-CN.NET
电脑版