Consultar quantidade de registros no BD

2024 - Integração Excel & Access 2024

Post Recente por Fernando Fernandes 8 anos atrás

4 Posts

2 Usuários

0 Reactions

1,899 Visualizações

RSS

engeel2014

(@engeel2014)

Posts: 207

Estimable Member

Topic starter

Boa noite pessoal, estou desenvolvendo um formulário com interação com Banco de Dados Access, porém estou tentando fazer uma consulta e não estou tendo resultados.

Quero contar a quantidade de registros no meu banco de dados na planilha "Dados" na coluna "NS" e que este valor apareça na variável "quant" que está dentro do meu código no excel VBA. Quando executo meu código abaixo a variável "quant" me retorna valor "0".

Abaixo código que fiz para fazer a consulta:

Sub teste()
Dim ComandoSQL As String
Dim quant As Integer
ComandoSQL = "select count(NS) as quant from Dados"
Call Conecta
Set consulta = banco.OpenRecordset(ComandoSQL)
Call Desconecta
MsgBox quant
End Sub

Obrigado.

Lucélio Ferreira dos Santos
Eng. Eletricista
CREA: DF-7165/TD
[email protected]

Postado : 04/03/2017 10:33 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Se Dados é uma planilha excel não uma tabela access, experimente "select count(NS) as quant from $Dados"

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 05/03/2017 5:43 am

engeel2014

(@engeel2014)

Posts: 207

Estimable Member

Topic starter

Boa tarde Reinaldo, Obrigado por sua resposta.

A sua sugestão não deu certo. Estou anexando o fomulário e o meu banco de dados para que você possa ver o que ocorre.
Quanto o formulário é iniciado, gostaria de carregar no formulário a quantidade de registros do meu banco. Veja que já implementei o código, mas não me retorna o valor desejado. Inicie o formulário e cadastre um ou mais itens e depois feche. Depois inicie o formulário novamente, ai teria que aparecer a quantidade de itens do banco de dados no Label Quant do formulário, mas este valor não aparece. Pode me ajudar como resolver este meu problema?

Inserir o código abaixo no evento UserForm_Initialize do formulário:

Dim ComandoSQL As String
ComandoSQL = "select count(NS) as quant from Dados"
Call Conecta
Set consulta = banco.OpenRecordset(ComandoSQL)
Call Desconecta

Versão6.zip

Lucélio Ferreira dos Santos
Eng. Eletricista
CREA: DF-7165/TD
[email protected]

Postado : 05/03/2017 2:26 pm