请问下,怎么查找一个表,并且把其中一个叫做road的字段,的所有名字赋值到listbox啊..求代码..急用..谢谢
解决方案 »
- 关于数据库的查询,过滤的问题
- 100分求dxDBDateEdit控件上的"星星星星星星星"改成"日一二三四五六"
- 有没有办法让程序自己产生一个RecordSet,急!!!!
- 我做RM播放器但是遇到了一点麻烦....
- 高分求救!!怎样发网页形式的邮件???火急!!!!
- 如何将货币型转换为字符型?并以*,***,***格式
- 一个有关TCombox的问题!
- 高分求购:有谁能将下列VC转换成Delphi语言的
- 一个可笑的想法
- Application.CreateForm(TForm1, Form1)后,那么form1.free可以把form1从内存中完全卸载掉吗?
- 为何在程序中用起用事务就报错?
- 关于idhttp.Post方法问题?放分100求高手
with dm.ADOQselect do
begin
Close;
sql.Clear;
sql.Add(str);
Open;
end;
for i:=1 to DM.ADOQselect.RecordCount do
begin
listbox.Items.Add(DM.ADOQselect.Fields[0].asstring);
DM.ADOQselect.Next;
end;
str:='select distinct personname from person';
with dm.ADOQselect do
begin
Close;
sql.Clear;
sql.Add(str);
Open;
end;
for i:=1 to DM.ADOQselect.RecordCount do
begin
listbox.Items.Add(DM.ADOQselect.Fields[0].asstring);
DM.ADOQselect.Next;
end;
不过最好在for循环之前将listbox.Items.clear掉。
procedure GetFromTableToCombox(FieldName,TableName:string;ADOConnection:TADOConnection;
Strings:TStrings);
var
AdoQry:TadoQuery;
begin
adoqry:=tadoquery.Create(self);
AdoQry.connection:=ADOConnection; Assert((trim(FieldName)<>'') and (trim(TableName)<>''),'SQL 语句错误'); with adoqry do
begin
sql.Add('select ' + FieldName + ' from ' + TableName);
open; //if RecordCount>0 then
begin
first;
while not Eof do
begin
Strings.Add(FieldByName(FieldName).AsString);
next;
end;
end;
close;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
GetFromTableToCombox('sup_id','supp',ADOConnection1,ListBox1.Items) ;
end;