Pessoal precisando urgente de um Código que possa coletar os dados do banco de dados no formato ACCDB.
atualmente uso um código que me conecto no formato .MDB como sitado a baixo
MODULO:
...
atualmente uso um código que me conecto no formato .MDB como sitado a baixo
MODULO:
- Código:
Global banco As Database
Global consulta As Recordset
Sub Conecta()
Set banco = OpenDatabase("C:\endereço.mdb")
End Sub
Sub Desconecta()
Set banco = Nothing
Set consulta = Nothing
End Sub
...
- Código:
Dim ComandoSQL As String
'Armazena na variável o comando que fará a consulta SQL no BD Access
ComandoSQL = "select * from tabela_clientes"
'Chama a rotina que faz a conexão com o BD
Call Conecta
'Atribui a variável objeto de BD a execução dos comandos SQL
Set consulta = banco.OpenRecordset(ComandoSQL)
While Not consulta.EOF
id_teste = consulta(0)
consulta.MoveNext
Wend
Call Desconecta