有一小小改变事件里的错误请大家多指教(50分)

E

eighteenzl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-24

• #1

procedure TYGXXXGform.ComboBox1Change(Sender: TObject);
var i:integer;
a:string;
begin
if ComboBox1.text<>'' then
begin
adoquery1.Close;
adoquery1.SQL.Clear;
a:=combobox1.Text;
adoquery1.SQL.Add('select '+ComboBox1.text+' from 员工基础信息表');
ADOQuery1.Open;
if ADOQuery1.FieldCount>0 then
begin
for i:= 0 to adoquery1.FieldCount-1 do
begin
ComboBox2.Items.Add(ADOQuery1.Fields.FullName);
end;
end;
end;
end;
end.
adoquery1.SQL.Add('select '+ComboBox1.text+' from 员工基础信息表');为何这里是查询全部就行,加个动态的'+ComboBox1.text+'就不行,
是这样提示的ADOQuery1:field'员工编号'not found
请各位指正

 

S

szmh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-24

• #2

用onselect事件或者onclick事件

 

清

清风杨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-24

• #3

Adoquery1.Sql.Add('Select '+#39+ComboBox1.Text+#39+'From 员工基础信息表'

 

N

nndty

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-24

• #4

因为你的combobox里面并不是只有一条记录呀，而且你也并没有指向“员工编号”这个字段，所以就提示ADOQuery1:field'员工编号'not found了。

 

N

nndty

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-24

• #5

Adoquey1.sql.add('select '''+trim(combobox1.text)+'''from 员工基础信息表')

 

E

eighteenzl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-24

• #6

注释:::各位我的combobox1.text里面的东西也是通过循环得到的,今天我试了一下给你们的建义.,结果还是那个同样的错误,,,还望大家再帮忙出出主意啊,谢谢了<

 

F

fancy105

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-24

• #7

showmessage(ADOQuery1.SQL.Text);看看就知道错在哪里了.如果是comboBox1.Text获取的是空的就要想一下是不是换个事件,比如说CloseUp事件,不知道有没有.

 

E

eighteenzl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-24

• #8

还有就是我明明选择的是combobox1里面的员工姓名要找出员工姓别这个字段的所有值/////他为何还要去找员工编号呢.,,?????[?][?][?]

 

E

eighteenzl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-24

• #9

我设了断点.问题就出在ADOQuery1.open;这里,

 

H

hityou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-24

• #10

你那里面用fieldcount干吗,应该是recordcount吧?fieldcount肯定是1啊.

 

网

网中戏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-24

• #11

adoquery1.SQL.Add('select [red]'''+ComboBox1.text+''' [/red]from 员工基础信息表') //加上引号即可

 

C

ctaxp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-24

• #12

procedure TYGXXXGform.ComboBox1Change(Sender: TObject);
var i:integer;
begin
if ComboBox1.text<>'' then
begin
adoquery1.Close;
adoquery1.SQL.Clear;
//a:=combobox1.Text; 干掉
adoquery1.SQL.Add('select '+ComboBox1.text+' from 员工基础信息表');
ADOQuery1.Open;
if ADOQuery1.RecordCount >0 then
begin
combobox2.Clear;
for i:= 0 to adoquery1.RecordCount -1 do
begin
ComboBox2.Items.Add(ADOQuery1.fieldbyname(''+combobox1.text+'').AsString);
adoquery1.Next;
end;
end;
end;
end;

 

C

ctaxp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-29

• #13

在delphi中查询语句中的表名用变晕时，只用一对单引号，
　　　　　查询条件中字段赋值用变量时，要用三对单引号。

很不好意思，不知道为什么，只知道应该这样。