CONECTAR

ROBSONSLZ 21/07/2010 15:26:31
#348052
Não consigo conectar o banco de dados...
Ao iniciar, dá um erro: CAMINHO NÃO ENCONTRADO.
Alguém tem alguma sugetão para explicar o motivo do erro?

Option Explicit
Global BancoDeDados As Database
Global TabCadastro As Recordset
Global RegAtual As Variant
Public Banco As ADODB.Connection
Public Con As ADODB.Connection
Public RS As ADODB.Recordset
Public RSPedidos As ADODB.Recordset
Public rsTemp As ADODB.Recordset
Public PedidoId As String
Public MesesId As Recordset
Public TabCidade As Recordset

Sub Connect()

Set Con = CreateObject([Ô]ADODB.Connection[Ô])
Set RS = CreateObject([Ô]ADODB.Recordset[Ô])
Dim Caminho As String

If App.PrevInstance = True Then
Dim Form As Form
For Each Form In Forms
MsgBox [Ô]O Sistema já foi Iniciado[Ô], vbInformation, [Ô][Ô]
Unload Form
Set Form = Nothing
Next Form
End
End If

Con.Open [Ô]Provider = Microsoft.Jet.OLEDB.4.0;Data Source = [Ô] & App.Path & [Ô]\CADASTRO.mdb[Ô]
Con.Open [Ô]Provider = Microsoft.Jet.OLEDB.4.0;Data Source =[Ô] & Caminho & [Ô];Jet OLEDB:database Password=MasterDB[Ô]
RS.CursorLocation = adUseClient

End Sub

Sub Disconnect()

RS.Close
Con.Close

Set RS = Nothing
Set Con = Nothing
End Sub
THULLER 21/07/2010 17:01:34
#348061
Cara, mão tenho certeza se vai funcionar

mas experimenta trocar

Con.Open [Ô]Provider = Microsoft.Jet.OLEDB.4.0;Data Source = [Ô] [txt-color=#e80000]& App.Path & [Ô][/txt-color]\CADASTRO.mdb[Ô]

pelo endereço completo do BD
JAMESBOND007 21/07/2010 17:14:12
#348064 Resposta escolhida 

Con.Open [Ô]Provider = Microsoft.Jet.OLEDB.4.0;Data Source = [Ô] & App.Path & [Ô]CADASTRO.mdb [Ô]
MSMJUDAS 21/07/2010 17:14:43
#348065
Vc está abrindo o banco duas vezes:

Con.Open [Ô]Provider = Microsoft.Jet.OLEDB.4.0;Data Source = [Ô] & App.Path & [Ô]\CADASTRO.mdb[Ô]
Con.Open [Ô]Provider = Microsoft.Jet.OLEDB.4.0;Data Source =[Ô] & Caminho & [Ô];Jet OLEDB:database Password=MasterDB[Ô]

Algum desses ou os dois estão errados, verifique se o [Ô]Caminho[Ô] está certo.
PAULOOLIVEIRA 21/07/2010 17:55:13
#348073
Companheiro

Quem eh Caminho ? seria uma variavel que indicaria onde esta o bd ? se sim voce precisa setar ela antes de usa -la

ex:

caminho = [Ô]\
omeservidor\dados[Ô]

Con.Open [Ô]Provider = Microsoft.Jet.OLEDB.4.0;Data Source = [Ô] & App.Path & [Ô]\CADASTRO.mdb[Ô]
Con.Open [Ô]Provider = Microsoft.Jet.OLEDB.4.0;Data Source =[Ô] & Caminho & [Ô];Jet OLEDB:database Password=MasterDB[Ô]

entende ?

flw
t+
XXXANGELSXXX 22/07/2010 10:21:46
#348107 
  
   Set Conexao = New ADODB.Connection
        SERVIDOR = [Ô]C:\TESTE.MDB[Ô]

        CON_STR = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & _
                  [Ô]Data Source=[Ô] & SERVIDOR & [Ô];Jet [Ô] & _
                  [Ô]OLEDB:Database Password=SUASENHA;[Ô]
        With Conexao
            .CursorLocation = adUseClient
            .ConnectionString = CON_STR
            .Open CON_STR
        End With
    Else
        Conexao.Close
        Set Conexao = Nothing
Tópico encerrado , respostas não são mais permitidas
Voltar