problemi con la rivisualizzazione del datagrid

[g.scardigno]

Vorrei rivisualizzare il contenuto del datagrid dopo aver effettuato delle modifiche al db(access)

Ho usato questa procedura...
-------------------------------
Private Sub ripristina()
On Error GoTo RefreshErr

Set grdDataGrid.DataSource = Nothing
'adoPrimaryRS.Requery
adoPrimaryRS.Close
adoPrimaryRS.Open
Set grdDataGrid.DataSource = adoPrimaryRS

Exit Sub
RefreshErr:
MsgBox Err.Description
End Sub
----------------------------

Ma ho verificato che alcune volte non va...
Sembra che venga riassegnato al datagrid il recordset prima ancora che le modifiche siano state effettivamente scritte sul db
Infatti se uso il debug tutto va bene.... che casino....

Ho provato ad usare uno sleep ma questa sol non mi piace ed alcune volte non va...

Aiutatemi vi prego... o qui non si va avanti

[g.scardigno]

alemeno leggetelo....

[xegallo]

Originariamente inviato da g.scardigno
alemeno leggetelo....

quando scriverai il codice in maniera educata

[g.scardigno]

Dove ho sbagliato????

Cqm chiedo scusa....

Ma questo problema mi sta facendo innervosire.....

[g.scardigno]

*code
Private Sub ripristina()
On Error GoTo RefreshErr

Set grdDataGrid.DataSource = Nothing
'adoPrimaryRS.Requery
adoPrimaryRS.Close
adoPrimaryRS.Open
Set grdDataGrid.DataSource = adoPrimaryRS

Exit Sub
RefreshErr:
MsgBox Err.Description
End Sub
*\code

Un aiutino....

[g.scardigno]

per scivere il code si fa cosi?????

Private Sub ripristina() 
On Error GoTo RefreshErr 

Set grdDataGrid.DataSource = Nothing 
'adoPrimaryRS.Requery 
adoPrimaryRS.Close 
adoPrimaryRS.Open 
Set grdDataGrid.DataSource = adoPrimaryRS 

Exit Sub 
RefreshErr: 
MsgBox Err.Description 
End Sub

ribadisco ancora il mio problema...

[g.scardigno]

Ribadisco il problema.....
Aiuto.....

[yyzyyz]

Public Sub ADO_OpenRs(rs As Recordset, szSource$, Optional bReadOnly = False)
    ' Open or Requery a Recordset.
    On Error Goto lab_Err
    If rs.State = adStateClosed Or rs.Source <> szSource Then
        If rs.State <> adStateClosed Then rs.Close
        rs.Open szSource, gCn, adOpenStatic, IIf(bReadOnly, adLockReadOnly, adLockOptimistic)
    Else
        rs.Requery
    End If
    lab_Exit:
    
    Exit Sub
    
    lab_Err:
    
    MsgBox Err.Description
    Goto lab_Exit
    
End Sub

[g.scardigno]

grazie per l'aiuto ma dove dovrei richiamare questa sub???
Un po di spiegazioni possibilmente...
anche perche sarebbe bello anche capire...
per non sbaglare ancora...

Grazie

[yyzyyz]

spiacente ma nn ho documentazione in merito a questo sorgente, ke tipo di modifike devi fare ?
add / delete / update / refresh record ?