Array dinâmico e Select...Count...

[Edwilson Curti 0]

Prezados Colegas,

 

Preciso que me dêem uma mão no seguinte:

Defini um array no meu sistema, mas o tamanho dele deverá ser dinâmico, ou seja, deverá possuir o tamanho de acordo com uma determinada ocorrência dentro do BD.

Nem maior e nem menor.

 

Tenho a seguinte query:

 

"Select count(*) From PERGUNTAS Where COD_PESQ = '" & codpesq2 & "';"

 

O que desejo é que seja contado quantos registros existem, cujo COD_PESQ seja igual a codpesq2.

Quero que o valor da contagem (Select...count...) seja armazenado em uma variável, pois esta váriavel que armazenou o valor da contagem é quem vai definir o tamanho do array, entenderam?

Como fazer para que o valor apurado pela query acima, seja armazenado em uma variável???

 

Aguardo vcs...

[Marhault 1]

Creio que seja isso...

 

Dim conexao As Connection
Dim rs As Recordset
Dim quantidade as Integer

Set conexao = New Connection
Set rs = New Recordset

conexao.ConnectionString = "sua string de conexao"
conexao.Open

rs.CursorType = adOpenStatic
rs.CursorLocation = adUseServer
rs.LockType = adLockOptimistic
rs.Open "Select * From PERGUNTAS Where COD_PESQ = '" & codpesq2 & "';"
	
quantidade = rs.RecordCount

rs.Close
conexao.Close

Set rs = Nothing
Set conexao = Nothing