delphi 取sql所有返回值(100分)

csmtools · 2008-11-03

如题。 with quer1 do close; SQL.CommaText:='select name from User'; Open; First; commbobox.Items.Add(FieldByName('name').AsString); ExecSQL; Close; Cbb_Name.Update; 此时，commbobox只有从sql中返回的第一数据。不能全部返回来。就是不知道如何写next 请各位帮忙

shadowpj · 2008-11-03

with quer1 do begin    close;    SQL.CommaText:='select name from User';    Open;    First;    while not eof do begin      Cbb_Name.Items.Add(FieldByName('name').AsString);      Next;    end; end;

duxing · 2008-11-04

with quer1 do  begin    close;    SQL.CommaText:='select distinct name from User';//添加distinct~ 防止重复~    Open;    First;    while not eof do    begin      Cbb_Name.Items.Add(FieldByName('name').AsString);      Next;    end;  end; 用DBCommbobox控件更简单~

李翔鹏 · 2008-11-04

with quer1 do  begin    close;    SQL.CommaText:='select distinct name from User';    try      Open;    except        end;    if isempty then Exit;    Cbb_Name.items.clear;    while not eof do    begin      Cbb_Name.Items.Add(FieldByName('name').AsString);      Next;    end;  end;

ouyangwenlin · 2008-11-04

begin with quer1 do   begin     close;     SQL.Clear;     SQL.Add('Select distinct name from user');     Open;     quer1.First;     commbobox.Items.Add(FieldByName('name').AsString);     quer1.Next;  end; end;

csmtools · 2008-11-05

[

]  非常感谢。

delphi 取sql所有返回值(100分)

csmtools

Unregistered / Unconfirmed

shadowpj

Unregistered / Unconfirmed

duxing

Unregistered / Unconfirmed

李翔鹏

Unregistered / Unconfirmed

ouyangwenlin

Unregistered / Unconfirmed

csmtools

Unregistered / Unconfirmed

Similar threads