Yes I've them both installed.
directory, execute:
\Program Files\Microsoft SQL Server \90\Tools\Binn\REGSVR32 SQLDMO.DLL
From any directory, execute:
C:\Program Files\Microsoft SQL Server \90\Tools\Binn\REGSVR32.EXE
C:\Program Files\Microsoft SQL Server \90\Tools\Binn\resources\1033\SQLDMO.RLL
"
Cetin
>Hi Frank, and Cetin, thanks for the help!
>
>Cetin, do you have SQL Server 2000 on the same instance of SQL server 2005?
>
>I have a fresh install of SQL Server 2005, reloaded my machine, as it needed it :-)
>
>I can not get SQLDMO to work! I tried one post that I say, and it said to register the SQLDMO.dll in the 80/bin folder (I think, that was the path, not on that machine right now)
>
>Frank I will give this a try; by any chance do you have code that lists the databases on a server? I kind of want to provide a tree that says here is the server and this is the databases on it.
>
>Thanks Shawn
>
>>Great Frank:)
>>It lists much more servers than SQLDMO discovers. (To my surprise - SQLDMO too uses SQLBrowseConnect but cannot find all of those that this one finds).
>>Cetin
>>
>>>Hi Shawn,
>>>
>>>I just did this by looking at the code in the dataexplorer.app (I think it was in the datamgmt_sql.prg). Basically you use some Windows APIs to get the list.
>>>
>>>Here's my adjusted code:
>>>
>>>>>>* Populate collection with available SQL servers
>>>#DEFINE SQL_HANDLE_ENV 1
>>>#DEFINE SQL_HANDLE_DBC 2
>>>#DEFINE SQL_ATTR_ODBC_VERSION 200
>>>#DEFINE SQL_OV_ODBC3 3
>>>#DEFINE SQL_SUCCESS 0
>>>#DEFINE SQL_NEED_DATA 99
>>>#DEFINE DEFAULT_RESULT_SIZE 2048
>>>#DEFINE SQL_DRIVER_STR "DRIVER=SQL SERVER";
>>>
>>>LOCAL hEnv
>>>LOCAL hConn
>>>LOCAL cInString
>>>LOCAL cOutString
>>>LOCAL nLenOutString
>>>LOCAL ARRAY aServerList[1]
>>>
>>>DECLARE SHORT SQLBrowseConnect IN odbc32 ;
>>> INTEGER ConnectionHandle, ;
>>> STRING InConnectionString, ;
>>> INTEGER StringLength1, ;
>>> STRING @ OutConnectionString, ;
>>> INTEGER BufferLength, ;
>>> INTEGER @ StringLength2Ptr
>>>
>>>DECLARE SHORT SQLAllocHandle IN odbc32 ;
>>> INTEGER HandleType, ;
>>> INTEGER InputHandle, ;
>>> INTEGER @ OutputHandlePtr
>>>
>>>DECLARE SHORT SQLFreeHandle IN odbc32 ;
>>> INTEGER HandleType, ;
>>> INTEGER Handle
>>>
>>>DECLARE SHORT SQLSetEnvAttr IN odbc32 ;
>>> INTEGER EnvironmentHandle, ;
>>> INTEGER ATTRIBUTE, ;
>>> INTEGER ValuePtr, ;
>>> INTEGER StringLength
>>>
>>>
>>>hEnv = 0
>>>hConn = 0
>>>cInString = SQL_DRIVER_STR
>>>cOutString = SPACE(DEFAULT_RESULT_SIZE)
>>>nLenOutString = 0
>>>
>>>ZAP IN (m.tcCursor)
>>>
>>>TRY
>>> IF SQLAllocHandle(SQL_HANDLE_ENV, hEnv, @hEnv) == SQL_SUCCESS
>>> IF (SQLSetEnvAttr(hEnv, SQL_ATTR_ODBC_VERSION, SQL_OV_ODBC3, 0)) == SQL_SUCCESS
>>> IF SQLAllocHandle(SQL_HANDLE_DBC, hEnv, @hConn) == SQL_SUCCESS
>>> IF (SQLBrowseConnect(hConn, @cInString, LEN(cInString), @cOutString, DEFAULT_RESULT_SIZE, @nLenOutString)) == SQL_NEED_DATA
>>> nCnt = ALINES(aServerList, STREXTRACT(cOutString, '{', '}'), .T., ',')
>>> FOR i = 1 TO nCnt
>>> ?(RTRIM(aServerList[i]))
>>> ENDFOR
>>> ENDIF
>>> ENDIF
>>> ENDIF
>>> ENDIF
>>>CATCH TO oException
>>> MESSAGEBOX(oException.Message, 0+16, _screen.caption)
>>>FINALLY
>>> IF hConn <> 0
>>> SQLFreeHandle(SQL_HANDLE_DBC, hConn)
>>> ENDIF
>>> IF hEnv <> 0
>>> SQLFreeHandle(SQL_HANDLE_ENV, hConn)
>>> ENDIF
>>>ENDTRY
>>>>>>
>>>>Hi all, it has been forever since i posted here, I finally got a gig doing VFP work again, yeaaahhh ha!
>>>>
>>>>Time for the question currently the product use SQLDMO to list all the servers that the user can connect to. This no longer works with SQL Server 2005.
>>>>
>>>>Has anyone had any luck with connecting to SQLSMO to get the list of databases?
>>>>
>>>>TIA
>>>>
>>>>Shawn
