OIP-04116: Cursor nor ready for I-O [Résolu]

Messages postés
66
Date d'inscription
vendredi 1 septembre 2006
Dernière intervention
1 août 2012
- - Dernière réponse : CharlEm80
Messages postés
66
Date d'inscription
vendredi 1 septembre 2006
Dernière intervention
1 août 2012
- 3 avril 2007 à 14:24
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)
Afficher la suite 

Votre réponse

1 réponse

Meilleure réponse
Messages postés
66
Date d'inscription
vendredi 1 septembre 2006
Dernière intervention
1 août 2012
3
Merci
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)

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 121 internautes nous ont dit merci ce mois-ci

Commenter la réponse de CharlEm80

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.