CharlEm80
Messages postés66Date d'inscriptionvendredi 1 septembre 2006StatutMembreDernière intervention 1 août 2012
-
2 avril 2007 à 11:22
CharlEm80
Messages postés66Date d'inscriptionvendredi 1 septembre 2006StatutMembreDerniè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)
CharlEm80
Messages postés66Date d'inscriptionvendredi 1 septembre 2006StatutMembreDernière intervention 1 août 20121 3 avril 2007 à 14:24
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)