Question

delphi中插入语句太长怎么办啊 知道的人亲请尽快回答

sql.Add('insert into 人事表 values (:edit1.Text,:edit2.Text,:combobox8.Text,:combobox1.Text,:strtodate(maskedit3.Text),:combobox7.Text,:combobox9.Text,:combobox2.Text,:edit6.Text,:edit7.Text,:edit8.Text,:edit13.Text,:maskedit4.Text,:edit9.Text,
:edit5.Text,:edit10.Text,:edit12.Text,:maskedit5.Text,:combobox3.Text,:i;:combobox4.Text,:combobox5.Text,:combobox6.Text,:strtodate(maskedit1.Text),:edit16.Text,:strtodate(maskedit2.Text),:memo1.Text,:image1.Picture)');

Answer 1

var
str1:String;
begin
str1:='insert into 人事表 values (:edit1.Text,:edit2.Text,:combobox8.Text,:combobox1.Text,:strtodate(maskedit3.Text),:combobox7.Text,:combobox9.Text,:combobox2.Text,:edit6.Text,:edit7.Text,:edit8.Text,:edit13.Text,:maskedit4.Text,';
str1:=str1+':edit9.Text,:edit5.Text,:edit10.Text,:edit12.Text,:maskedit5.Text,:combobox3.Text,:i;:combobox4.Text,:combobox5.Text,:combobox6.Text,:strtodate(maskedit1.Text),:edit16.Text,:strtodate(maskedit2.Text),:memo1.Text,:image1.Picture)';

sql.Add(str1);

追问

为什么我用你的答案之后会出现下图的情况呢

如果用ADOQYygxx.ParamCheck:=false;就会提示语法错误啊

追答

我只是按照你的写法 分段而已
具体里面的语法错误我是没看

追问

我是一直都觉得挺奇怪啊，我都卡在这好久了，就是不知道哪里错了

追答

很简单的事情

如果你不用参数 那就是
str1:='insert into 人事表 (字段,字段2.。。。。) values ('''+edit1.Text+''','''+edit2.Text+'''+............

如果你用参数模式
str1:='insert into 人事表 (字段,字段2.。。。。) values (:aaa,:bbb,......

adoquery1.sql.text:=str1;
adoquery1.Parameters.parameterbynaem('aaa').Value := 'XXX';

adoquery1.Parameters.parameterbynaem('bbb').Value := 'yyy';

而你搞错了 2个混在一起了

追问

当我单单用参数时也会出现上面的问题啊，所以我才想换个方法啊

Answer 2

断开，用‘+’连接。
或者用format('',[])来写。
建议sql语句用format来写，这样思路会更清晰些。

Answer 3

还是使用变量吧，而且你的语法也有错误，肯定少了'这个符号

Answer 4

那个教程上这么教的啊，太扯淡了

Answer 5

将一个语句分割为多行语句，增加多个sql.add