dao recordset

[abiale]

scrivendo...

Data1.RecordSource = "select * from fatture where year(data) = '" & _
Year(Text14.Text) & "' and numero = '" & _
Text13.Text & "' order by id desc"
Data1.Refresh_

.... acnhe se sono più i record che soddisfano la selezione..... me ne vede sempre e solo 1 : data1.recordset.recordcount = sempre a 1

AIUTO Per favore
VBSP5

[ladyBlu]

Data1.RecordSource = "select * from fatture where " & _
             "year(data) = "' & Year(Text14.Text) & "'" & _ 
             "and numero = '" & Text13.Text & "'" & _ 
             "order by id desc" 

Data1.MoveLast
Data1.MoveFirst

Data1.Refresh

se esitono questi due metodi per l'oggetto Data allora dovresti aver risolto.
DAO necessita di quel trucchettino per avere tutti i record a disposizione.

[abiale]

nulla hai corretto te....
cmq vuoi dire data1.recordset.movelast penso...

[ladyBlu]

Originariamente inviato da abiale
cmq vuoi dire data1.recordset.movelast penso...

si, esatto.
Scusami ma non ho mai usato l'oggetto Data quindi non conosco bene le proprietà.
Comunque si, dovrebbe andare bene
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst

[abiale]

niente da fare .... sempre e solo 1 .... ora posto l'intero pezzo

label17.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""

Text20.Text = ""
Text21.Text = ""

dbcombo1.Text = ""
Data1.RecordSource = "select * from fatture where year(data) = '" & _
Year(Text14.Text) & "' and numero = '" & _
Text13.Text & "' order by id desc"
Data1.Refresh
If Data1.Recordset.RecordCount <> 0 Then
Call disabilita
Label13.Caption = Data1.Recordset("numero")
apunto = Data1.Recordset("id")
label17.Text = Data1.Recordset("data")
Text12.Text = Data1.Recordset("id")
dbcombo1.Text = Data1.Recordset("cliente")
Label7.Caption = Data1.Recordset("imponibile")
Label9.Caption = Data1.Recordset("iva")
Label11.Caption = Data1.Recordset("totale")
Label2.Caption = Data1.Recordset("enpa")
Label12.Caption = Data1.Recordset("ritenuta")

Data3.RecordSource = "select * from prestazioni where numero = '" & _
apunto & "'"
Data3.Recordset.MoveLast
Data3.Recordset.MoveFirst

Data3.Refresh
a = Data3.Recordset.RecordCount


If a = 6 Then
Text20.Text = Data3.Recordset("testo")
Text6.Text = Data3.Recordset("prezzo")
Data3.Recordset.MoveNext
Text21.Text = Data3.Recordset("testo")
Text5.Text = Data3.Recordset("prezzo")
Data3.Recordset.MoveNext
Text1.Text = Data3.Recordset("testo")
Text10.Text = Data3.Recordset("prezzo")
Data3.Recordset.MoveNext
Text2.Text = Data3.Recordset("testo")
Text9.Text = Data3.Recordset("prezzo")
Data3.Recordset.MoveNext
Text3.Text = Data3.Recordset("testo")
Text8.Text = Data3.Recordset("prezzo")
Data3.Recordset.MoveNext
Text4.Text = Data3.Recordset("testo")
Text7.Text = Data3.Recordset("prezzo")
End If
If a = 5 Then
Text20.Text = Data3.Recordset("testo")
Text6.Text = Data3.Recordset("prezzo")
Data3.Recordset.MoveNext
Text21.Text = Data3.Recordset("testo")
Text5.Text = Data3.Recordset("prezzo")
Data3.Recordset.MoveNext
Text1.Text = Data3.Recordset("testo")
Text10.Text = Data3.Recordset("prezzo")
Data3.Recordset.MoveNext
Text2.Text = Data3.Recordset("testo")
Text9.Text = Data3.Recordset("prezzo")
Data3.Recordset.MoveNext
Text3.Text = Data3.Recordset("testo")
Text8.Text = Data3.Recordset("prezzo")
End If
If a = 4 Then
Text20.Text = Data3.Recordset("testo")
Text6.Text = Data3.Recordset("prezzo")
Data3.Recordset.MoveNext
Text21.Text = Data3.Recordset("testo")
Text5.Text = Data3.Recordset("prezzo")
Data3.Recordset.MoveNext
Text1.Text = Data3.Recordset("testo")
Text10.Text = Data3.Recordset("prezzo")
Data3.Recordset.MoveNext
Text2.Text = Data3.Recordset("testo")
Text9.Text = Data3.Recordset("prezzo")
End If
If a = 3 Then
Text20.Text = Data3.Recordset("testo")
Text6.Text = Data3.Recordset("prezzo")
Data3.Recordset.MoveNext
Text21.Text = Data3.Recordset("testo")
Text5.Text = Data3.Recordset("prezzo")
Data3.Recordset.MoveNext
Text1.Text = Data3.Recordset("testo")
Text10.Text = Data3.Recordset("prezzo")
End If
If a = 2 Then
Text20.Text = Data3.Recordset("testo")
Text6.Text = Data3.Recordset("prezzo")
Data3.Recordset.MoveNext
Text21.Text = Data3.Recordset("testo")
Text5.Text = Data3.Recordset("prezzo")
End If
If a = 1 Then
On Error Resume Next
Text20.Text = Data3.Recordset("testo")
Text6.Text = Data3.Recordset("prezzo")
End If
Frame2.Visible = False
Toolbar1.Enabled = True
Else
MsgBox "fattura non trovata"
End If

[ladyBlu]

aspe'...
il campo numero è sicuramente numerico visto il nome esplicativo che gli hai dato...:gren:
ma è un long o un integer?
tu fai un filtro su un campo numerico passandogli una stringa, e poi metti una & in meno nella concatenazione del valore "apunto" da cercare, guarda:

Data3.RecordSource = "select * from prestazioni where " & _
             "numero = '" & _ 
              apunto & "'"

la sintassi corretta è questa:

Data3.RecordSource = "select * from prestazioni where " & _
      "numero = " & CLng(apunto) 'o CInt

[abiale]

questo fatto e quello dell'altro mio post "record datareport" mi hanno appena convinto che questo sia l'ultimo software in vb ...... d'ora in avanti viva DELPHI !!!

[ladyBlu]

Originariamente inviato da abiale
questo fatto e quello dell'altro mio post "record datareport" mi hanno appena convinto che questo sia l'ultimo software in vb ...... d'ora in avanti viva DELPHI !!!

non devi scoraggiarti in questo modo. le difficoltà le incontrerai sempre e in qualunque campo... tutto sta nell'impegnarsi a superarle al meglio.

hai letto il mio ultimo post?

[abiale]

numero è un campo testo.....
cmq le informazioni dell'unico record sono tutte giuste.... non capisco perchè pero ne sia solo 1
questi record formano tutti insieme la tabella delle "prestazioni" di una fattura"

[ladyBlu]

Originariamente inviato da abiale
numero è un campo testo.....
cmq le informazioni dell'unico record sono tutte giuste.... non capisco perchè pero ne sia solo 1
questi record formano tutti insieme la tabella delle "prestazioni" di una fattura"

hai provato a passargli un altro valore?