这段SQL哪里错了？(50分)

D

Delphi 6.0

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-11

• #1

procedure TForm5.Button3Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('select * from 表1.dbf where 运编号="33333"');
adoquery1.open;
end;
end;
上面的SQL语句运行通过没问题。
下面的加了变量后就不运行报错，请问下面的SQL语句哪里错了
procedure TForm5.Button3Click(Sender: TObject);
var
a:string;
begin
a:=edit1.text;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('select * from 表1.dbf where 运编号=:a');
adoquery1.open;
end;

end.

 

M

mlzhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-11

• #2

procedure TForm5.Button3Click(Sender: TObject);
var
a:string;
begin
a:=edit1.text;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('select * from 表1.dbf where 运编号=:a');
adoquery1.parambyname('a').value := '33333'; //加上这句
adoquery1.open;
end;

 

S

sonie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-11

• #3

mlzhou说了，加了变量之后，再open前，要给变量赋值

 

I

Idilent

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-11

• #4

因为你没有给a赋值，要使用adoquery1.Params[0].AsString= edit1.text

 

C

chenzheng770101

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-11

• #5

var
a:string;
begin
a:=edit1.text;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('select * from 表1.dbf where 运编号=:a');
adoquery1.params[0].asstring := '33333'; //加上这句
adoquery1.open;

 

T

tan_jian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-11

• #6

adoquery1.SQL.add('select * from 表1.dbf where 运编号="33333"');
应该为
adoquery1.SQL.add('select * from 表1.dbf where 运编号=''33333''');
是两个单引号,不是双引号,老兄!!!!拜托!!

你SQL的参数:a和定义的v avar a毫无关系
adoquery1.params.paramByName('a').asstring := '33333';

 

Z

zryzry

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-11

• #7

同意tan_jian 这叫SQL凑语句

 

A

aijun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-11

• #8

adoquery1.SQL.add('select * from 表1.dbf where 运编号='+''''+edit1.text+''''');
或
adoquery1.params.paramByName('a').asstring := edit1.text;

 

雪

雪中漫步

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-11

• #9

同意楼上的