|
|
Postada em 22/06/2014 21:27 hs
Olá boa noite,
Gostaria de saber se o VB 6 funciona com o Access 2007.
Desde já agradeço.
Luciano
Luciano
|
|
|
|
|
|
ED - Claret
|
SÃO JOSE DO RIO PRETO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 10/07/2014 15:04 hs
Funciona.... no Seven ele dá pau, não sei porque |
|
|
|
|
|
Postada em 16/07/2014 11:49 hs
Ola ED - Claret,
Obrigado pela resposta, consegui acessar o access 2007 e até gravar registros;
Agora estou com problema para fazer a consulta via DAO, qdo o Data tenta acessar o banco de dados dá o erro nº 3343 na linha 0 - unrecongnized database formate gerado por DAO.workspace
Desde já agradeço.
Luciano.
|
|
|
|
|
|
Postada em 16/07/2014 11:49 hs
Ola ED - Claret,
Obrigado pela resposta, consegui acessar o access 2007 e até gravar registros;
Agora estou com problema para fazer a consulta via DAO, qdo o Data tenta acessar o banco de dados dá o erro nº 3343 na linha 0 - unrecongnized database formate gerado por DAO.workspace
Desde já agradeço.
Luciano.
|
|
|
|
dr.X
|
BELO HORIZONTE
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 27/07/2014 15:49 hs
Amigo, beleza ?
Só uma sugestão: Comece a pensar em ADO. É muito mais tranquilo. Segue um exemplo funcional para você ir estudando e implementando:
Em um form principal você indexa o ADO e nomeia "meuAdo"
Cria um módulo: "meuMod"
Cola nele estas linhas:
'conexão
Public dbCon As Adodb.Connection
'recorsets
Public rsCLIENTE As Adodb.Recordset
'conectar
Sub Conectar()
Set dbCon = CreateObject("ADODB.Connection")
'access2007
dbCon.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "dbCon.mdb;" 'Jet " & "OLEDB:Database Password="";"
Set rsCLIENTE = CreateObject("ADODB.Recordset")
rsCLIENTE.CursorLocation = adUseClient
End Sub
Nos forms você simplesmente declara a sub "Conectar" e mais isso:
'Neste caso, estou carregando uma combobox com os nomes dos clientes.
Sub CAR_CLIENTES()
Conectar
Set rsCLIENTE.ActiveConnection = dbCon
rsCLIENTE.Open "select * from tb_clientes", dbCon, adOpenStatic, adLockOptimistic
cboCli.Clear
Do While Not rsCLIENTE.EOF
cboCli.AddItem rsCLIENTE!NOME_CLIENTE
rsCLIENTE.MoveNext
Loop
End Sub
Espero ter ajudado.
|
|
TÓPICO EDITADO
|
|
|
|
