J
jdlp
Unregistered / Unconfirmed
GUEST, unregistred user!
我的这个数据库有61个字段,是不是字段太多了?
在执行到adoquery1.ExecSQL;时总是提示“INSERT INTO 语句有语法错误”,请高手指点:
procedure TForm1.Button1Click(Sender: TObject);
var
sql:widestring;
begin
sql:='insert into gongyi1 values('+booltostr(yw10.Checked)+','+booltostr(yw11.Checked)+
','+booltostr(yw12.Checked)+','+booltostr(fhx40.Checked)+','+booltostr(fhx41.Checked)+
','+booltostr(fhx44.Checked)+','+booltostr(fhx45.Checked)+','+booltostr(fhx50.Checked)+
','+booltostr(fhx51.Checked)+','+booltostr(fhx52.Checked)+','+booltostr(fhx53.Checked)+
','+booltostr(fhx56.Checked)+','+booltostr(fhx61.Checked)+','+booltostr(fhx112.Checked)+
','+booltostr(fhx113.Checked)+','+booltostr(fhx115.Checked)+','+booltostr(fhx116.Checked)+
','+booltostr(fhx117.Checked)+','+booltostr(fhx121.Checked)+','+booltostr(fhx122.Checked)+','+
booltostr(fhx123.Checked)+','+booltostr(fhx153.Checked)+','+booltostr(fhx156.Checked)+','+
booltostr(fhx157.Checked)+','+booltostr(fhx162.Checked)+','+booltostr(bzs180.Checked)+','+
booltostr(bzs181.Checked)+','+combobox1.Text+','+combobox2.Text+','+combobox3.Text+','
+combobox4.Text+','+combobox5.Text+','+booltostr(zt300.Checked)+','+booltostr(zt301.Checked)+','+
booltostr(zt302.Checked)+','+booltostr(zt303.Checked)+','+booltostr(zt304.Checked)+','+
booltostr(zt305.Checked)+','+booltostr(zt306.Checked)+','+booltostr(zt307.Checked)+','+
booltostr(zd320.Checked)+','+booltostr(g330.Checked)+','+booltostr(g331.Checked)+','+booltostr(g332.Checked)+
','+booltostr(g333.Checked)+','+booltostr(g334.Checked)+','+booltostr(g335.Checked)+','+booltostr(g336.Checked)
+','+booltostr(g337.Checked)+','+booltostr(jz430.Checked)+edit1.Text+','+edit2.Text+','+edit3.Text+','+
edit4.Text+','+edit10.Text+','+edit5.Text+','+edit6.Text+','+edit7.Text+','+edit8.Text+','+edit9.Text+')';
//showmessage(sql);
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(sql);
adoquery1.ExecSQL;
end;
在执行到adoquery1.ExecSQL;时总是提示“INSERT INTO 语句有语法错误”,请高手指点:
procedure TForm1.Button1Click(Sender: TObject);
var
sql:widestring;
begin
sql:='insert into gongyi1 values('+booltostr(yw10.Checked)+','+booltostr(yw11.Checked)+
','+booltostr(yw12.Checked)+','+booltostr(fhx40.Checked)+','+booltostr(fhx41.Checked)+
','+booltostr(fhx44.Checked)+','+booltostr(fhx45.Checked)+','+booltostr(fhx50.Checked)+
','+booltostr(fhx51.Checked)+','+booltostr(fhx52.Checked)+','+booltostr(fhx53.Checked)+
','+booltostr(fhx56.Checked)+','+booltostr(fhx61.Checked)+','+booltostr(fhx112.Checked)+
','+booltostr(fhx113.Checked)+','+booltostr(fhx115.Checked)+','+booltostr(fhx116.Checked)+
','+booltostr(fhx117.Checked)+','+booltostr(fhx121.Checked)+','+booltostr(fhx122.Checked)+','+
booltostr(fhx123.Checked)+','+booltostr(fhx153.Checked)+','+booltostr(fhx156.Checked)+','+
booltostr(fhx157.Checked)+','+booltostr(fhx162.Checked)+','+booltostr(bzs180.Checked)+','+
booltostr(bzs181.Checked)+','+combobox1.Text+','+combobox2.Text+','+combobox3.Text+','
+combobox4.Text+','+combobox5.Text+','+booltostr(zt300.Checked)+','+booltostr(zt301.Checked)+','+
booltostr(zt302.Checked)+','+booltostr(zt303.Checked)+','+booltostr(zt304.Checked)+','+
booltostr(zt305.Checked)+','+booltostr(zt306.Checked)+','+booltostr(zt307.Checked)+','+
booltostr(zd320.Checked)+','+booltostr(g330.Checked)+','+booltostr(g331.Checked)+','+booltostr(g332.Checked)+
','+booltostr(g333.Checked)+','+booltostr(g334.Checked)+','+booltostr(g335.Checked)+','+booltostr(g336.Checked)
+','+booltostr(g337.Checked)+','+booltostr(jz430.Checked)+edit1.Text+','+edit2.Text+','+edit3.Text+','+
edit4.Text+','+edit10.Text+','+edit5.Text+','+edit6.Text+','+edit7.Text+','+edit8.Text+','+edit9.Text+')';
//showmessage(sql);
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(sql);
adoquery1.ExecSQL;
end;