### 急急急,如何取得数据库中的所有表名? 在线等待,马上给分!! ### 急急急,如何取得数据库中的所有表名? 在线等待,马上给分!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 database.session.gettablenamesadoconn.gettablenames 看一下GetTableNames的帮助procedure TForm1.Button1Click(Sender: TObject);var SL: TStrings; index: Integer;begin SL := TStringList.Create; try ADOConnection1.GetTableNames(SL, False); for index := 0 to (SL.Count - 1) do begin Table1.Insert; Table1.FieldByName('Name').AsString := SL[index]; if ADOTable1.Active then ADOTable1.Close; ADOTable1.TableName := SL[index]; ADOTable1.Open; Table1.FieldByName('Records').AsInteger := ADOTable1.RecordCount; Table1.Post; end; finally SL.Free; ADOTable1.Close; end;end; 再问一下,如何将取得的表名放入listbox中? var s:stringbegin listbox1.items.clear; s:=.... //要查的数据库 session.gettablenames(s,'',true,false,listbox1.items);end; 需要帮忙! 上次放分,是一个多月之前,平均给分,尽量12号前结帖. EXCEL某一列的数据导入到SQL数据库里表的指定字段值里 SocketConnection组件联接本地计算机提示“无效的类别字符串”?如何解决。。 如何向老板提出加薪水?大家进来提意见呀 如何把一列数据在RAVE里进行替换? 论坛的大虾新年好!小第想结交朋友. 谁知道那里有二维条码控件下载 一个系统分析员必须具备的素质???~~ 请用户名为http1(http1),DepYuka()和dana(dana)和我联系好吗? AP层如何debug 数据库
adoconn.gettablenames
SL: TStrings;
index: Integer;
begin
SL := TStringList.Create;
try
ADOConnection1.GetTableNames(SL, False);
for index := 0 to (SL.Count - 1) do begin
Table1.Insert;
Table1.FieldByName('Name').AsString := SL[index];
if ADOTable1.Active then ADOTable1.Close;
ADOTable1.TableName := SL[index];
ADOTable1.Open;
Table1.FieldByName('Records').AsInteger := ADOTable1.RecordCount; Table1.Post;
end;
finally
SL.Free;
ADOTable1.Close;
end;
end;
s:string
begin
listbox1.items.clear;
s:=.... //要查的数据库
session.gettablenames(s,'',true,false,listbox1.items);
end;