DAO

FORMIGINHA 14/09/2005 13:19:40
#104106

veja neste site algumas apostilas : www.apostilando.com

tem varias apostilas...

USUARIO.EXCLUIDOS 14/09/2005 13:55:51
#104115

'Aqui no General Declarations
'São as variáveis para conexão
Dim conexao As dao.Database
Dim recordset As dao.Recordset

'aqui setamos o banco. Pode colocar no Load do Form.
Set conexao = Workspaces(0).OpenDatabase(App.Path & "\SeuBanco.mdb")
Set recordset = conexao.OpenRecordset("Select Campo From Tabela",dbOpenForwardOnly)

Espero ter ajudado...

Abraços...
Junior Mascioli

MARIOZNETO 14/09/2005 13:59:52
#104119 Resposta escolhida

'tenta assim também...

Public conexa As New ADODB.Connection
Public rs As New ADODB.Recordset

conexa.Provider = "Microsoft.Jet.OLEDB.4.0"

conexa.Open "Data Source=seu_banco_de_dados.mdb;Jet OLEDB:Database Password=Sua_senha"

rs.Open "sua_tabela", conexa, 3

Falow...

LIONHEART 14/09/2005 14:01:10
#104122

COMO CRIAR STRING DE CONEXOES

1º) Crie em qualquer lugar um arquivo com a nome de x.udl
2º) Dê duplo clique nele, e siga o passo a passo que ele solicita...
ex. com .mdb:
- Selecione o Provider: "Microsoft Jet 3.51(ou 4.0) OLE DB Provider" e clique em Next
- Na tela Connection (conexao) selecione no campo:
1. o local onde está o banco: ex. "C:/Meus Documentos/teste.mdb"
2. o Usuario e a senha caso exista, senão, deixe o check "senha em branco" (Blank Password)
3. Pressione "TESTAR CONEXAO" e deve dar "OK"
3º) Agora, altere a extenção do arquivo x.udl para x.txt e abra-o.
4º) Copie a string de conexao que apareceu e use-a no seu programa....
Está string é a sua string de conexao valida.

LIONHEART 14/09/2005 14:03:25
#104123

um exemplo sem senha de banco MDB

ex: conectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MeusDocumentos\x.mdb; Persist Security Info=False”