CONTAR REGISTRO DE UM DBF URGENTETIIIIISSSSSIMO

OLAFEKORKAN 29/09/2009 09:45:13
#323930

Galera estou desenvolvendo uma aplicação aqui que precisa importar mensalmente os dados de um arquivo DBF.

Preciso mostrar o progresso em um ProgressBar (mas pra isso tenho que pegar a quantivade de registro no DBF só que não consigo).

ME AJUDEM PELO AMOR DE DEUS.

**** MINHA FUNÇÃO ****

[ô]para acessar o diretório/DBF
Function openDBFconn(path)
dim conn as connection
set conn = createobject([Ô]adodb.connection[Ô])
conn.open [Ô]provider=microsoft.jet.oledb.4.0;[Ô] & _
[Ô]data source=[Ô] & path & [Ô];[Ô] & _
[Ô]extended properties=[Ô][Ô]dbase iv;[Ô][Ô];[Ô]
set openDBFconn = conn
end function


[ô]abir recordset da tabela S_PA
Function
dim dbconn as connection
set dbconn = openDBFconn([Ô]C:\SIA[Ô])
dim rs_pa as recordset
set rs_pa = dbconn.execute([Ô]select * from [S_PA#DBF][Ô])

o negócio é que preciso pegar a quantidade de registro de: rs_pa

Mas quando eu tento pegar o RecordCount o resultado que vem é: -1

Podem me ajudar!
JSFF77 29/09/2009 10:08:09
#323932
Bom dia.

Amigo,

Teste o seguinte código, adaptando-o em seguida a sua aplicação:

rs_pa.MoveLast [ô]Posiciona no último registro
MsgBox rs_pa.RecordCount [ô]Exibe o total de registros
rs_pa.MoveFirst [ô]Posiciona no primeiro registro

Até mais.
TECLA 29/09/2009 10:18:32
#323934
Tente assim:

Dim rs_pa As New ADODB.Recordset
rs_pa.CursorLocation = adUseClient [txt-color=#0B610B][ô] Eis a linha chave para o RecordCount não retornar o -1[/txt-color]
rs_pa.Open [Ô]select * from [S_PA#DBF][Ô], conexao_ativa
MsgBox rs_pa.RecordCount
OLAFEKORKAN 29/09/2009 10:36:30
#323939
Galera!

O recordCount não retorna a quantidade de registro.
Só retorna ([txt-color=#df0101]-1[/txt-color])

Deu pra entender?
ASHKATCHUP 29/09/2009 10:46:17
#323941
Ou, faça o seguinte:


Rs_pa.MoveLast
msgbox Rs_pa.RecordCount
TECLA 29/09/2009 10:50:32
#323943
Citação:

OLAFEKORKAN escreveu:
Galera!

O recordCount não retorna a quantidade de registro.
Só retorna ([txt-color=#df0101]-1[/txt-color])

Deu pra entender?



Você testou o código?
Tópico encerrado , respostas não são mais permitidas
Voltar