麻烦检查一下错误,十分感谢!

[qzmp]

procedure TForm2.Button8Click(Sender: TObject);
var
bname:string;
begin
if table1.RecordCount>0 then
begin
table1.First;
while not table1.eof do
begin
bname:=table1.fieldbyname('code').asstring+table1.fieldbyname('name').asstring;
query1.databasename:='dd';
query1.Close;
query1.SQL.clear;
query1.sql.Add('select * from sysobjects where name=:q1');
query1.ParamByName('q1').AsString:=bname;
query1.execsql;
if query1.isempty then
begin
query1.Close;
query1.sql.Clear;
query1.sql.Add('create table :q2 ([rq] [INT] NOT NULL)');
query1.ParamByName('q2').asstring:=bname;
query1.Execsql;
table1.moveby(1);
end
else
application.MessageBox('资料已经存在!','提示窗口',mb_iconinformation+mb_ok);
table1.moveby(1);
end;
table1.first;
end;
end;

[anh]

outer2000(天外流星) 已经给你答案了。

[xuejinlong]

procedure TForm2.Button8Click(Sender: TObject);
var
bname:string;
begin
if table1.RecordCount>0 then
begin
table1.First;
while not table1.eof do
begin
bname:=table1.fieldbyname('code').asstring+table1.fieldbyname('name').asstring;
query1.databasename:='dd';
query1.Close;
query1.SQL.clear;
query1.sql.Add('select * from sysobjects where name=:q1');
query1.ParamByName('q1').AsString:=bname;


// query1.execsql; 错误
query1.open;


if query1.isempty then
begin
query1.Close;
query1.sql.Clear;
query1.sql.Add('create table :q2 ([rq] [INT] NOT NULL)');
query1.ParamByName('q2').asstring:=bname;
query1.Execsql;
table1.moveby(1);
end
else
application.MessageBox('资料已经存在!','提示窗口',mb_iconinformation+mb_ok);
table1.moveby(1);
end;
table1.first;
end;
end;

[weitao999]

query1.execsql;一行错误。
改为：query1.OPen;

[zhang21cnboy]

我真的不会！

[outer2000]

query1.execsql;一行错误。
改为：query1.OPen;

[seatu]

query1.execsql 改为query1.OPen
query1.execsql 只执行Sql，不返回记录集

[vitamin_ok]

Query1.Parameters.ParamByName('q2').Value := bname;

Query1.open 这样才能返回数据集。
Query1.ExecSQL 只是执行sql语句，不返回数据集的

[delphiyesgood]

query.open 试试

[qzmp]

改过来了还是不行提示“@p1”附近有语法错误，这是怎么回事？

[jeff]

哪里有错误？@p1在哪里？是哪一行？