0

Criei uma Base De Dados em MSAccess e criei um módulo de conexão. No entanto, quando o executo dá erro de conexão. Alguém tem um outro exemplo de como conectar VB6 ao MSAcess?

O código do meu módulo:

Option Compare Database

Option Explicit
Public T As Connection
Public c As Recordset

Private Sub conexao()
    Set T = creatobject("adodb.connection")
    Set c = creatobject("adodb.recordset")
    T.OpenRecordset " provider = microsoft.jet.oledb.4.0;datasource = " + app.Path & "\alex.mdb"
End Sub

Private Sub desconexao()
    Set T = Nothing
    Set c = Nothing
End Sub
2
  • Olá. Experimente imprimir datasource = " + app.Path & "\alex.mdb" numa MsgBox e verifique o caminho está correcto. A base de dados tem password?
    – jpmnteiro
    Commented 4/06/2014 às 12:50
  • ja fiz mas continua a dar erro,a Base de dados nao tem password.
    – user7752
    Commented 4/06/2014 às 13:17

1 Resposta 1

1

A sua função de conexão deveria ser:

Private Sub conexao()
    Set T = creatobject("adodb.connection")
    Set c = creatobject("adodb.recordset")
    connString = microsoft.jet.oledb.4.0;datasource = " + app.Path & "\alex.mdb"
    T.Open connString // Abre a ligação para a base de dados
End Sub

Só após abrir a ligação com o T.Open é que vai poder realizar operações na BD.

2
  • Assim deu certo valeu pela dica,mas tenho um probleminha qual é codigo para selecionar um campo na listbox e selecionarem se todo os campos?
    – user7752
    Commented 4/06/2014 às 13:42
  • @user7752 Essa dúvida não está ligada com a actual pergunta. Sugeria-lhe que abrisse uma nova pergunta para a sua dúvida. Não se esqueça ainda de aceitar as respostas que o ajudaram de forma a ajudar futuras pessoas com dúvidas (consulte a página Central de Ajuda
    – jpmnteiro
    Commented 4/06/2014 às 13:49

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .