var
ts:Tstrings;
i:integer;
begin
ts:=Tstringlist.Create;
//adoconnection1.GetdatabaseNames(ts,false);
//for i:=0 to ts.Count-1 do
// showmessage('第'+inttostr(i+1)+'个数据库名是'+ts.Strings[i]);
end;
ts:Tstrings;
i:integer;
begin
ts:=Tstringlist.Create;
//adoconnection1.GetdatabaseNames(ts,false);
//for i:=0 to ts.Count-1 do
// showmessage('第'+inttostr(i+1)+'个数据库名是'+ts.Strings[i]);
end;
解决方案 »
- 如何在运行环境先移动控件,并动态显示坐标
- ActivexForm的调试
- 用自己的exe生成自己的工程文件!
- 如何卸载掉其他程序加载的DLL?
- WebBroswer中网页和delphi通信问题
- 高分求解...........
- 惨啊!不得不舍弃D7用D6
- 我的98下没有DCOMCNFG.EXE文件,在微软下在DCOM FOR 98安装后,也没有该程序文件!
- 做一个调查,现在使delphi5 的人多,还是使delphi6 的人多呀
- XE7 WebBrowser新tab页重复加载使用iframe问题,并且新弹出的tab继承为前页面的子页面,出现后退,后退后出现乱码!紧急求助大神!
- help 111
- 如何获得html的form中的file类型的变量值?
Combobox1.items:=DataBase1.Session.GetDataBaseNames;Combobox1的选项里是所有数据库的名称(BDE别名)用此方法还可以得到表名
go
select * from sysdatabases