Question

delphi向数据库中插入数据

sql.clear;
sql.add('insert into Home_Table(楼房号,楼层,开始房间,结束房间,房间价格,每件人数,居住性别,状态,备注)');
sql.add('values ('+ QuotedStr(combobox1.text)+ ','+ QuotedStr(combobox2.text)+ ','+ QuotedStr(combobox3.text)+ ','+ QuotedStr(combobox4.text));
sql.add(''''+edit1.text+''','''+edit2.text+''','+ QuotedStr(combobox5.text));
sql.add(''+QuotedStr(combobox6.text)+','+ QuotedStr(memo1.text));
execsql;
这段代码运行后,输入数据时提示edit1附近有错误,这个该怎么该

Answer 1

可以看出这条sql语句有错误，以下几条个人修改意见如下
sql.add(','''+edit1.text+''','''+edit2.text+''','+ QuotedStr(combobox5.text));
sql.add(','+QuotedStr(combobox6.text)+','+ QuotedStr(memo1.text)+')');

追问

还是不对，编译通过了，但是输入数据时提示

时常出现这个问题.

追答

试试类似这种形式吧，那样拼凑sql很容易出错。

sql.add('insert into Home_Table(楼房号,楼层,开始房间,结束房间,房间价格,每件人数,居住性别,状态,备注) values(:楼房号,:楼层,:开始:房间,:结束房间,:房间价格,:每件人数,:居住性别,:状态,:备注)');
Parameters.ParamByName('楼房号').Value:=QuotedStr(combobox1.text);
Parameters.ParamByName('楼层').Value:=QuotedStr(combobox2.text);
Parameters.ParamByName('开始房间').Value:=QuotedStr(combobox3.text);
Parameters.ParamByName('结束房间').Value:=QuotedStr(combobox4.text);
Parameters.ParamByName('房间价格').Value:=edit1.text;
Parameters.ParamByName('每件人数').Value:=edit2.text;
Parameters.ParamByName('居住性别').Value:=QuotedStr(combobox5.text);
Parameters.ParamByName('状态').Value:=QuotedStr(combobox6.text);
Parameters.ParamByName('备注').Value:=QuotedStr(memo1.text);
Prepared;
execsql;