2,497
社区成员
发帖
与我相关
我的任务
分享在线等待，一个SQL语句的问题，up者有分，随时结帖
如下语句为向数据库添加一条记录（一个用户）为何出错？？
qryQuestion.Close;//添加用户
qryQuestion.SqlText := 'insert into login (name,passwd)values (:'+
QuotedStr(trim(edit1.Text))+',:'+ QuotedStr(trim(edit2.Text))+')';
qryQuestion.Open;
qryQuestion.First;
而如下的查询语句是对的：
qryQuestion.Close;//检测密码
qryQuestion.SqlText := 'Select * from login where (name = '+QuotedStr(trim(edit1.Text))+')' +
' and ( passwd ='+QuotedStr(trim(edit3.Text))+' )';
qryQuestion.Open;
qryQuestion.First;
qryQuestion.Close;//添加用户
qryQuestion.SqlText := 'insert into login (name,passwd)values (:'+
QuotedStr(trim(edit1.Text))+',:'+ QuotedStr(trim(edit2.Text))+')';
qryQuestion.Open;
qryQuestion.First;
而如下的查询语句是对的：
qryQuestion.Close;//检测密码
qryQuestion.SqlText := 'Select * from login where (name = '+QuotedStr(trim(edit1.Text))+')' +
' and ( passwd ='+QuotedStr(trim(edit3.Text))+' )';
qryQuestion.Open;
qryQuestion.First;
...全文
请发表友善的回复…
发表回复
tiexinliu 2003-08-23
- 打赏
- 举报
记住，不是open插入时用execsql
DWGZ 2003-08-23
- 打赏
- 举报
qryQuestion.Close;//添加用户
qryQuestion.SqlText := 'insert into login (name,passwd)values ('+
QuotedStr(trim(edit1.Text))+','+ QuotedStr(trim(edit2.Text))+')';
qryQuestion.ExecSQL;
qryQuestion.SqlText := 'insert into login (name,passwd)values ('+
QuotedStr(trim(edit1.Text))+','+ QuotedStr(trim(edit2.Text))+')';
qryQuestion.ExecSQL;
sharewarer 2003-08-23
- 打赏
- 举报
ok,100分奉上！
mj_hc 2003-08-23
- 打赏
- 举报
插入语句写错了
去掉符号“：”
去掉符号“：”
