PESQUISA EM REGISTO EM SQL

RCMRO 13/01/2010 09:02:31
#331743
Vamos ver se assim resolve o ser problema....
O [Ô]#[Ô] é para o caso da sua Base de Dados ser ACCESS. Se for SQLServer, troque o # por [ô] e a instrução
Dta = Format$(rs1.Fields([Ô]DtMov[Ô]), [Ô]mm/dd/yyyy[Ô])[Ô]
por
Dta = Format$(rs1.Fields([Ô]DtMov[Ô]), [Ô]yyyy/mm/dd[Ô])

Dim cont As Integer
Dim Dta As String
Dim Hra As String
Dim Pas As Integer
Dim ES as String
Dim StrSQL1 As String
Dim StrSQL2 As String

StrSQL1 = [Ô]SELECT DISTINCT TOP 10 [Data] AS DtMov FROM moventradas WHERE nrprocesso=[ô][Ô] + Str$(nrprocesso) & [Ô][ô] ORDER BY [Data] DESC[Ô]

rs1.Open StrSQL1, cnn
Do while Not rs1.EOF
    Cont = 0
    Dta = Format$(rs1.Fields([Ô]DtMov[Ô]), [Ô]mm/dd/yyyy[Ô])
    StrSql2 = [Ô]SELECT * FROM moventradas WHERE nrprocesso=[ô][Ô] + Str$(nrprocesso) + [Ô][ô] AND [Data] = #[ô] & Dta & [Ô]# ORDER BY [Horas] desc[Ô]
    rs2.Open STRSql2, cnn
   Do While Not rs2.EOF
        Cont = Cont + 1
        Dta = rs2.fields([Ô]data[Ô])
        Hra = Format(rs2.fields([Ô]horas[Ô]),[Ô]hh:nn:ss[Ô])
        Pas = rs.fields([Ô]tipo[Ô])
        If (Cont Mod 2) = 0 Then
            ES = [Ô]Saida[Ô]
        Else
            ES = [Ô]Entrada[Ô]
        End if
        List1.AddItem Dta & [Ô] - [Ô] & Hra & [Ô] - [Ô] & Pas & [Ô] - [Ô] & ES
        rs2.MoveNext 
    Loop
    rs2.Close
    rs1.MoveNext
Loop
rs1.Close
SMZTODOPODEROSO 13/01/2010 12:43:18
#331762
MUITO OBRIGADO RCMRO
Ficou a funcionar desta maneira, mas a tua dica foi crucial.


StrSQL1 = [Ô]SELECT Data AS DtMov FROM moventradas WHERE nrprocesso LIKE [ô]%[Ô] + Str$(nrprocesso) + [Ô]%[ô] ORDER BY Data DESC LIMIT 0 , 10[Ô]
rs1.Open StrSQL1, cnn

Do While Not rs1.EOF
cont = 0

cvbn = rs1.fields([Ô]DtMov[Ô])
Dta = Format(rs1.fields([Ô]DtMov[Ô]), [Ô]YYYY/MM/DD[Ô])
StrSQL2 = [Ô]SELECT * FROM moventradas WHERE nrprocesso LIKE [ô]%[Ô] + Str$(nrprocesso) + [Ô]%[ô] AND data LIKE [ô]%[Ô] + Dta + [Ô]%[ô] order by horas desc[Ô]
rs2.Open StrSQL2, cnn
Do While Not rs2.EOF
cont = cont + 1
conti = conti + 1
If conti = 10 Then
rs2.Close
rs1.Close
GoTo fim
End If
Dta = rs2.fields([Ô]data[Ô])
Hra = Format(rs2.fields([Ô]horas[Ô]), [Ô]hh:nn:ss[Ô])
Pas = rs2.fields([Ô]tipo[Ô])
If (cont Mod 2) = 0 Then
ES = [Ô]Saida[Ô]
Else
ES = [Ô]Entrada[Ô]
End If


datinha = Dta
temper = Hra
passagem = Pas


If passagem = 0 Then
RESULTADO = [Ô]Passagem não autoriada[Ô]
End If
If passagem = 1 Then
RESULTADO = [Ô]Passagem Normal[Ô]
End If



Label6.Caption = Label10.Caption
Label7.Caption = Label11.Caption
Label8.Caption = Label12.Caption
Label9.Caption = Label13.Caption
Label43.Caption = Label44.Caption

...................

Label34.Caption = Label38.Caption
Label35.Caption = Label39.Caption
Label36.Caption = Label40.Caption
Label37.Caption = Label41.Caption
Label50.Caption = Label51.Caption

Label38.Caption = datinha
Label39.Caption = temper
Label40.Caption = nrprocesso
Label41.Caption = RESULTADO
Label51.Caption = ES



rs2.MoveNext
Loop
rs2.Close
rs1.MoveNext
Loop
rs1.Close

fim:
Página 2 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar