ke codice devo mostrare???
nn lo so...
metto il tutto il codice del form in cui vado per inserire i dati qui di seguito.
Dim lastpos As Integer
Private Sub cmdauto_Click() "cambia form"
Me.Hide
Operazioniauto.Show
End Sub
Private Sub cmdcanc_Click()"cancella record"
Adoacq.Recordset.Delete
If Not Adoacq.Recordset.BOF Then Adoacq.Recordset.MovePrevious
If Adoacq.Recordset.BOF Then Adoacq.Recordset.MoveNext
End Sub
Private Sub cmdend_Click()
End
End Sub
Private Sub cmdhome_Click()"cambia form"
Me.Hide
HomePage.Show
End Sub
Private Sub cmdins_Click()"inserisce dati e cambia form"
Adoacq.Refresh
Adoacq.Recordset.AddNew
lastpos = Adoacq.Recordset.RecordCount
Me.Hide
With Operazioniauto
.cmdprimo.Visible = False
.cmdprec.Visible = False
.cmdsucc.Visible = False
.cmdult.Visible = False
.cmdcerca.Visible = False
.Show
End With
End Sub
Private Sub cmdop_Click(Index As Integer)"cambia form"
Me.Hide
Operazioniauto.Show
End Sub
Private Sub cmdmod_Click()"operazione di modifica"
Adoacq.Recordset.Update
End Sub
Private Sub cmdprec_Click()"record precedente"
If Not Adoacq.Recordset.AbsolutePosition = 1 Then Adoacq.Recordset.MovePrevious
End Sub
Private Sub cmdprimo_Click()"primo record"
Adoacq.Recordset.MoveFirst
End Sub
Private Sub cmdsucc_Click()"record successivo"
If Not Adoacq.Recordset.AbsolutePosition = lastpos Then Adoacq.Recordset.MoveNext
End Sub
Private Sub cmdult_Click()"va all'ultimo record"
Adoacq.Recordset.MoveLast
End Sub
Private Sub Form_Load()
If Not Adoacq.Recordset.EOF Then Adoacq.Recordset.MoveLast
lastpos = Adoacq.Recordset.RecordCount
Adoacq.Recordset.MoveFirst
End Sub
praticamente in questo form viene letto cio che ce nel database tramite l'oggetto ado...
quando poi torno nel form in cui ce la data grid(inserita tramite progetto->componenti)...
il problema e che non so come fare per far si che il data grid si aggiorni senza stoppare l'esecuzione del programma...
aiuto!!!
preciso che il datagrid e collegato all'ado che ha nome diverso rispetto a quello nel form in cui inserisco i dati!