Salve ragazzi... ho un problema che non mi si era mai presentato prima d'ora.
Mi collego da VB6 ad un database Access con l'oggetto adodb.connection, ed uso un oggetto globale adodb.recordset per le query del database.
Il problema è che linkando il recordset alla datagrid tutto è corretto, ma appena modifico dati e passo ad una tabella successiva, chiudendo e riaprendo il recordset, il recordset rimane lo stesso. So di essermi spiegato malissimo, scusatemi... quindi posto la porzione di codice interessata
On Error Resume Next
Dim ChiaveRicerca As String
ChiaveRicerca = GrdData.Text
GrdData.Visible = False
LblRec = ""
CmdStampa.Visible = False
Select Case ButtonText
Case "Preventivi Personali":
SQL = "Select * From HeadPreventivi Where Rappresentante= " & Chr$(34) & ChiaveRicerca & Chr$(34)
Rec.Close
Rec.Open SQL, Dbs, adOpenDynamic, adLockOptimistic
Set GrdData.DataSource = Rec
GrdData.Visible = True
GrdData.Columns(0).Width = 600
GrdData.Columns(1).Width = 1600
GrdData.Columns(2).Width = 1600
GrdData.Columns(3).Width = 1000
GrdData.Columns(4).Width = 1000
GrdData.Columns(5).Width = 800
GrdData.Columns(6).Width = 1000
GrdData.Columns(7).Width = 1000
GrdData.Columns(8).Width = 1000
LblRec = Rec.RecordCount & " preventivi di " & ChiaveRicerca & " in elenco"
If Rec.RecordCount > 0 Then CmdStampa.Visible = True
Case "Acconti Personali":
SQL = "Select * From Acconti Where Rappresentante= " & Chr$(34) & ChiaveRicerca & Chr$(34)
Rec.Close
GrdData.Refresh
Rec.Open SQL, Dbs, adOpenDynamic, adLockOptimistic
Set GrdData.DataSource = Rec
GrdData.Visible = True
GrdData.Columns(0).Width = 1600
GrdData.Columns(1).Width = 2000
GrdData.Columns(2).Width = 1200
GrdData.Columns(3).Width = 1200
GrdData.Columns(4).Width = 3200
LblRec = Rec.RecordCount & " acconti di " & ChiaveRicerca & " in elenco"
If Rec.RecordCount > 0 Then CmdStampa.Visible = True
Case "Rappresentanti":
SQL = "Select * From Rappresentanti"
Rec.Close
Rec.Open SQL, Dbs, adOpenDynamic, adLockOptimistic
Set GrdData.DataSource = Rec
GrdData.Visible = True
GrdData.Columns(0).Width = 1600
GrdData.Columns(1).Width = 4200
LblRec = Rec.RecordCount & " rappresentanti in elenco"
If Rec.RecordCount > 0 Then CmdStampa.Visible = True
End Select
Qualcuno puo indicarmi dove sbaglio? Grazie!!!
Rispondi quotando