[VB6] Find su recordset

[zorro77]

Salve a tutti
da una form con un ListView, collegato ad una tabella di oracle, visualizzo tutti i dati.
Usando tale evento

Private Sub ListViewFP_DblClick()

Dim id_fp As String
Dim nbRec As Integer
id_fp = ListViewFP.SelectedItem.Text

If id_fp <> "" Then
frmFINGER_PRINT.datPrimaryRS.Recordset.Find "ID_FINGER_PR='" & id_fp & "'"
End If
End Sub

faccio in modo che cliccando sulla cella di un ID di una riga, mi viene visualizzato tale record in altro form che utilizzo per inserire i dati.
Se clicco la prima volta,tutto ok,mi viene visualizzato il record con l'id cliccato,se poi ne clicco un altro mi va come record -3 e mi da errore....
Quale può essere il problema?

[mgmg]

Originariamente inviato da zorro77

Se clicco la prima volta,tutto ok,mi viene visualizzato il record con l'id cliccato,se poi ne clicco un altro mi va come record -3 e mi da errore....
Quale può essere il problema?

Il secondo form mi sembra sia collegato ad un oggetto adodc, quando esci dal secondo form lo chiudi, e chiudi adodc?

[zorro77]

Il secondo form rimane sempre aperto anche dopo che clicco sull'id del ListView. Forse dovrei chiudere l'adodc ogni volta che ci clicco? Se è così, come dovrei fare dal momento che non mi sono mai preoccupato di chiuderli?

[mgmg]

Come hai fatto la connessione adodc / Oracle, L'hai impostata dentro l'oggetto adodc?
Che errore ti dà?
Quando segli un nuovo item dalla listview, il form secondario è pulito? Hai già fatto l'update?

Ciao

[zorro77]

Si, la connessione l'ho impostata dentro l'oggetto adodc. Mi dà l'errore tipo quando si cancellano tutti i file e si arriva al record -1, nel mio caso mi compare -3.
Il form non è pulito, ci sono altri dati riferito ad altro record

[mgmg]

Puoi provare a togliere da dentro adodc la connessione al data base Oracle e l'apertura della tabella facendoli eseguire a form_load e prima di scegliere un altro item chiudere il form :

Public id_fp As String 

Private Sub ListViewFP_DblClick() 
Dim nbRec As Integer 
id_fp = ListViewFP.SelectedItem.Text 

If id_fp <> "" Then
   For nrf = 0 To Forms.Count - 1
       If Forms(nrf).Name = "frmFINGER_PRINT" Then
          MsgBox "Il frmFINGER_PRINT è già attivo", vbOKOnly, "Attenzione"
          Exit For
       End If
   Next nrf
   If nrf <> Forms.Count Then
        ' non faccio nulla
   Else
      frmFINGER_PRINT.Show 
      frmFINGER_PRINT.SetFocus
   End If
End If 
End Sub 


Private Sub Form_Load()
    datPrimaryRS.ConnectionString = "Provider=MSDAORA.1;Password=" & Pwd & ";User ID=" & User& ";Data Source=" & Data & ";Mode=ReadWrite;Persist Security Info=True"
    datPrimaryRS.RecordSource = "select * from TuaTabella"
    datPrimaryRS.Refresh

    datPrimaryRS.Recordset.Find "ID_FINGER_PR='" & id_fp & "'" 
End Sub
Private Sub Form_Unload(Cancel As Integer)
On  Error GoTo errori
    datPrimaryRS.Recordset.Close
    Set frmFINGER_PRINT = Nothing
    Exit Sub
errori:
    If Err.Number = 3219 Then
        datPrimaryRS.Recordset.CancelUpdate
        Resume
    End If
End Sub

Spero non aver dimenticato niente, Ciao

[zorro77]

Ciao,
scusa se non ho risp subito ma non ci sono stato.
Provo domani questo codice e ti faccio sapere