ERRO CONECTAR ACCESS VB6
Bom dia galera, estou tendo um problema pra conectar com o banco Access, não intendo muito e estou aprendendo banco, e também estou aprendendo VB6.
Bom aparece um erro 438 (Objeto não suporta essa propriedade ou método.)
Não sei o que estou fazendo de errado, pois como disse não sei muito.
Segue a parte da conexão
criei também um módulo que não sei bem pra que serve
Em Referência coloquei Microsoft ActiveX Data Objects 2.5 Library e tb tentei o 6.0
mais nenhum dos 2 obtive sucesso.
Obrigado
Bom aparece um erro 438 (Objeto não suporta essa propriedade ou método.)
Não sei o que estou fazendo de errado, pois como disse não sei muito.
Segue a parte da conexão
Private Sub Timer1_Timer()
On Error GoTo ErrConexao
cnnBiblio.ConnectionString = [Ô]Provider=Microsoft.Jet.OLEDB.3.51;[Ô] & [Ô]Data Source=[Ô] & App.Path & [Ô]/Biblio.mdb;[Ô]
cnnBiblio.Open
Unload Me
frmBiblio.Show
Exit Sub
ErrConexao:
With Err
If .Number <> 0 Then
MsgBox [Ô]Houve um erro na conexão com o banco de dados.[Ô] & vbCrLf & [Ô]O sistema será encerrado.[Ô], vbCritical + vbOKOnly + vbApplicationModal, [Ô]Erro na Conexão[Ô]
.numero = 0
Set cnnBiblio = Nothing
End
End If
End With
End Sub
criei também um módulo que não sei bem pra que serve
Public cnnBiblio As New ADODB.Connection
Em Referência coloquei Microsoft ActiveX Data Objects 2.5 Library e tb tentei o 6.0
mais nenhum dos 2 obtive sucesso.
Obrigado
Vê se não é essa barra invertida (/). Troca por (\)
Usa o Jet 4.0
Citação:App.Path & [Ô]/Biblio.mdb;[Ô]
Usa o Jet 4.0
cnnBiblio.ConnectionString = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & App.Path & [Ô]\Biblio.mdb;[Ô]
Perfeita Observação, Muito Obrigado!
Era exatamente esse o problema. E troquei também para Jet 4.0
Era exatamente esse o problema. E troquei também para Jet 4.0
Tópico encerrado , respostas não são mais permitidas