怎样动态创建表的名字?

flying0718

这样有错误,要怎么解决呢?谢谢
procedure TForm3.Button2Click(Sender: TObject);
var
  tablename:string;
begin
    tablename:=formatdatetime('yyyymd',strtodatetime(daystr));
    with ADOquery2 do
    begin
       close;
       sql.Clear;
       sql.Add('select 书号,销售数量,销售单价 into '+tablename+'      from bookout');
       sql.Add('where 销售日期='+quotedstr(daystr));

yourapy

sql.Add('exec(select 书号,销售数量,销售单价 into '+tablename+' from bookout');
sql.Add('where 销售日期='''+quotedstr(daystr))+''')';


你的日期，我帮你加了引号，应该是需要的。

xiao8342

sql.Add('select 书号,销售数量,销售单价 into '+quotedstr(tablename)+' from bookout');
sql.Add('where 销售日期='+quotedstr(daystr));

这样才是对的

abomination

楼上的你写的就对啊！
人家那是tablename 你加引号做什么？


楼主的sql写的我没有看出什么问题，你试试在where前边加一个空格看看，我用adodataset不用adoquery


sql.Add('select 书号,销售数量,销售单价 into '+tablename+' from bookout');
sql.Add(' where 销售日期='+quotedstr(daystr));

abomination

不是我说的问题，把你的错误提示发出来看看吧

abomination

你的daystr是那里来的？全局变量？

flying0718

当用英文字母用表名的时候就不会错,当用日期时就不对了,是什么错误呢?

muchlore

ShowMessage看看实际产生的语句，看有没有错误。这么简单的问题

endman

在where前加个空格试试