recordset.Resync non supportato?

[dops]

ciao... mi connetto con ado al database ed uso la versione 4 del provider jet, quando modifico, elimino, salvo o aggiorno i record ho la necessità di aggiornare il recordset per visualizzare con recordcount il totale dei record in una textBox, quindi ho pensato di usare recordset.resync solo che mi appare un messaggio che dice:
"Il Provider corrente non supporta l'aggiornamento dei valori sottostanti"
come mai? avete una qualunque altra idea per aggiornare il recordset ?

[vonkranz]

recordset.requery

[dops]

hem.. ci avevo pensato ma io non stò utilizzando nessuna query..

[vonkranz]

Originariamente inviato da dops
hem.. ci avevo pensato ma io non stò utilizzando nessuna query..

...e come carichi il recordset?......

[dops]

intendo dire che le modifiche o il salvataggio o anche l'eliminazione dei record non le faccio tramite istruzioni sql.. è ovvio che il recordset lo carico tramite sql ma nella formLoad
cmq con requery manco mi funziona.. il numero dei record nella txtBx non si aggiorna.. ho fatto pure un refresh della form.. ma niente..

[dops]

ti invio il codice del pulsante "salva" praticamente dopo l'update della modifica o del salvataggio non riconosce nessun comando, neanche il rsonn.moveFirst anzi riconosce solo la disabilitazione dei pulsanti:

Private Sub b_salva_Click()
Dim statomod As String
Dim statonuovo As String
statomod = "Modifica cliente esistente"
statonuovo = "Inserimento nuovo cliente"

If t_socion = "" Or t_nome = "" Or t_cognome = "" Or t_natoa = "" Or t_natoa = "__/__/____" Or t_natoa = Null Or t_scadenza = "__/__/____" Or t_scadenza = Null Then
   MsgBox ("Per poter procedere al salvataggio inserire almeno:  Socio N., Nome, Cognome, Luogo di nascita, Data di nascita, Scadenza ")
   t_socion.SetFocus
   Exit Sub
End If
If Status.Panels(1).text = statomod Then
   msg = MsgBox("Modifico il record Selezionato ?" & Chr(13) & t_nome.text, vbYesNo, "Modifico il record selezionato?")
   If msg = vbYes Then
      rsonn("socio_n") = t_socion
      rsonn("turno") = t_turno
      rsonn("nome") = t_nome
      rsonn("cognome") = t_cognome
      rsonn("nato_a") = t_natoa
      rsonn("quotaversata") = t_quota
      rsonn("brevetto") = t_brevetto
      rsonn("ora") = t_ora
      rsonn("data_nascita") = t_datanascita
      rsonn("scadenza") = t_scadenza
      'salvo il record
      rsonn.Update
      msg = MsgBox("Record modificato con successo")
      rsonn.MoveFirst
      rsonn.Requery
          Else
      msg = MsgBox("Record non modificato:" & Chr(13) & t_nome & " " & t_cognome, vbOKOnly, "Record non Modificato")
      rsonn.CancelUpdate
   End If
ElseIf Status.Panels(1).text = statonuovo Then
      msg = MsgBox("Aggiungo il nuovo record ?" & Chr(13) & t_nome.text, vbYesNo, "Aggiungo il nuovo record?")
      If msg = vbYes Then
         rsonn("socio_n") = t_socion
         rsonn("turno") = t_turno
         rsonn("nome") = t_nome
         rsonn("cognome") = t_cognome
         rsonn("nato_a") = t_natoa
         rsonn("quotaversata") = t_quota
         rsonn("brevetto") = t_brevetto
         rsonn("ora") = t_ora
         rsonn("data_nascita") = t_datanascita
         rsonn("scadenza") = t_scadenza
         'salvo il record
         rsonn.Update
         rsonn.MoveFirst
         rsonn.Requery
         frmprincipale.Refresh
         t_contarecord.Refresh
         b_salva.Enabled = False
         b_modifica.Enabled = True
         avanti.Enabled = True
               Else
         msg = MsgBox("Record non modificato:" & Chr(13) & t_nome & " " & t_cognome, vbOKOnly, "Record non Modificato")
         rsonn.CancelUpdate
      End If
   End If

End Sub

perchè ?

[xegallo]

ma se vuoi inserire un nouvo record devi dare recordset.addnew sennò modifichi un record esistente

[dops]

si l'addnew lo dò su un altro pulsante.. precisamente il pulsante "nuono cliente", mentre il pulsante salva riconosce se si stà effettuando una modifica o un salvataggio tramite le scritte sulla statusBar

[dops]

non ce niente da fare allora? come fate il refresh del recordset voi? il requery non mi aggiorna niente.. o cmq non vedo l'aggiornamento
io ho bisogno di sapere quanti record ci sono in quella tabella, ma in tempo reale, cioè appena ne elimino o aggiungo altri
help..

[xegallo]

prova a fare
rec.movelast
recmovefirst
var = rec.recordcount