CONEXAO VB6 SQL 2008
Senhores
Estou criando uma aplicacao em VB6 com SQL SERVER 2008.
No banco estou com o usuario gemco criado normalmente. E consigo me logar com o banco.
Agora na aplicacao VB quando tento conectar aparece a mensagem:
LOGIN FAILED FOR gemco
Segue o codigo fonte.
Me ajudem
Grato
usuario = [Ô]gemco[Ô]
senha = [Ô]gemco[Ô]
servidor = [Ô]10.0.1.35[Ô]
bancodados = [Ô]dbGemcoHosp[Ô]
cn.Provider = [Ô]SQLOLEDB[Ô]
cn.Properties([Ô]Data Source[Ô]).Value = servidor
cn.Properties([Ô]Initial Catalog[Ô]).Value = bancodados
cn.Properties([Ô]User ID[Ô]).Value = usuario
cn.Properties([Ô]Password[Ô]).Value = senha
cn.Open
sqlNotaTempRel = [Ô]SELECT CODCLI FROM CRC_TITULO WHERE DTEMISSAO >= [ô][Ô] & dia & mes & ano & [Ô][ô] AND DTEMISSAO <= [ô][Ô] & diafim & mesfim & anofim & [Ô][ô] AND CODORIGCRC=10 AND CODFIL = 1 GROUP BY CODCLI[Ô]
Set rsNotaTempRel = cn.Execute(sqlNotaTempRel)
Estou criando uma aplicacao em VB6 com SQL SERVER 2008.
No banco estou com o usuario gemco criado normalmente. E consigo me logar com o banco.
Agora na aplicacao VB quando tento conectar aparece a mensagem:
LOGIN FAILED FOR gemco
Segue o codigo fonte.
Me ajudem
Grato
usuario = [Ô]gemco[Ô]
senha = [Ô]gemco[Ô]
servidor = [Ô]10.0.1.35[Ô]
bancodados = [Ô]dbGemcoHosp[Ô]
cn.Provider = [Ô]SQLOLEDB[Ô]
cn.Properties([Ô]Data Source[Ô]).Value = servidor
cn.Properties([Ô]Initial Catalog[Ô]).Value = bancodados
cn.Properties([Ô]User ID[Ô]).Value = usuario
cn.Properties([Ô]Password[Ô]).Value = senha
cn.Open
sqlNotaTempRel = [Ô]SELECT CODCLI FROM CRC_TITULO WHERE DTEMISSAO >= [ô][Ô] & dia & mes & ano & [Ô][ô] AND DTEMISSAO <= [ô][Ô] & diafim & mesfim & anofim & [Ô][ô] AND CODORIGCRC=10 AND CODFIL = 1 GROUP BY CODCLI[Ô]
Set rsNotaTempRel = cn.Execute(sqlNotaTempRel)
Olá,
Public cnnConectaBanco As ADODB.Connection
Set cnnConectaBanco = New ADODB.Connection
With cnnConectaBanco
.Provider = [Ô]SQLOLEDB[Ô]
.ConnectionString = [Ô]User ID=usuario;[Ô] & _
[Ô]password=senha;[Ô] & _
[Ô]Data Source=servidor;[Ô] & _
[Ô]Initial Catalog=bancodedados[Ô]
.Open
End With
Até,
Rogério.
Public cnnConectaBanco As ADODB.Connection
Set cnnConectaBanco = New ADODB.Connection
With cnnConectaBanco
.Provider = [Ô]SQLOLEDB[Ô]
.ConnectionString = [Ô]User ID=usuario;[Ô] & _
[Ô]password=senha;[Ô] & _
[Ô]Data Source=servidor;[Ô] & _
[Ô]Initial Catalog=bancodedados[Ô]
.Open
End With
Até,
Rogério.
QUANDO TENHO PROBLEMAS PARA CONECAT BANCO EU INCLUO UM DATAENVIORIMENT NO PROJETO VB, NAS PROPRIEDADES DESTE TEM COMO FAZER A CONEXÃO COM UM WIZARD. APOS TER FEITO ISSO EXECUTO O VB PAUSO E VOU PARA O IMEDIATE E DIGITO [Ô]DATAEVIORIMENT.CONECTIONSTRING[Ô], E ELE ME TRAZ A STRING DE CONEXAO MASTIGADINHA.
TENTA QUEM SABE DA CERTO.
ABRAÇO
TENTA QUEM SABE DA CERTO.
ABRAÇO
Tópico encerrado , respostas não são mais permitidas