I just solved the problem...

TIA

>Hi,
>I have a sample using SQLDMO that works but need to make it more generic the code and in this case it fails any reson why?
>I started whit the password used to connect to SQL server, but it doesnt work.
>any ideias why?
>
>this code works
>

>LOCAL cNome_banco_desejado
>cNome_banco_desejado = ALLTRIM(Config_Conexao.Banco)
>
>LOCAL oAppSQL AS SQLDMO.APPLICATION
>LOCAL oServer AS SQLDMO.SQLServer
>LOCAL oDatabase AS SQLDMO.DATABASE
>LOCAL oNames AS SQLDMO.NameList
>LOCAL oName AS Variant
>
>oAppSQL = CREATEOBJECT("SQLDMO.Application")
>oNames = oAppSQL.ListAvailableSQLServers()
>FOR EACH oName IN oNames
>	oServer = CREATEOBJECT("SQLDmo.SqlServer")
>	oServer.LoginSecure = .F.			&& not trusted
>	SET STEP ON
>	oServer.CONNECT( oName,'sa', '1234' )	&& Conect to server (OK here)
>
>	nBanco = oServer.DATABASES.COUNT	&& number of databases in the server
>	DIMENSION aNomeBancos(nBanco,1)
>	FOR N = 1 TO nBanco
>		cNomeBanco = oServer.DATABASES(N).NAME	&& name of each database
>		STORE ALLTRIM(cNomeBanco) TO aNomeBancos (N,1)
>	ENDFOR
>
>	oServer.DisConnect
>	oServer = NULL
>ENDFOR
>oAppSQL.QUIT
>oAppSQL = NULL
>
>* check if databse is in the server
>IF ASCAN(aNomeBancos,cNome_banco_desejado) = 0
>	MESSAGEBOX("O banco de dados não se encontra no servidor" + CHR(10) + CHR(13) + "Favor adicionar / instalar o banco ao servidor",64,"Aviso")
>	RETURN .F.
>ELSE
>	RETURN .T.
>ENDIF
>

>
>This doesnt work
>

>LOCAL cNome_banco_desejado, cSenha_conexao
>cNome_banco_desejado = ALLTRIM(Config_Conexao.Banco)
>
>cSenha_conexao = ALLTRIM(Config_Conexao.senha)
>
>LOCAL oAppSQL AS SQLDMO.APPLICATION
>LOCAL oServer AS SQLDMO.SQLServer
>LOCAL oDatabase AS SQLDMO.DATABASE
>LOCAL oNames AS SQLDMO.NameList
>LOCAL oName AS Variant
>
>oAppSQL = CREATEOBJECT("SQLDMO.Application")
>oNames = oAppSQL.ListAvailableSQLServers()
>FOR EACH oName IN oNames
>	oServer = CREATEOBJECT("SQLDmo.SqlServer")
>	oServer.LoginSecure = .F.			&& not trusted
>	SET STEP ON
>	oServer.CONNECT(oName,'sa', cSenha_conexao)	&& Conect to server (fails here!)
>
>	nBanco = oServer.DATABASES.COUNT	&& number of databases in the server
>	DIMENSION aNomeBancos(nBanco,1)
>	FOR N = 1 TO nBanco
>		cNomeBanco = oServer.DATABASES(N).NAME	&& name of each database
>		STORE ALLTRIM(cNomeBanco) TO aNomeBancos (N,1)
>	ENDFOR
>
>	oServer.DisConnect
>	oServer = NULL
>ENDFOR
>oAppSQL.QUIT
>oAppSQL = NULL
>
>* check if databse is in the server
>IF ASCAN(aNomeBancos,cNome_banco_desejado) = 0
>	MESSAGEBOX("O banco de dados não se encontra no servidor" + CHR(10) + CHR(13) + "Favor adicionar / instalar o banco ao servidor",64,"Aviso")
>	RETURN .F.
>ELSE
>	RETURN .T.
>ENDIF
>