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 :)
InstallShield 10.X 如何得到SQL SERVER 服務器的資料庫的 LIST
最新推荐文章于 2024-09-18 11:31:13 发布