Sql Com Vb6

[Vraptor]

Boa noite pessoal.

Sou iniciante em VB e comecei a fazer testes com SQL via VB.

infelizmente já me deparei com um pequeno problema.

As linhas a seguir seguem a risca o que manda o livro que estou estudando.

Option Explicit

Public oCo As ADODB.Connection

Public sErro As String

Private Sub Form_Load()

On Error GoTo ErroCmd

Set oCo = New ADODB.Connection

oCo.Open ("Provider=SQLOLEDB.1;Persist Security Info=False;UserID=sa;Initial Catalog=Editora;Data Source=CASA-KID4WCC")

MsgBox "Conexao efetuada com sucesso!"

Exit Sub

ErroCmd:

MontarDescricaoDoErro

MsgBox sErro

End

End Sub

Public Sub MontarDescricaoDoErro()

Dim oErro As ADODB.Error

sErro = "Erro: " + CStr(Err.Number)

For Each oErro In oCo.Errors

sErro = sErro + oErro.Description

Next

End Sub

O livro diz que seria exibida a MsgBox"Conexao efetuada com sucesso!"

só que infelizmente acontece o inverso:

"Erro:-2147467259 atributo de sequencia de caracteres de conexao invalidoEspecificaçao de autorizaçao invalida"

Por favor, alguém poderia dar uma dica ??

Sem mais, Daniel

[Señor Smoke]

Pra conectar o VB6 com SQL server é tranquilo.

Faz assim:

Declara isso a nivel de modulo:

Public cn As New ADODB.Connection

Private Sub Cmd1_Click() Depois coloca isso no form load, ou então em algum botao:

cn.Provider = "SQLOLEDB"
cn.Properties("Data Source").Value = "nome do servidor"
cn.Properties("Initial Catalog").Value = "nome do banco"
cn.Properties("User ID").Value = "sa"
cn.Open

MsgBox " Conexao efetuada com sucesso ! "

O provedor que o sql server usa é o SQLOLEDB. Se o seu SQL permite que vc logue no servidor do banco pelo windows tb isso deve funcionar. Caso contrário você vai ter que mudar o nivel de permissao do seu sql pra Mixed Mode.

Mas ve se isso funciona primeiro.

[]s

[Vraptor]

Caro colega, as coisas já melhoraram, só que infelizmente não sei como resolver a seguinte menssagem, abaixo do codigo:

Module1

Option Explicit

Public oCo As New ADODB.Connection

Form1

Option Explicit

Public sErro As String

Private Sub Form_Load()

On Error GoTo ErroCmd

oCo.Provider = "SQLOLEDB"

oCo.Properties("Data Source").Value = "CASA-KID4WCC"

oCo.Properties("Initial Catalog").Value = "Bancocombinacoes"

oCo.Properties("User ID").Value = "sa"

oCo.Open

MsgBox " Conexao efetuada com sucesso ! "

Exit Sub

ErroCmd:

MontarDescricaoDoErro

MsgBox sErro

End

End Sub

Public Sub MontarDescricaoDoErro()

Dim oErro As ADODB.Error

sErro = "Erro: " + CStr(Err.Number)

For Each oErro In oCo.Errors

sErro = sErro + oErro.Description

Next

End Sub

*****************

ERRO:-214746259CANNOT OPEN DATABASE REQUESTED IN LOGIN 'BANCOCOMBINACOES'.LOGIN FAILS.

*****************

Quanto a mudanca para Mixed Mode, infelizmente não conssegui achar essa opçao dentro do Entrerpise Manager.

Agradeceria muito mais alguma dica.

Sem mais Daniel

[Señor Smoke]

Quando você loga no SQL server você usa login e senha ou é pelo windows authentication?

Se for só pelo windows, acrescenta essa linha na string de conexão:

Con.Properties("Integrated Security").Value = "SSPI"

[Vraptor]

Valeu...agora veio a luz no fim do tunel

Set oCo = New ADODB.Connection

..

..

..

oCo.Properties("Integrated Security").Value = "SSPI"

Conexao efetuada com sucesso !

Abraços..e obrigado pela atençao

Daniel...