select与combobox 结合应用(20分)

T

tinawxm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #1

我用编delphi 编了一个小程序，把select语句查询结果显示在combobox框中，程序编译通过
但执行后，下拉菜单中无任何内容，why!
程序如下
query1.close;
query1.sql.clear;
query1.SQL.add('select distinct cpmc from gscp');
query1.execsql ;
cpmc.items.clear;
while not query1.eof do
begin
if query1.FieldByName('cpmc').AsString<>'' then

cpmc.Items.Add(trim(query1.fieldbyname('cpmc').asstring));
query1.Next;
end;

 

T

tafeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #2

查询结果没有内容吧。

 

Y

yxyyyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #3

query1.close;
query1.sql.clear;
query1.SQL.add('select distinct cpmc from gscp');
[red]query1.Open ;[/red]
cpmc.items.clear;
while not query1.eof do
begin
if query1.FieldByName('cpmc').AsString<>'' then

cpmc.Items.Add(trim(query1.fieldbyname('cpmc').asstring));
query1.Next;
end;

 

Z

zhai_xin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #4

select 语句用query1.open;
其它的写操作用query1.execsql;

 

D

deyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #5

query1.execsql，你娃用这个，你知道吗。这只执行不还回结果的
query1.open，这个才对，查询并得出结果
ok

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #6

加入：
if Query1.Prepared = False then Query1.Prepare;
Query1.Open;
删除：
query1.execsql ;

 

E

eliuliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #7

在使用数据集的结果之前，建议先Query1.first

 

Y

yzb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #8

用Open,ExecSQL用于执行不要求返回结果的语句

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #9

procedure TForm1.Button1Click(Sender: TObject);
begin
query1.close;
query1.sql.clear;
query1.SQL.add('select distinct name from name2');
if Query1.Prepared = False then Query1.Prepare;
Query1.Open;
ComboBox1.items.clear;
while not query1.eof do
begin
if query1.FieldByName('name').AsString <> '' then
ComboBox1.Items.Add(trim(query1.fieldbyname('name').asstring));
query1.Next;
end;
end;

测试过，没问题！可参照修改你的程序。

 

G

gudong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-28

• #10

.......
query1.open;
cpmc.items.clear;
while not query1.eof do
begin
if query1.FieldByName('cpmc').AsString<>'' then

cpmc.Items.Add(trim(query1.fieldbyname('cpmc').asstring));
query1.Next;
end;


我试过是可以用的,看看select 是不是有问题?