Alvaro
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 25/04/2009 18:52 hs
Estou com o seguinte problema.
Estou testando o ACCESS 2007 com o VB 6 com a função abaixo
Obs. já selecionei em Project / Reference
Microsoft access 12.0 Object Library
Microsoft OLE DB Sevice Component 1.0 Type Library
Public Sub LerTabela()
Dim conexao As ADODB.Connection
Dim rec As ADODB.Recordset
Dim esql As String
Set conexao = New ADODB.Connection
Set rec = New ADODB.Recordset
conn.Open "Provider =Microsoft.Ace.OLEDB.12.0;Data _ Source=C:DADOSDADOS.accdb;Persist Security Info=False"
esql = "select * from Clientes"
‘ Obs Já tentei as duas linhas abaixo
‘rec.Open esql, conn, adOpenDynamic, adLockOptimistic
Set rec = conn.Execute(esql)
Msgbox (rec.recordcount) ‘ Resulta sempre –1,mas a tabela tem 6 registros.
End sub
Onde foi que eu errei.
|
|
|
|
|
|
Jesuel
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/04/2009 20:21 hs
Amigo tente usar fazer referencia ao ADO Project / Reference Microsoft Activex Data Objects 2.5 em diante. Jesuel... |
|
|
|
Alvaro
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/04/2009 14:33 hs
Usei o 2.5 eo 2.8 nao funcionou.
|
|
|
|
Croda
|
OSASCO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 01/07/2009 08:42 hs
Alvaro,
Não sei se já conseguiu resolver este problema, mas eu já tive e solucionei da seguinte forma.
O motivo de não retornar a quantidade de registros eu não sei, porem funcionou!!!
Troque os parâmetros de acesso para o CursorType e LockType
tabela.open "query", conection, adOpenStatic, adLockOptimistic
Eu utilizo sempre como padrão o CursorType e LuckType sempre com o número... no caso 3, 3.
Espero ter ajudado.
Abraço.
|
|
|
|
André Pimentel
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 14/07/2009 14:05 hs
Alvaro, tenta mudar o tipo do recordset de dynamic para static. |
|
|
|
