Conexão - VBWEB

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Fórum
	Visual Basic

Voltar

Autor

Assunto: Conexão

Markim

VOLTA REDONDA
RJ - BRASIL

Postada em 10/05/2007 00:29 hs

Como eu faço uma conexão com o banco de dados access?

Eu tenho q configurar alguma coisa antes de digitar o código (referencias, etc)?
Eu to digitando esse código e nao esta dando certo:

Private Sub Form_Load()
Dim db1 As Database
Dim rs1 As Recordset

Set db1 = OpenDatabase(App.Path & " C:Meus documentosdb4.mdb")
Set rs1 = db1.OpenRecordset("marcos", dbOpenDynaset)

End Sub

(o nome do banco de dados é db4.mdb e a tabela é marcos msm)

Valeu!

LCRamos

GOIANIA
GO - BRASIL

Postada em 10/05/2007 02:35 hs

Se voce quer abrir como Tabela, mude esta linha:

Set rs1 = db1.OpenRecordset("marcos", dbOpenDynaset)

Mude para:

Set rs1 = db1.OpenRecordset("marcos", dbOpenTable)

Agora qual o erro? Que mensagem?

Está certo a abertura, voce fez referencia ao DAO, ao Jet, ao Library 2.x?

E se voce quer o BD e a Tabela, visivel para todo o formulário, coloque isto em Option Explicit

Dim db1 As Database
Dim rs1 As Recordset

vlu//

LCRamos

GOIANIA
GO - BRASIL

Postada em 10/05/2007 02:42 hs

Olhe, não tinha reparado, esta linha está errada:

Set db1 = OpenDatabase(App.Path & " C:Meus documentosdb4.mdb")

Defina o caminho do BD corretamente:

Assim:

Set db1 = OpenDatabase(App.Path & "|db4.mdb") ' troque o pipe (|) por barra invertida

Ou assim

Set db1 = OpenDatabase("C:|Meus documentos|db4.mdb") ' idem o pipe

Da forma que está usando ele está assim:

C:|pastadoexec:|meusdocumentos|db4.mdb

Viu a confusão?

vlu//

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR


		CyberWEB Network Ltda. © Copyright 2000-2026 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site