1.先用ado把sql結果集查詢出來: select * from master..sysdatabases where dbid > 6 order by dbid2.再用delphi循環語句把name字段值顯示出來即可...
類似這樣,LZ自己參考修改一下代碼吧:procedure TRes_Hr_BKD_F.cxTabSheet1Show(Sender: TObject); var i:Integer; begin inherited; cbb_cb.Properties.Items.Clear; cbb_cb.Text:=''; qry_BaseTemp.Close; qry_BaseTemp.SQL.Clear; qry_BaseTemp.SQL.Add( ' select * from master..sysdatabases where dbid > 6 order by dbid ' ); qry_BaseTemp.Open; while not qry_BaseTemp.Eof do begin cbb_cb.Properties.Items.Add(VarToStr(qry_BaseTemp.FieldValues['name'])); qry_BaseTemp.Next; end; end;
select * from master..sysdatabases
where dbid > 6 order by dbid
adoq1的sql为'select * from tablename'
adoq1.active为true
datas1的dataset为adoq1dbg1的datasourec为datas1这样子就可以显示数据库中的表记录了。
where dbid > 6 order by dbid2.再用delphi循環語句把name字段值顯示出來即可...
var
i:Integer;
begin
inherited;
cbb_cb.Properties.Items.Clear;
cbb_cb.Text:='';
qry_BaseTemp.Close;
qry_BaseTemp.SQL.Clear;
qry_BaseTemp.SQL.Add( ' select * from master..sysdatabases where dbid > 6 order by dbid ' );
qry_BaseTemp.Open;
while not qry_BaseTemp.Eof do
begin
cbb_cb.Properties.Items.Add(VarToStr(qry_BaseTemp.FieldValues['name']));
qry_BaseTemp.Next;
end;
end;