Conecção com BD Access

[caezar 0]

Atribua a sua variável Conecta.

 

Conecta= "Provider=Microsoft.Jet.OLEDB.4.0;" & _               "Data Source=c:\somepath\myDb.mdb;" & _              "User Id=admin;" & _              "Password="A""

<{POST_SNAPBACK}>

Cara não é possivel!

Eu devo estar fazendo algo de muito errado:

Fiz o que voccê pediu e o erro continua!

Global cn As New ADODB.ConnectionGlobal rs As New ADODB.RecordsetPrivate Sub Main()Dim strArquivo As StringDim Conecta As StringDim strLocal As StringLoad frmConecfrmConec.ShowDoEventsSet cn = New ADODB.ConnectionSet rs = New ADODB.RecordsetstrArquivo = "TesteBD.mdb"strLocal = App.PathSet cn = CreateObject("ADODB.Connection")Conecta = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Documents and Settings\home\Meus Documentos\Caio\Engeval\TesteConec\TesteConec\TesteBD.mdb;" & "User Id=admin;" & "Password="""             cn.Open ConectaEnd Sub

O Debug mostra que o erro ocorre no form na linha:

Cn.open Conecta

[luiz humberto 0]

Tire esta linha.

Set cn = CreateObject("ADODB.Connection")

[caezar 0]

Atribua a sua variável Conecta.

 

Conecta= "Provider=Microsoft.Jet.OLEDB.4.0;" & _               "Data Source=c:\somepath\myDb.mdb;" & _              "User Id=admin;" & _              "Password="A""

<{POST_SNAPBACK}>

Mais uma vez!

Fiz como você indicou:

Global cn As New ADODB.ConnectionGlobal rs As New ADODB.RecordsetPrivate Sub Main()Dim strArquivo As StringDim Conecta As StringDim strLocal As StringLoad frmConecfrmConec.ShowDoEventsSet cn = New ADODB.ConnectionSet rs = New ADODB.RecordsetstrArquivo = "TesteBD.mdb"strLocal = App.PathSet cn = CreateObject("ADODB.Connection")Conecta = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Documents and Settings\home\Meus Documentos\Caio\Engeval\TesteConec\TesteConec\TesteBD.mdb;" & "User Id=admin;" & "Password="""             cn.Open ConectaEnd Sub

Mas o erro está igual.

Não é possivel!

Será que eu não poderia te enviar o projeto para você dar uma analizada?

[Luizgrs 0]

Acho que isso ñ vai mudar nada mais faz o seguinte:

Tire essas linhas:

Set cn = New ADODB.ConnectionSet rs = New ADODB.Recordset

Pois quando você declara essas variaveis você já está usando a palavra 'New'

E na string de conexão faz assim:

Conecta = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\home\Meus Documentos\Caio\Engeval\TesteConec\TesteConec\TesteBD.mdb;"

Pois você ñ está usando senha e nem usuário no BD

[luiz humberto 0]

Me mande o seu projeto, mas de antemão você não retirou a linha.

Set cn = CreateObject("ADODB.Connection")

Não precisar fazer isso, é utilizado em VBScript.

[caezar 0]

Me mande o seu projeto, mas de antemão você não retirou a linha.

Set cn = CreateObject("ADODB.Connection")

Não precisar fazer isso, é utilizado em VBScript.

<{POST_SNAPBACK}>

Ok amigo vou te enviar pelo seu e-mail ok!

[luiz humberto 0]

Corrigi os erros, e enviei para seu e-mail com as devidas correções.Alguns erros que você cometeu foi de declarar uma variável que tem como escopo somente na função e fazer uso dela em todo o seu projeto.

[caezar 0]

Corrigi os erros, e enviei para seu e-mail com as devidas correções.

Alguns erros que você cometeu foi de declarar uma variável que tem como escopo somente na função e fazer uso dela em todo o seu projeto.

<{POST_SNAPBACK}>

Obrigado amigo,

Uma das variaveis era a conecta!

[luiz humberto 0]

Ok.Tópico Fechado.