### 急急急,如何取得数据库中的所有表名? 在线等待,马上给分!! ### 急急急,如何取得数据库中的所有表名? 在线等待,马上给分!! 解决方案 » 免费领取超大流量手机卡,每月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; Pointer指针也能解除引用? 创建文件目录报错,麻烦帮我看看 报表分页统计 请问delphi 的转义符是什么呢? 寻找ASP和VB,DELPHI程序员精英 请问值得把d6换成d7吗? delphi 7 运行 程序闪一下就没了 怎么解决 转让一整套ERP源码和数据库 我是否应该选择跳槽(小声点回答) 为什麽有时install Packages后会提示,原码已修改是否保存?版本没有转换! 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;