View Full Version : como abrir um ficheiro de acess em vb6?


priank
20-12-2007, 13:07
por favor digam me como abrir um ficheiro de acess em vb. Agrdeço toda ajuda possivel.

Armadillo
20-12-2007, 14:06
bem vindo ao forum.
tens aqui (http://www.macoratti.net/ado_bas1.htm)um dos varios metodos possiveis.

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


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

priank
20-12-2007, 14:48
ainda da me erros.....
ADODB.Connection-o vb nao aceita :S
ajuda sff

Armadillo
20-12-2007, 14:56
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.

priank
20-12-2007, 15:31
agr da me outro erro....:S
Option Explicit- ele nao aceita:S
ajuda sff

Ximenes
20-12-2007, 15:33
isso do option explicit quer dizer que tens que definir todas as variaveis. define as que faltam

priank
20-12-2007, 16:39
e onde eu meto o ficheiro que eu quero abrir (em que parte do codigo)

Armadillo
20-12-2007, 16:44
ao invocares a funcao conectar, envias o nome do ficheiro como parametro.

priank
20-12-2007, 16:54
como posso te enviar o programa para ver se ta bm ou nao pk eu nao tou a cngr fzr:S:S:S

Armadillo
20-12-2007, 16:59
Ou arranjas um server para colocares o file ou nao envias, postas o que achas que ta a falhar e o pessoal da uma olhadela.

priank
20-12-2007, 17:24
posso criar um grupo no google??