我用delphi的ADO连access,插入语句应该怎么写?
为什么这样写不对:qryCustomer.Close;qryCustomer.SQL.Clear;strsql:='insertintocustomer(companyn...
为什么这样写不对:
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; 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询