como abrir um ficheiro de acess em vb6?

bem vindo ao forum.
tens aqui um dos varios metodos possiveis.

depois tens o meu metodo favorito, que é atraves de codigo.
colocas isto num modulo ou numa classe:

Código:
Option Explicit
Dim bd As String
Dim ConnStatus As Boolean
Dim CNN As New ADODB.Connection

    
Public Function ConectarADO(BDpath As String) As Boolean
Dim connectstring As String

connectstring = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & BDpath & ";Uid=USER;Pwd=PASSWORD"
CNN.CursorLocation = adUseClient
CNN.Open connectstring

End Function


Public Sub DesconectarADO()
CNN.Close
Set CNN = Nothing
End Sub


Public Function AbreRecordSetADO(strSQL As String) As ADODB.Recordset
Set AbreRecordSetADO = CNN.Execute(strSQL)
End Function


Public Function ExecutaSQLADO(strSQL As String)
CNN.Execute (strSQL)
End Function
Este modulo/classe contem tudo (ou quase) o que precisas para manipular uma base de dados access.

se tiveres duvidas buzina
 
ok, faltam-te adicionar as referencias do ado.
Fazes assim: menu Project->References...
Depois selecionas os items "Microsoft ActiveX Data objects 2.x Library" (em que x deve ser o maior valor que encontres) e "Microsoft ActiveX Data objects Recordset 2.x Library"

deve ser so isto.
 
Back
Topo