COMO GERAR E MOSTRAR TOTAL DE TABELA EM UM FORM?

USUARIO.EXCLUIDOS 10/03/2004 20:12:04
#14898 Resposta escolhida

Para fazer isso vc nem precisa do ADO...

Apenas declare duas variaveis, uma para o banco de dados e outra para a tabela:
Depois atribua os valores dela no evento (form_load);
depois use o comando "tabela.recordcount", isso retorna a quantidade de registros da tabela.

Obs.: Ir no menu Project/References marcar a opção Microsoft DAO 3.51
Isso para as variaveis não darem problema...

EXEMPLO.: SIMPLES... Crie um form com uma caixa de texto e uma textbox. Crie a base de dados... depois nos códigos copie e cole isso.

'declara a variavel banco como base de dados (Database).
Dim banco As Database
'declara a variavel tabela para receber os dados de uma tabela (Recordset).
Dim tabela As Recordset
'no evento load do formulário
Private Sub Form_Load()
'seta a variavel banco para abri a conexão, "app.path" retorna o caminho
'onde está salvo o projeto, a base tem que se chamar banco.mdb e estar salva no
'mesmo diretório
Set banco = OpenDatabase(App.Path & "\banco.mdb")
'seta a variavel tabela para receber a tabela desejada, no nossa caso TbPaciente
Set tabela = banco.OpenRecordset("TbPaciente")
End Sub
'no evento click do botão...
Private Sub Command1_Click()
'a caixa de texto recebe a quantidade de registros da tabela (tabela.recordcount)
Text1.Text = tabela.RecordCount
End Sub