InstallShield 10.X 如何得到SQL SERVER 服務器的資料庫的 LIST

YES!! I finally got it to work!!
I went on to the www.Planet-Source-Code.com website and looked for SQLDMO VB source found some and fiddled with it, here is what I got:

function FillDatabaseList(listDataBase)
OBJECT oDataBase, oSQLServer;
STRING szoDataBase, szSQLServer;
STRING szUserName, szPassword, szServerName;
NUMBER nCount;
begin

/* connect to SQL Server */
szSQLServer = "SQLDMO.SQLServer";
set oSQLServer = CreateObject(szSQLServer);
/* Set the login timeout */
oSQLServer.LoginTimeout = 15;
/* Decision code for login authorization type: WinNT or SQL Server */
oSQLServer.LoginSecure = TRUE;
szUserName = "";
szPassword = "";
szServerName = szSQL_Server;
oSQLServer.Connect(szServerName, szUserName, szPassword);

/* Now were are connected, get the list of databases */
szoDataBase = "SQLDMO.Database";
set oDataBase = CreateObject(szoDataBase);

for nCount = 1 to oSQLServer.Databases.Count
set oDataBase = oSQLServer.Databases(nCount);
if ( oDataBase.SystemObject = FALSE ) then
ListAddString( listDataBase, oDataBase.Name, AFTER);
endif;
endfor;

set oSQLServer = NOTHING;
set oDataBase = NOTHING;
end;

works like a charm :)

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值