LABEL.

WILLIAN762 09/05/2006 13:46:24
#145757
Ola pessoal como eu faço, para que o label me informe a quantidade de registro que foi localizado no meu banco?
O meu banco de dados e access 2000.
Desde ja eu agradeço, vlw e t+...
USUARIO.EXCLUIDOS 09/05/2006 13:57:05
#145759
Vc quer dizer os registros de todas as tabelas?

Se for de uma tabela so, vc pode usar o COUNT, exemplo ADO:

Dim rst as New ADODB.Recordset
rst.Open "SELECT COUNT(*) FROM TABELA", cn
If Not rst.EOF Then
  Label1 = rst(0) & " registro(s) encontrado(s)"
Else
  Label1 = "Nenhum registro encontrado"
End If


Pra pegar de todo BD, creio q a unica maneira seja pegando cada tabela e dpois somando os valores...

Qualquer dúvida volte a postar...flw...
USUARIO.EXCLUIDOS 09/05/2006 14:11:25
#145765
oi ainda:

dim registros as integer
Dim rst as New ADODB.Recordset
rst.Open "SELECT COUNT(*) FROM TABELA", cn, registros
If Not rst.EOF Then
Label1 = registros
Else
Label1 = "0"
end if
WILLIAN762 09/05/2006 14:38:33
#145771
Esta dando conflito nos codigos, e ainda nao consegui.
USUARIO.EXCLUIDOS 09/05/2006 14:42:22
#145773
como assim dando conflitos? Explique melhor.
FORMIGINHA 09/05/2006 15:03:03
#145776
tente assim :

Dim ContaRegistros As Long '(Long obrigatório para contador de BD)
ContaRegistros = Data1.Recordset.RecordCount
If ContaRegistros > 0 Then
Data1.Recordset.MoveFirst
Data1.Recordset.MoveLast
ContaRegistros = Data1.Recordset.RecordCount
Label5.Caption = ContaRegistros 'Vai exibir o número de registros
Data1.Recordset.MoveFirst
End If

eu uso este e nunca deu problema.

t+
WILLIAN762 09/05/2006 16:16:34
#145800
Eu nao quero contar todos os registros da minha tabela!
Assim, eu criei uma ferramenta pra mim, que e a localização de cep, e eu faço a localização normal, mas eu quero saber se tem mais de um cep igual cadastrado no banco, e quero visualizar no label.
USUARIO.EXCLUIDOS 09/05/2006 16:26:28
#145801
visualizar no label....pq num label? e se for mais de um registro duplicado?
WILLIAN762 09/05/2006 17:22:28
#145814
E que assim, eu trabalho para uma empresa de telemarketing,então o cep ele pode ter dois registro, so que um pra uma campanha e o outro para a outra campanha.
No caso o label ira aparecer a seguinte msg:
Exemplo:"02 registros encontrados" eu irei verificar se e para a mesma campanha, a casos do mesmo cep, ser cadastrado para a mesma campanha, so que depois de uns 05 meses +ou-.
Isso ira facilitar o cadastro de cep.
RENATOBELETTI 09/05/2006 23:04:17
#145851
ou vc pode usar o seguinte usando DAO.

function Conta()
Set Tabela = Banco.OpenRecordSet("select * from tabela where cep = '" & cep & "'",dbOpenTable)
total = Tabela.RecordCount

If total = 0 then exit function
if total >= 2 then
label.caption="Foram encontrados " & total & " registros!"
else
label.caption="Foi encontrado " & total & " registro!"
end if
end function
WILLIAN762 10/05/2006 09:35:49
#145883
Eu uso o ADO.
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar