高校问答姜神武到底是什么:我用delphi的ADO连access，插入语句应该怎么写？
来源：百度文库 编辑：高校问答 时间：2024/04/30 00:36:47
为什么这样写不对：
qryCustomer.Close;
qryCustomer.SQL.Clear;
strsql:='insert into customer(companyname,address,name,zhicheng,tele,fax,mobile,email,memo,id)'
+' values(:0,:1,:2,:3,:4,:5,:6,:7,:8,:9)';
qryCustomer.SQL.Add(strsql);
qryCustomer.Parameters[0].Value:=trim(edtcustomer.text);
qryCustomer.Parameters[1].Value:=trim(edtaddress.text);
qryCustomer.Parameters[2].Value:=trim(edtname.Text);
qryCustomer.Parameters[3].Value:=trim(edtzhi.text);
qryCustomer.Parameters[4].Value:=trim(edttele.text);
qryCustomer.Parameters[5].Value:=trim(edtfax.Text);
qryCustomer.Parameters[6].Value:=trim(edtmobile.Text);
qryCustomer.Parameters[7].Value:=trim(edtemail.Text);
qryCustomer.Parameters[8].Value:=trim(edtmemo.Text);
qryCustomer.Parameters[9].Value:=intNo;
qryCustomer.ExecSQL;
qryCustomer.Close;
qryCustomer.SQL.Clear;
strsql:='insert into customer(companyname,address,name,zhicheng,tele,fax,mobile,email,memo,id)'
+' values(:0,:1,:2,:3,:4,:5,:6,:7,:8,:9)';
qryCustomer.SQL.Add(strsql);
qryCustomer.Parameters[0].Value:=trim(edtcustomer.text);
qryCustomer.Parameters[1].Value:=trim(edtaddress.text);
qryCustomer.Parameters[2].Value:=trim(edtname.Text);
qryCustomer.Parameters[3].Value:=trim(edtzhi.text);
qryCustomer.Parameters[4].Value:=trim(edttele.text);
qryCustomer.Parameters[5].Value:=trim(edtfax.Text);
qryCustomer.Parameters[6].Value:=trim(edtmobile.Text);
qryCustomer.Parameters[7].Value:=trim(edtemail.Text);
qryCustomer.Parameters[8].Value:=trim(edtmemo.Text);
qryCustomer.Parameters[9].Value:=intNo;
qryCustomer.ExecSQL;
用adoquery比较方便
adoquery.sql.add(...);
adoquery.open;
adoquery.insert;
adoquery.fieldbyname('field') := Edit1.text;
...
...
...
...
...
adoquery.post;
不用这么烦啊，同志，你用ADOTABLE连接，
添加
ADOTABLE1.insert
保存
ADOTABLE.post
删除
ADOTABLE. delete
试试看,肯定比你那个快啊.
控件要用DBGRID或DBEDIT