在delphi中通过ADO怎样获得所有数据库名。
我想通过ADO提供的功能,实现类似于TSession.GetDatabaseNames
我想通过ADO提供的功能,实现类似于TSession.GetDatabaseNames
解决方案 »
- vb代码转 delphi
- 新手请教大侠们:使用SPCOMM控件中发送数据的问题。。。^_^
- 难度很大的问题?up有分!急!!!
- 关于FASTREPORT的问题
- delphi6 down
- 关于自增长型字段是否总有一天可能溢出的简单问题!请教各位大虾,急!在线等待!解决完立刻结帖!
- 一个透明窗体的问题
- 求平面直角坐标系中任意两点的距离的公式是什么?
- >>>>>>>>这么简单的查询语句,我就是写不出来!!<<<<<<<<<<<
- 求大神帮忙把这一句VB.NET代码转换成DELPHI XE10
- 比较复杂!!!没办法啦!!求救!!!
- 求教:怎么用delphi编程实现向excel插入一张图片?并控制其位置。
用AdoConnection1.GetTableNames(listBox1.items);便把所有的表放入Listbox1中了
begin
items.Clear ;
{ TODO : 调用Tsession组件的getaliasnames方法获取数据库别名的列表 }
Session.GetAliasNames(ComboBox1.Items );
Text:=Items[0];
end;
Str1:=ComboBox1.Items.Strings[ComboBox1.itemindex];
with ListBox1 do
begin
Items.Clear ;
{ TODO : 调用Tsession组件的gettablenames方法获取表格的列表 }
Session.GetTableNames(str1,'',true,true,ListBox1.Items );
end;
SORRY!
直接执行SQL:
Select * from sysobjects where type='U'
取得当前数据库所有的表select * From sysdatabases
取得当前服务器中数据库.
等等...
具体看帮助吧
1)可用Session.GetAliasName来获取
2)可以从注册表中直接去查,HKEY_USERS\\software\\odbc\\odbc.ini\\odbc data source,
那里列出了所有的ODBC数据源.
ADOConnection1.Connected:=False;ADOConnection1.ConnectionString:='Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DBQ='
+OpenDialog1.FileNameADOConnection1.Connected:=True;
ADOConnection1.GetTableNames(ListBox1.Items, False);
select name as table_name from msysobjects
where type=1 and (Name Not Like 'msys%')
good luck!
取得数据库名称用adoConnection1.GetTableNames(ListBox1.items,False);
如果真有的话,我也蹭点
sqlserver返回数据库名
begin
with ADOQuery1 do
begin
Close; SQL.Clear;
SQL.Add('use master');
SQL.Add('select name from sysdatabases');
Open;
end;
end;
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB;
...
... procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=PromptDataSource(Handle, edit1.Text);
end;
不知道,
但我说我有3274分,
你相信么?
呵呵。
1000分太夸张了