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

CharlEm80 66 Messages postés vendredi 1 septembre 2006Date d'inscription 1 août 2012 Dernière intervention - 2 avril 2007 à 11:22 - Dernière réponse : CharlEm80 66 Messages postés vendredi 1 septembre 2006Date d'inscription 1 août 2012 Dernière intervention
- 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 

1 réponse

Répondre au sujet
CharlEm80 66 Messages postés vendredi 1 septembre 2006Date d'inscription 1 août 2012 Dernière intervention - 3 avril 2007 à 14:24
+3
Utile
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)
Cette réponse vous a-t-elle aidé ?  
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.