ACESSANDO O BANCO DE DADOS ACCESS 2003 VIA ADO

RICKSOUSA 29/01/2010 09:34:15
#333122
bom dia!!!

eu uso a referencia DAO 2.5/3.5 e gostaria de aprender a usar ado, como faço para conectar meu projeto com o banco de dados access 2003 usando via ado???

o nome do meu banco é banco mesmo, e a tabela erros...

alguem pode me ajudar?

aguardo resposta...
RICKSOUSA 29/01/2010 10:36:22
#333139
alguem pode me ajudar???
MARCOSLING 29/01/2010 10:42:58
#333142
vc pode ir começando por aqui: http://www.macoratti.net/ado.htm
MARCOSLING 29/01/2010 10:44:39
#333144
depois por aqui: http://www.macoratti.net/consider.htm
MARCOSLING 29/01/2010 11:01:28
#333151
e depois, se vc entendeu tudo, vc acessa: http://www.macoratti.net/dao_ado.htm
SINKERTEC 29/01/2010 11:04:14
#333152


meu caro

Pegue esse exemplo..acho q vai te ajudar

boa sorte
RICKSOUSA 29/01/2010 11:28:08
#333154
oq eu quero é aprender a fazer a conexao com o banco de dados access usando ado.
SINKERTEC 29/01/2010 11:36:24
#333155

Pegou o exemplo

?
RICKSOUSA 29/01/2010 11:38:07
#333156
é que eu não quero usar datacontrol entendeu amigo, quero aprender a criar uma conexao...
ASHKATCHUP 29/01/2010 11:42:07
#333157 Resposta escolhida
Declaração da conexão

Public objConexao                                 As New ADODB.Connection



Abrindo o banco


Public Sub sub_Conecta_Banco()
    Dim sStringConexao                            As String
    [ô]
    sStringConexao = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] _
                   & [Ô]Data Source=[Ô] & App.Path & [Ô]\Banco.mdb;[Ô] _
                   & [Ô]User Id=admin;Password=;[Ô]
    objConexao.Open sStringConexao
    [ô]
    If objConexao.State <> adStateOpen Then
        MsgBox [Ô]Não foi possível abrir uma conexão com o banco de dados![Ô], vbOKOnly + vbCritical, [Ô]Mercanet - Layout Exportação[Ô]
        End
    End If
    [ô]
End Sub


Usando Sqls

Dim sSql                                          As String
Dim adoRecord                                     As New ADODB.Recordset
[ô]
sSql = [Ô]Select [Ô] _
     & [Ô]      * [Ô] _
     & [Ô]From [Ô] _
     & [Ô]      Db_Tb_Tabelas [Ô] _
     & [Ô]Where [Ô] _
     & sWhere
adoRecord.Open sSql, objConexao, adOpenStatic, adLockBatchOptimistic
[ô]
Do Until adoRecord.EOF
    adoRecord.movenext
Loop
Tópico encerrado , respostas não são mais permitidas
Voltar