ARRAY DE PESQUISA NO BD
ola pessoal eh o seguinte quero pegar as informacoes do bd com as seguintes condicoes porem nao sei como fazer este array???
quero pegar do banco os registros que contenham na posicao quatro 0360
porem existem mais de um registro e nao sei como fazer o sql disso ou como armazenar apenas o que eu preciso...o codigo esta assim!!!
Set rsDetalhes = New ADODB.Recordset
rsDetalhes.Open sDetalhes, cnConexao, adOpenForwardOnly, adLockReadOnly
i = rsDetalhes.RecordCount
rsDetalhes.MoveFirst
Do While rsDetalhes.EOF = False
pAgencia = Mid(rsDetalhes!Codeline, 4, 4)
If txtAgencia.Text = pAgencia Then
For i = 1 To 50
chCustodia(i) = rsDetalhes!ID_Doc
chfound = True
Next i
End If
rsDetalhes.MoveNext
Loop
nao sei como fazer um array???
quero pegar do banco os registros que contenham na posicao quatro 0360
porem existem mais de um registro e nao sei como fazer o sql disso ou como armazenar apenas o que eu preciso...o codigo esta assim!!!
Set rsDetalhes = New ADODB.Recordset
rsDetalhes.Open sDetalhes, cnConexao, adOpenForwardOnly, adLockReadOnly
i = rsDetalhes.RecordCount
rsDetalhes.MoveFirst
Do While rsDetalhes.EOF = False
pAgencia = Mid(rsDetalhes!Codeline, 4, 4)
If txtAgencia.Text = pAgencia Then
For i = 1 To 50
chCustodia(i) = rsDetalhes!ID_Doc
chfound = True
Next i
End If
rsDetalhes.MoveNext
Loop
nao sei como fazer um array???
explique com mais precisão o problema para podermos melhor te ajudar, explique a finalidade de array, os valores a serem comparados e a SQL, talvez só com a sql já seja suficiente
rsdetalhes.movefirst
Dim contador(0 to rsdetalhes.recordcount)
for i = 0 to rsdetalhes.recordcount
contador(i) = rsdetalhes(x)
rsdetalhes.movenext
next i
substitua x pelo numero do campo ao qual você quer guardar a informação(apenas o numero)
Dim contador(0 to rsdetalhes.recordcount)
for i = 0 to rsdetalhes.recordcount
contador(i) = rsdetalhes(x)
rsdetalhes.movenext
next i
substitua x pelo numero do campo ao qual você quer guardar a informação(apenas o numero)
Tópico encerrado , respostas não são mais permitidas