Korn
|
SAO PAULO
SP - BRASIL
|
|
Postada em 04/01/2007 17:41 hs
O Codigo é totalmente diferente de ADO, mas vou tetnar transferir
Jesus Cristo é O Senhor!!!
|
|
|
|
|
|
Korn
|
SAO PAULO
SP - BRASIL
|
|
Postada em 08/01/2007 10:25 hs
Jesus Cristo é O Senhor!!!
|
|
|
|
PH1959
|
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
|
|
Postada em 09/01/2007 17:19 hs
eu falei q era só substituir.. DIM LISTA AS VARIANT
agora no seu procedure...
Dim Tabela As New ADODB.Recordset
Set Tabela = New ADODB.Recordset
ssql= "select * from casas where Int(data_aluguel) = " & Day(Date)
Tabela.Open ssql, cnBd, adOpenKeyset, adLockBatchOptimistic
do until tabela.eof
tabela.movenext
loop
n=tabela.recordcount 'PEGOU A QTDE DE REGISTROS
tabela.close
'REDIMENSIONA A VARIAVEL COM A QTDE DE REGISTROS
redim LISTA(n)
'Agora carrega os dados...
Tabela.Open ssql, cnBd, adOpenKeyset, adLockBatchOptimistic
i=0
do until tabela.eof
i=i+1
LISTA(i)=tabela("Valor")
tabela.movenext
loop
tabela.close
SE VC PRECISAR DE + Campos vc redimensiona a lista com mais campos ex campo codigo e campo valor
redimensiona
REDIM LISTA(1,n)
para carregar vc vai usar ...
LISTA(0,i)=tabela("cód")
Lista(1,i)=tabela("valor")
|
|
|
|
Korn
|
SAO PAULO
SP - BRASIL
|
|
Postada em 09/01/2007 17:47 hs
Ta certo eu substitui, mas nao aconteceu nada irmao
Jesus Cristo é O Senhor!!!
|
|
|
|
Korn
|
SAO PAULO
SP - BRASIL
|
|
Postada em 09/01/2007 17:55 hs
mas o problema é que esse capo Data_Aluguel , é um campo texto , ele nao é data , ele armazena todo dia de cada mes que se paga uma parcela , tipo todo dia 12 de cada mes, mais nada , entao nao sei como proceder, porque o campo Data_Entrada , no banco tambem é texto, e ele armazena a data Inicial de uma conta que vais er parcela em 4 vezes por exemplo, entao, imagina que essa conta vai ser paga de trimestre em trimestre, eu nao sei como reconhecer o dia e mes certo que a conta vencendo, desculpa alguma coisa
Jesus Cristo é O Senhor!!!
|
|
TÓPICO EDITADO
|
|
|
|
|
