Contador de registros de uma tabela

[vini_wmcgroup 0]

Bom mais uma vez venho com uma duvida talvez bem leiga para vcs.

 

Eu estou tentando contar quantos registros existem numa tabela de access.

o codigo do meu programa por enquanto esta assim

 

Private Sub cmd1_Click()
Dim codigooo1 As String
Dim contador As Integer

	codigooo1 = "select * from chamaodos where codee=" & Val(Text4.Text)
	Set tbl3 = bd.OpenRecordset(codigooo1)
	If tbl3.RecordCount = 0 Then
    	MsgBox "Codigo inexistente", vbInformation + vbOKOnly, "Banco de Dados"
    	Text4.SetFocus
	Else
    	Text1.Text = tbl3("chama")
    	Text3.Text = tbl3("data")
    	Text2.Text = tbl3("logon")
    	Text5.Text = tbl3("situation")
    	End If
	tbl3.Close
End Sub

Private Sub cmd3_Click()
Dim ssql As String
	ssql = "select * from chamaodos where codee=" & Val(Text4.Text)
	Set tbl = bd.OpenRecordset(ssql)
	If tbl.RecordCount = 0 Then
    	MsgBox "Codigo Inexistente", vbInformation + vbOKOnly, "Banco de Dados"
    	Text4.SetFocus
Else
    	ssql = "Update chamaodos set "
    	ssql = ssql & "chama 56b =" & "'" & Trim(Text1.Text) & "',"
    	ssql = ssql & "data =" & "'" & Trim(Text3.Text) & "',"
    	ssql = ssql & "situation =" & "'" & Trim(Text5.Text) & "',"
    	ssql = ssql & "logon =" & "'" & Trim(Text2.Text) & "'" & "where codee=" & Val(Text4.Text)
    	
    	bd.Execute ssql
    	
    	MsgBox "Operação concluida com sucesso!", vbInformation + vbOKOnly, "Banco de Dados"
	
	End If
	
	tbl.Close

End Sub< ad6 br /> 
Private Sub cmd4_Click()
Dim ssql9 As String
	ssql = "select * from chamaodos where codee=" & Val(Text4.Text)
	Set tbl = bd.OpenRecordset(ssql)
	If tbl.RecordCount = 0 Then
    	MsgBox "Codigo Inexistente", vbInformation + vbOKOnly, "Banco de Dados"
    	Text4.SetFocus
    	End If
   		Dim Response As Integer

        	Response = MsgBox("Deseja realmente excluir o chamado", vbInformation + vbYesNo, "Cuidado")

        	If Response = vbYes Then
   		ssql9 = "delete from chamaOdos where CODEE=" & Val(Text4.Text)
    	Text1.Text = Empty
    	Text2.Text = Empty
    	Text3.Text = Empty
    	Text4.Text = Empty
    	Text5.Text = Empty
    	
    	bd.Execute (ssql9)
    	MsgBox "Operação concluida com sucesso!", vbInformation + vbOKOnly, "Banco de Dados"
    	
    	ElseIf Response = vbNo Then
    	Text1.Text = Empty
    	Text2.Text = Empty
    	Text3.Text = Empty
    	Text4.Text = Empty
    	Text5.Text = Empty
        	End If
    	
    	

	tb 56b l.Close
End Sub

Private Sub cmd2_Click()
  	
	str1 = "select * from chamaodos where codee=" & Val(Text4.Text)
	Set tbl = bd.OpenRecordset(str1)
	If tbl.RecordCount <> 0 Then
    	MsgBox "Codigo Existente", vbInformation + vbOKOnly, "Banco de Dados"
    	Else
    	str1 = "insert into chamaodos values("
    	str1 = str1 & "'" & Trim(Text1.Text) & "',"
    	str1 = str1 & "'" & Trim(Text3.Text) & "',"
    	str1 = str1 & "'" & Trim(Text5.Text) & "',"
    	str1 = str1 & "'" & Trim(Text2. 56b Text) & "',"
    	str1 = str1 & "'" & Trim(Text4.Text) & "')"
   		
    	bd.Execute (str1)
    	
    	MsgBox "Operação concluida com sucesso!", vbInformation + vbOKOnly, "Banco de Dados"
    	
    	Text1.Text = Empty
    	Text2.Text = Empty
    	Text3.Text = Empty
    	Text4.Text = Empty
    	Text5.Text = Empty
        	End If
  tbl.Close
  Unload Me
  form2.Show vbModal
  
End Sub

Private Sub Commancmd5d3_Click()
Unload Me
form2.Show vbModal
140 End Sub

e no modulo:

 

Public bd As Database
Public tbl As Recordset
Public tbl3 As Recordset
Public tbl2 As Recordset
Public ssql As String
Public ssql2 As String
Public logon1 As String
Public unic As Long

Port 2de anto preciso contar quantos "logon" há na tabela chamaodos sempre que eu abrir esse form...

To quebrando a cabeça há dois dias e não rola ateh agora

[vini_wmcgroup 0]

Eaaateh agora ngm manja disso???

[Mário Monteiro 179]

A estrutura de sua tabela não permite um simples SELECT COUNT(ID) ... ?

[vini_wmcgroup 0]

A estrutura de sua tabela não permite um simples SELECT COUNT(ID) ... ?

 

Como fazer isso no vb6?

[Anderson Roberto 0]

 

A estrutura de sua tabela não permite um simples SELECT COUNT(ID) ... ?

 

Como fazer isso no vb6?

 

Substitua o "Select * From..." por "Select COUNT(ALGUM_CAMPO) From..."

[vini_wmcgroup 0]

 

 

A estrutura de sua tabela não permite um simples SELECT COUNT(ID) ... ?

 

Como fazer isso no vb6?

 

Substitua o "Select * From..." por "Select COUNT(ALGUM_CAMPO) From..."

 

Ok, como fazer agora pra uma label exibir o valor da contagem ?

[Anderson Roberto 0]

Exemplo

SELECT COUNT(linhas) AS total_linhas FROM tabela

[Mário Monteiro 179]

o que você selecionar você exibe

[Dee 0]

Só resgatar o campo do SELECT.

Select Count(Campo) as Total_Registros From Tabela

Daí você executa o Select... RecordSet e resgata o campo.

 

Tabela("Total_Registros")