就是调用query:
form1.query1.SQL.Clear();
form1.query1.SQL.Add('select * from '+tb+'where name like'''+sid+'');
form1.query1.Close;
form1.query1.Open;
form1.query1.EnableControls();在form1.query1.Close那里老出现这样的错误:
Project xxxx raised exception class EDBEngineError with message 'Missing right quote'.Process stopped. Use Step or Run to continue.
form1.query1.SQL.Clear();
form1.query1.SQL.Add('select * from '+tb+'where name like'''+sid+'');
form1.query1.Close;
form1.query1.Open;
form1.query1.EnableControls();在form1.query1.Close那里老出现这样的错误:
Project xxxx raised exception class EDBEngineError with message 'Missing right quote'.Process stopped. Use Step or Run to continue.
解决方案 »
- 关于delphi数据添加的问题
- Delphi中ADO连接MS SQL Servel 2000 数据库的问题
- 急!!!SQL语言中时间的比较
- 请问.BPL文件是怎么编译生成的?一般应该怎么调用?……反正一些相关的东西,我都不知道,知道的兄弟告诉一声,谢谢!
- Excel导库问题?你也一定会遇到的。高分送
- 非常简单的问题!!!!!!!!!!!!!!!!!!!!
- 关于Dream Outbar控件的问题???一定给分
- [Warning] Unitcopy.pas(7): Unit 'FileCtrl' is specific to a platform
- 如何关闭excel保存提示框?在excel里实现也可以!
- 怎样使dbgrid的某一列(它不对应数据库中的某一域)全部显示0。解决后一定给分!
- parambyname错在哪?
- 字段类型为数值型时,怎么判断其为空
form1.query1.SQL.Clear();
form1.query1.SQL.Add('select * from '+tb+'where name like'''+sid+'');
form1.query1.Open;
form1.query1.EnableControls();
把close 写在前面试下
begin
close;
sql.clear;
sql.add('select * from '+tb+'where name like '''+sid+'');
open;
end
另,你where前,like后是不是少空格
if form1.Query1.Active then
form1.Query1.Close;
form1.query1.SQL.Clear();
form1.query1.SQL.Add('select * from '+tb+'where name like '''+sid+'');
form1.query1.Open;
form1.query1.EnableControls;
先将你的sql语句放到一个字符串变量里,
s:='select * from '+tb+'where name like'''+sid+''
然后
adoquery1.sql.add(s);
遇到错误先通过showmessage(s)看sql语句是不是有问题,是否可以拿到数据库执行,然后再逐步排查,解决,知道了?
这句话少了右引号,应该写成
form1.query1.SQL.Add('select * from '+tb+'where name like'''+sid+'''');
更准确的写法应该是
form1.query1.SQL.Add('select * from '+tb+'where name like''%'+sid+'%''');
like和''之间应该有空格
begin
Close ;
SQL.Clear ;
SQL.Add('select Id as 编号 from 表1 where Name='+''''+'75'+'''') ;
Open ;
end;
// form1.Query1.Close;
// form1.query1.SQL.Clear();
form1.query1.SQL.text :='select * from '+tb+' where name like '+#39+sid+#39;
form1.query1.Open;
form1.query1.EnableControls;