SQL语句在Delphi中的书写问题

Question

我在程序中这样写的：
  s:=Trim(Form1.Edit1.Text);
  form1.ADOQuery1.Close;
  form1.ADOQuery1.SQL.Clear;
  form1.ADOQuery1.SQL.Add('select *  from  ('''+s+''')');
  form1.ADOQuery1.Open;
但总是提示我错误，我想达到的效果是查询的表名可以动态变化，通过在edit输入表名而达到动态变化的执行查询的表名，form1.ADOQuery1.SQL.Add('select *  from  ('''+s+''')');，老是提示我错误，我应该怎样写语句呢？

Answer 1

var s,com:string;
begin
  s:=Trim(Form1.Edit1.Text);
  form1.ADOQuery1.Close;
  form1.ADOQuery1.SQL.Clear;
  com:='select * from '+s;
  form1.ADOQuery1.SQL.Add(com);
  form1.ADOQuery1.Open;
end;

Answer 2

直接这样写：
  s:=Trim(Form1.Edit1.Text);
  form1.ADOQuery1.Close;
  form1.ADOQuery1.SQL.Clear;
  form1.ADOQuery1.SQL.Add('select *  from '+s);
Showmessage(form1.ADOQuery1.SQL.text);
  form1.ADOQuery1.Open;下次这样的问题，你可以在OPEN之前，写这样的语句，看看到底问题出在哪里；
Showmessage(form1.ADOQuery1.SQL.text)，也就是把你的QUERY的SQL显示出来，然后你放到数据库中直接执行下，就知道那里多了或者少了字符。

Answer 3

form1.ADOQuery1.SQL.Add('select *  from  '+s+'''');

Answer 4

s:=Trim(Form1.Edit1.Text);
  form1.ADOQuery1.Close;
  form1.ADOQuery1.SQL.Clear;
  form1.ADOQuery1.SQL.Add('select *  from  '+Quotedstr(s)+')';
  form1.ADOQuery1.Open;
Quotedstr代表一对单引号

Answer 5

var
  sqlstr:string;
begin
  sqlstr:='select * from '+Trim(Form1.Edit1.Text);
  with adoquery1 do
  begin
    close;
    sql.Clear;
    sql.Add(sqlstr);
    open;
  end;
end;
很简单，以上就可以了!

Answer 6

总结一下SQL语句中引号(')、quotedstr()、('')、format()在SQL语句中的用法以
及SQL语句中日期格式的表示(#)、('')
在Delphi中进行字符变量连接相加时单引号用('''),又引号用('''')表示
首先定义变量
var 
AnInt:integer=123;//为了方便在此都给它们赋初值。虽然可能在引赋初值在某些情况下不对
AnIntStr:string='456';
AStr:string='abc';
AFieldName: string='字符型编号';
ATableName: string='YourTable';
ADate:Tdatetime=now;
Adoquery1:tadoquery;
1，Delphi语句
adoquery1.sql.text:=
'select 字符型编号 from YourTable where 字符型编号='abc' and 整型编号=123';
等价于
adoquery1.sql.text:=
'select '+AFieldName+' from '+ATableName+' where '+AFieldName
+'='''+AStr+''' and 整型编号='+AnIntStr;
也等价于
adoquery1.sql.text:=
'select '+AFieldName+' from '+ATableName+' where '+AFieldName
+'='+QuotedStr(AStr)+' and 整型编号='+Inttostr(AnInt);
传到数据库服务器为：
select 字符型编号 from YourTable where 字符型编号='abc' and 整型编号=1232,Delphi语句中日期表示
对于access数据库：
adoquery1.sql.text:=
'select 字符型编号 from YourTable where 日期型字段=#2003-12-01#';
等价于：
adoquery1.sql.text:=
'select 字符型编号 from YourTable where 日期型字段=#'+FormatDateTime('yyyy-MM-dd',now)+'#';
传到服务器为：
select 字符型编号 from YourTable where 日期型字段=#2003-12-01#
对于MSSQL数据库：
adoquery1.sql.text:=
'select 字符型编号 from YourTable where 日期型字段='2003-12-01'';
等价于：
adoquery1.sql.text:=
'select 字符型编号 from YourTable where 日期型字段='''+FormatDateTime('yyyy-MM-dd',now)+'''';
也等价于：
等价于：
adoquery1.sql.text:=
'select 字符型编号 from YourTable where 日期型字段='+QuotedStr(FormatDateTime('yyyy-MM-dd',now));
传到服务器为：
select 字符型编号 from YourTable where 日期型字段='2003-12-01'
日期字段还可以这样表示
Delphi语句
adoquery1.sql.text:=
'select 字符型编号 from YourTable where 日期型字段>='+QuotedStr(FormatDateTime('yyyy-MM-dd',now))
+' and 日期型字段<='+QuotedStr(FormatDateTime('yyyy-MM-dd',now+1));//明天
等价于
adoquery1.sql.text:=
'select 字符型编号 from YourTable where 日期型字段 between '+QuotedStr(FormatDateTime('yyyy-MM-dd',now))
+' and '+QuotedStr(FormatDateTime('yyyy-MM-dd',now+1)); 如果用
adoquery1.sql.add();
形式又如何操作？请用Insert语句示例
adoquery1.sql.add(' insert into '+AtableName);
adoquery1.sql.add(' ( '+AFieldName+')');
adoquery1.sql.add(' values( '+quotedstr(AStr)+')'); 
 
 楼主研究一下 大致就能明白sql中引号的使用方法

Answer 7

form1.ADOQuery1.SQL.Add('select *  from  '+s);

Answer 8

form1.ADOQuery1.SQL.Add('select *  from  '+s);

Answer 9

('''+s+''')应该直接写成'select * from '+s
这样就可以了。

Answer 10

建议LZ以后再碰到这样的情况的时候
在执行前先showmessage一下
这样会比较好

Answer 11

强烈建议，以后写带参数的sql语句的时候，最好不要直接把参数写进去，即使你已经非常娴熟，因为这样的程序非常不利于维护，不容易读。用下面的形式
procedure TForm1.Button1Click(Sender: TObject);
begin
   with ADOQuery1 do
   begin
     Close;
     SQL.Clear;
     sql.Add('Insert into RepairInfoTable(RegeditTime, Device)') ;
     sql.Add('values(:#rt,:#device)');
     Parameters.ParamByName('#rt').Value := '2006-7-15';
     Parameters.ParamByName('#device').Value := '双飞燕101';
     ExecSQL;
   end;
end;

Answer 12

上面的Quotedstr那位能不能再解释清楚些

Answer 13

1、建议使用参数的形式；
2、如果不原意使用参数形式，建议使用Format的方式。

Answer 14

s:=Trim(Form1.Edit1.Text);
  form1.ADOQuery1.Close;
  form1.ADOQuery1.SQL.Clear;
  form1.ADOQuery1.SQL.Add('select *  from' +Quotedstr(s));
  form1.ADOQuery1.Open;

Answer 15

s:=Trim(Form1.Edit1.Text);
  form1.ADOQuery1.Close;
  form1.ADOQuery1.SQL.Clear;
  form1.ADOQuery1.SQL.Add('select *  from '+s;
  form1.ADOQuery1.Open;
我认为form1.edit1.text内容加以判断

Answer 16

with adoquey1 do
  begin
    Close;
    SQL.text:='select * from trim(eidt1.text)';
    Open;
  end;

Answer 17

s:=Trim(Form1.Edit1.Text);
  form1.ADOQuery1.Close;
  form1.ADOQuery1.SQL.Clear;
  form1.ADOQuery1.SQL.Add('select *  from '+s);
  form1.ADOQuery1.Open;

Answer 18

s:=Trim(Form1.Edit1.Text);
  form1.ADOQuery1.Close;
  form1.ADOQuery1.SQL.Clear;
  form1.ADOQuery1.SQL.Add('select *  from ['+ s + ']'); //保证保留字也能通过
  form1.ADOQuery1.Open;

Answer 19

form1.ADOQuery1.SQL.Add('select *  from '+s);
就可以了