|
|
Postada em 20/03/2005 17:57 hs
Outra coisa, se vc usa DAO a função recordcount as vezes é necessária uma "correria" na tabela: tabela.moveMax tabela.moveMin tabela.recordcount Se for ADO, o melhor mesmo é uma query com count: tb.open "select count(*) as conta from tabela", conn msgbox tb!conta e era isso. |
|
|
|
|
|
|
|
Postada em 10/04/2005 08:18 hs
Até agora nenhuma resposta funcionou! Não estou usando o ADO, e sim o Microsoft DAO 3.6 Object Library Criei uma instrução SQL de consulta e abrir a tabela da seguinte forma: Set Rs = db.OpenRecordset(strSQl) Preciso saber o nº de registro da tabela consultada para acrescentar uma barra de progresso enquanto o sistema efetua a busca. Como trata-se de várias tabelas e cada uma com uma quantidade de registro diferente, preciso de uma fórmula para efetuar esta contagem de registros. |
|
|
|
screech
|
PORTO ALEGRE
RS - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 11/04/2005 01:32 hs
Com ADODim sSQL As StringsSQL = "SELECT * FROM Tabela"rst.Open sSQL, SuaConexaoADO, adOpenKeyset, adLockOptimisticMsgbox rst.RecordCountSet rst=Nothing 'Libera o RecordSet
--------------------------------------
Screech 
"Programar é arte..."
|
|
|
|
|
|
Postada em 21/04/2005 18:13 hs
O objeto DAO 3.6 não suporta a propriedade RecordCountSet e sim RecordCount! Não FUNCIONOU! |
|
|
|
chicovieira
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 21/04/2005 18:50 hs
Tenho um programa que conta todos os registros ativos. Só que o banco de dados é chamado pelo <DataControl>. Tente assim: Dim R As Integer
Data1.Recordset.MoveMin
R = Data1.Recordset.RecordCount
MsgBox "Com base no parâmetro solicitado" & Chr(13) & "existem <" & Str(R) & " > fichas cadastradas.", vbInformation, " Contagem de registros"
End If |
|
|
|
|
|
Postada em 22/04/2005 01:21 hs
Tente não usar o sql Cria uma variável e abra o banco de dados mova para o primeiro registro e depois vá movendo um por um até o final do arquivo, ficaria algo assim: Dim Contador Contador=0 While not tabela.eof contador=contador+1 tabela.movenext wend msgbox "Existem "&contador& " registros cadastrados",vbexclamation
Abraço e que DEUS te abençõe, espero poder ter te ajudado 
Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13
|
|
|
|
