[VB6]: Riempire ListView in dettaglio...

[vr-claudio]

Ciao ragazzi,
pochi giorni fa Gibra mi aiuto' a sistemare un problema legato alla ricerca dei record;

http://forum.html.it/forum/showthrea...readid=1338209

...e chiaramente è stato un successo!

Ora v'invio un codice che mi dovrebbe riempire una ListView tramite la funzione SELECT ma penso che non sia giusto, gentilmente dategli un'occhiata e fatemi sapere:

Sub Apertura_DB1()
Set conn = New ADODB.Connection
With conn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & "C:\...\DB.mdb"
.Mode = adModeRead
.Open
End With

Set rs = New ADODB.Recordset
Dim strSQL As String

strSQL = "SELECT * FROM DB_FATTURE WHERE DATA_FATTURA BETWEEN #" & Label32.Caption & "# AND #" & Label33.Caption & "# AND RIFERIMENTO NOT LIKE'ANNULLATA%' AND (RIFERIMENTO LIKE'DA PAGARE%' OR RIFERIMENTO LIKE'PAGATA%')"
rs.Open strSQL, conn, adOpenKeyset, adLockReadOnly
Call Apertura_ListView
End Sub

Sub Apertura_ListView()
Dim db As ADODB.Connection
Dim S As ADODB.Recordset
Dim strCnn As String
Dim objItem As ListItem
Dim NumeroChar As Double
Dim i
LsVw1.ColumnHeaders.Clear
LsVw1.ListItems.Clear
LsVw1.View = lvwReport
LsVw1.ColumnHeaders.Add , , "ID", (LsVw1.Width / 1000)
LsVw1.ColumnHeaders.Add , , "N°:", (LsVw1.Width / 2.7)
LsVw1.ColumnHeaders.Add , , "Tot. Fattura:", (LsVw1.Width / 1.59)
LsVw1.ColumnHeaders.Add , , "Tot. Fattura:", (LsVw1.Width / 1000)
Do Until rs.EOF
Set objItem = LsVw1.ListItems.Add()
objItem.text = rs!ID

objItem.SubItems(1) = rs!ID_FATTURA
objItem.SubItems(2) = Format(rs!TOTALEFATTURA, "€ " & "#,##0.00")
objItem.SubItems(3) = rs!TOTALEFATTURA
rs.MoveNext
Loop
End Sub

Quello che dovrei fare è riempire la ListView con le fatture solo pagate e non pagate in un determinato periodo (Label32.Caption e Label33.Caption)
Grazie mille
vrclaudio

[vr-claudio]

Avete suggerimenti?
Grazie vr-claudio

[wallrider]

non ho capito la domanda, cos'è che non sai fare?

[vr-claudio]

strSQL = "SELECT * FROM DB_FATTURE WHERE DATA_FATTURA BETWEEN #" & Label32.Caption & "# AND #" & Label33.Caption & "# AND RIFERIMENTO NOT LIKE'ANNULLATA%' AND (RIFERIMENTO LIKE'DA PAGARE%' OR RIFERIMENTO LIKE'PAGATA%')"

Quello che dovrei fare è riempire la ListView con le fatture solo pagate e non pagate in un determinato periodo (Label32.Caption e Label33.Caption)

...il codice sopra indicato funziona in modo errato, cioè quando imposto le date, tipo;

Dal 01/01/2009 Al 31/01/2009 lui va a cercare le Fatture in quel determinato periodo e apparentemente funziona, ma se dovessi ripetere la stessa operazione con le stesse date lui mi aggiunge altre fatture che magari sono presenti in altri periodi.

Spero di essermi spiegato abbastanza bene.
vr-claudio

[dararag]

prova così:

Sub Apertura_DB1()
Set conn = New ADODB.Connection
With conn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & "C:\...\DB.mdb"
.Mode = adModeRead
.Open
End With

Set rs = New ADODB.Recordset
Dim strSQL As String

strSQL = "SELECT * FROM DB_FATTURE WHERE DATA_FATTURA BETWEEN #" & Label32.Caption & "# AND #" & Label33.Caption & "# AND RIFERIMENTO NOT LIKE'ANNULLATA%' AND (RIFERIMENTO LIKE'DA PAGARE%' OR RIFERIMENTO LIKE'PAGATA%')"
rs.Open strSQL, conn, adOpenKeyset, adLockReadOnly
Call Apertura_ListView
End Sub

Sub Apertura_ListView()
Dim db As ADODB.Connection
Dim S As ADODB.Recordset
Dim strCnn As String
Dim objItem As ListItem
Dim NumeroChar As Double
Dim i
LsVw1.ColumnHeaders.Clear
LsVw1.ListItems.Clear
LsVw1.View = lvwReport
LsVw1.ColumnHeaders.Add , , "ID", (LsVw1.Width / 1000)
LsVw1.ColumnHeaders.Add , , "N°:", (LsVw1.Width / 2.7)
LsVw1.ColumnHeaders.Add , , "Tot. Fattura:", (LsVw1.Width / 1.59)
LsVw1.ColumnHeaders.Add , , "Tot. Fattura:", (LsVw1.Width / 1000)
Do Until rs.EOF
Set objItem = LsVw1.ListItems.Add()
objItem.text = rs!ID

objItem.SubItems(1) = rs!ID_FATTURA
objItem.SubItems(2) = Format(rs!TOTALEFATTURA, "€ " & "#,##0.00")
objItem.SubItems(3) = rs!TOTALEFATTURA
rs.MoveNext
Loop
rs.Close
End Sub

avevi dimenticato di chiudere il recordset

[vr-claudio]

strano è, che non mi segnalava alcun errore...
Infinitamente grazie.
vr-claudio

[dararag]

infatti non è un errore di semantica, ma logico, e quelli non te li può segnalare... immagina che lo volevi fare apposta a lasciarlo aperto e lui non te lo permetteva.... che avresti detto?
(ps: prego )