OIP-04116: Cursor nor ready for I-O

Résolu
Signaler
Messages postés
66
Date d'inscription
vendredi 1 septembre 2006
Statut
Membre
Dernière intervention
1 août 2012
-
Messages postés
66
Date d'inscription
vendredi 1 septembre 2006
Statut
Membre
Dernière intervention
1 août 2012
-
Bonjour à tous,

J'ai une drole d'erreur dans mon code quand je passe sur Set rs2 = Oracle_dbc.dbcreatedynaset(sql2, 0&) je reçois une erreur OIP-04116: Cursor nor ready for I-O mais là j'ai essayé plein de truc et je ne trouve pas. C'est à cause du 0& ???

Si vous avez des pistes pour moi, celà m'aidreai beaucoup.

Merci à tous et toutes

    Dim sql  As String
    Dim rs   As Object
    Dim sql2 As String
    Dim rs2  As Object
    '    sql "select * from historique_mouvement where numero_admission '" & numero_admission_courant & "' and numero_sequence = (select max(numero_sequence) from historique_mouvement where numero_admission = '" & numero_admission_courant & "')"
    Set rs = Oracle_dbc.dbcreatedynaset(sql, 0&)
    Oracle_dbc.ExecuteSQL (sql)
    '
    If rs.RecordCount > 0 Then
        ' Insert dans la table Historique_Mouvement_Annulé (le trigger va mettre à jour les tables)        sql2 "Insert into historique_mouvement_annules (select * from historique_mouvement where numero_admission '" & numero_admission_courant & "' and numero_sequence = (select max(numero_sequence) from historique_mouvement where numero_admission = '" & numero_admission_courant & "'))"
        Debug.Print sql2
> plante ici        Set rs2 = Oracle_dbc.dbcreatedynaset(sql2, 0&)
        Oracle_dbc.ExecuteSQL (sql2)

1 réponse

Messages postés
66
Date d'inscription
vendredi 1 septembre 2006
Statut
Membre
Dernière intervention
1 août 2012

Ha bhen voilà trouvé c'est parce que je fais

Set rs = Oracle_dbc.dbcreatedynaset(sql, 0&)

alors que ce n'est pas un select ... bhen voilà si ça peut servir à quelqu'un un jour.

Du coup mon code donne ça :

    Dim sql  As String
    Dim rs   As Object
    Dim sql2 As String
    Dim rs2  As Object
    '
   
sql "select * from historique_mouvement where numero_admission '"
& numero_admission_courant & "' and numero_sequence = (select
max(numero_sequence) from historique_mouvement where numero_admission =
'" & numero_admission_courant & "')"
    Set rs = Oracle_dbc.dbcreatedynaset(sql, 0&)
    Oracle_dbc.ExecuteSQL (sql)
    '
    If rs.RecordCount > 0 Then
        ' Insert dans la table Historique_Mouvement_Annulé (le trigger va mettre à jour les tables)
       
sql2 = "Insert into historique_mouvement_annules (select * from
historique_mouvement where numero_admission = '" &
numero_admission_courant & "' and numero_sequence = (select
max(numero_sequence) from historique_mouvement where numero_admission =
'" & numero_admission_courant & "'))"
        Debug.Print sql2
        Oracle_dbc.ExecuteSQL (sql2)