我写了一个类(无窗体),里面有一个TADOQuery的对象Sql,其中有一个
Function DataOper(Condition:String)
begin
with ADOQuery1 do
begin
Sql.SQL.Clear;
Sql.sql.Add(Condtion);
Sql.ExecSQL;
end;
end;
注:Condition的值是从前台传入的,Access数据库username表只有两个字段User_Name,PassWord
EdtUserNameA.Text:='li';
EdtUserNameA.Text:='lp';
如果:Condition:='Insert into username values("'+ EdtUserNameA.Text +'","'+ MEdtKeyA.Text +'")';
-----------------------可通过
如果:Condition:='Insert into username(User_Name) values("'+ EdtUserNameA.Text +'")';
-----------------------可通过
如果:Condition:='Insert into username(User_Name,PassWord) values("'+ EdtUserNameA.Text +'","'+ MEdtKeyA.Text +'")';
-----------------------不可通过,说是Insert语法错误
为什么?????????????????????????????
请各位大哥告诉小弟,昨天我已经快疯了,我用的是Delphi7,还有请给出Delete,Update的语句。(千万不要让我查帮助,我已经找了很久了)。
拜托,千万给我可执行的代码。我求你了。可通过一定给分。请区分"和'.
Function DataOper(Condition:String)
begin
with ADOQuery1 do
begin
Sql.SQL.Clear;
Sql.sql.Add(Condtion);
Sql.ExecSQL;
end;
end;
注:Condition的值是从前台传入的,Access数据库username表只有两个字段User_Name,PassWord
EdtUserNameA.Text:='li';
EdtUserNameA.Text:='lp';
如果:Condition:='Insert into username values("'+ EdtUserNameA.Text +'","'+ MEdtKeyA.Text +'")';
-----------------------可通过
如果:Condition:='Insert into username(User_Name) values("'+ EdtUserNameA.Text +'")';
-----------------------可通过
如果:Condition:='Insert into username(User_Name,PassWord) values("'+ EdtUserNameA.Text +'","'+ MEdtKeyA.Text +'")';
-----------------------不可通过,说是Insert语法错误
为什么?????????????????????????????
请各位大哥告诉小弟,昨天我已经快疯了,我用的是Delphi7,还有请给出Delete,Update的语句。(千万不要让我查帮助,我已经找了很久了)。
拜托,千万给我可执行的代码。我求你了。可通过一定给分。请区分"和'.
解决方案 »
- 关于delphi处理字符的一个问题?
- QQ 大家来找茬 辅助工具
- 请大家指教下这个数据结构怎么翻译成DELPHI的
- 同时操作,主程序和线程代码 , 在线等~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- 300分求一实例,在线等。请大家帮帮忙。
- 请问:如何用代码实现sql数据库或其中某一张表的备份和恢复?
- 请问在delphi中如何连接oralce数据库?(在线)
- 倾家荡产,求备份和恢复ACCESS的源码
- 请问一下按钮click事件用鼠标激活和用回车键激活有什么区别啊?
- 添加数据出错
- 为什么在quickrep中预览正确的,而打印第一页时却只打了一个员工的一个月的考勤(一张页面是2个员工的考勤)?
- 高分请教!欢迎各位大侠前来相助!在线!
. ~~~~~~~~~~~
EdtUserNameA.Text +'","'+ MEdtKeyA.Text +'")';
类似No, ID, Password 这些都是很多数据库的关键字,你要回避,如果用最好加上前缀,比如 f_password,
Function DataOper(Condition:String) : Boolean ;
begin
with ADOQuery1 do
begin
Close ;
Sql.Text := Condition ;
Try
ExecSql ;
Except
Result := False ;
End ;
Result := True ;
end;
end;Condition := 'insert into username(User_Name,Password) Values(''' + EdtUserNameA.Text + ''',''' + EdtKeyA.Text + ''')' ;应该没错