UC知道delphi insert into 问题
来源：百度知道 编辑：UC知道 时间：2024/06/04 10:44:20
我最近在学习DELphi语言，遇到这个问题两天了，郁闷的。。部分代码如下：
begin
close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from admin where user='''
+trim(edit1.Text)+'''');
ADOQuery1.Open;
if ADOQuery1.RecordCount>0 then
begin
MessageDlg('错误!',mtConfirmation,[MBOK],0);
edit1.Text:='';
edit1.SetFocus;
exit;
end;
Close;
SQL.Clear;
SQL.add('insert into admin (user,password) values(:a,:b)');
parameters.parambyname('a').value:=Edit1.text;
parameters.parambyname('b').value:=Edit2.text;
ExecSQL;
以上的代码运行时提示我“insert into“出错，单步运行时显示在”EXecSQL”处出错。请各位大虾帮我看看到底是哪边有问题，谢谢了~
谢谢小城太阳 ，我修改了字段名，但问题依旧，提示我insert into语法错误，我用的是access数据库连的，是不是和这个有关系啊~~还有，有没有可能是要在ADOQuery这个控件做相关设置啊
begin
close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from admin where user='''
+trim(edit1.Text)+'''');
ADOQuery1.Open;
if ADOQuery1.RecordCount>0 then
begin
MessageDlg('错误!',mtConfirmation,[MBOK],0);
edit1.Text:='';
edit1.SetFocus;
exit;
end;
Close;
SQL.Clear;
SQL.add('insert into admin (user,password) values(:a,:b)');
parameters.parambyname('a').value:=Edit1.text;
parameters.parambyname('b').value:=Edit2.text;
ExecSQL;
以上的代码运行时提示我“insert into“出错，单步运行时显示在”EXecSQL”处出错。请各位大虾帮我看看到底是哪边有问题，谢谢了~
谢谢小城太阳 ，我修改了字段名，但问题依旧，提示我insert into语法错误，我用的是access数据库连的，是不是和这个有关系啊~~还有，有没有可能是要在ADOQuery这个控件做相关设置啊
这个问题是由于你admin表里的user字段为SQL的保留字,你只要将字段user改一下名字就可以了,如myuser
你可以试一下
祝你好运!
ADOQuery1.close;
parameters.parambyname('a').asstring:=Edit1.text;
parameters.parambyname('b').asstring:=Edit2.text;