表(ABCD)结构
编号(字符型) 物品(字符型)数量(数字型) 日期(日期时间型)输入的数据:EDIT1(编号) EDIT2(物品) EDIT3(数量)现在怎样把输入的数据用SQL语句插进表ABCD里?(我是用ADOQUERY连接数据库的)
编号(字符型) 物品(字符型)数量(数字型) 日期(日期时间型)输入的数据:EDIT1(编号) EDIT2(物品) EDIT3(数量)现在怎样把输入的数据用SQL语句插进表ABCD里?(我是用ADOQUERY连接数据库的)
begin
close;
sql.clear;
sql.add('insert into abcd (编号,物品,数量) values('''','''','''')');
execsql;
end;
'insert into abcd (编号,物品,数量) values(edit1.text,edit2.text,text);
如果该表右Primary key 如"编号"则要判断
edit1.text<>''
begin
close;
sql.clear;
sql.add('insert into abcd (编号,物品,数量) values(edit1.text,edit2.text,edit3.text)');
execsql;
end;
如果是批次更新请在 post或insert post后使用updatebatch
如果没有使用批次更新则post即可
如
insert()
fieldbyname('编号').value:=edit1.text
post()
updatebatch
begin
Close;
SQL.Clear;
SQL.Add('insert into abcd (编号,物品,数量)');
SQL.Add('values('''+Edit1.Text+''','''+Edit2.Text+''','''
+Edit3.Text+''')');
ExecSQL;
end;
with ADPQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('insert into abcd (编号,物品,数量,日期)');
SQL.Add('values('''+Edit1.Text+''','''+Edit2.Text+''','''
+Edit3.Text+''','''+DateToStr(Date)+''')');
ExecSQL;
end;
begin
Close;
SQL.Clear;
SQL.Add('insert into abcd (编号,物品,数量,日期)');
SQL.Add('values('''+Edit1.Text+''','''+Edit2.Text+''','''
+Edit3.Text+''',:pDate)');
Paramters.ParamByName('pDate').Value:=FormatDateTime('yyyy-mm-dd',StrToDate(Edit4.Text));
ExecSQL;
end;
插入日期就是这样撒
SQL.Add('insert into abcd (编号,物品,数量,日期)');
SQL.Add('values('''+Edit1.Text+''','''+Edit2.Text+''','''
+Edit3.Text+''',:pDate)');
Parameters.ParamByName('pDate').Value:=FormatDateTime('yyyy-mm-dd',StrToDate(Edit4.Text));