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 FillDatabaseElist (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.Countset oDataBase = oSQLServer.Databases (ncount); ife (odatabase.systemObject = false) ThenListAddstring (ListDatabase, Odata Base.name, after); endif; endfor; set osqlserver = nothing; set odatabase = Nothing; end; works like a charm :)
