Salut tout le monde, je voudrais savoir comment modifier ou créer une table sous oracle avec l'ADOX sans que VB6 me mette le message suivant :

"Erreur d'exécution '-2147467259 (80004005)'

Un état E_FAIL a été renvoyé par le fournisseur de données ou par un autre service. "

Voici le code que j'utilise :

Set GoDll = New Connexion.CnxOra
Set GoCtlg = New ADOX.Catalog
XtPwd = "mpindicateur"
XtUser = "indicateur"
Call GoDll.PsCnx(XtPwd, XtUser, GoCnx) 'Dll de connexion à oracle
GoCtlg.ActiveConnection = GoCnx
Set GoTbl = New ADOX.Table
Set GoTbl.ParentCatalog = GoCtlg
GoTbl.Name = "EssaiCreaTbl"
For XiCpt = 0 To 9
Set GoClm = New ADOX.Column
Set GoClm.ParentCatalog = GoCtlg
With GoClm
.Name = "Ch" & XiCpt & ""
.DefinedSize = 10
.Type = adVarChar
End With
GoTbl.Columns.Append GoClm
Set GoClm = Nothing
Next XiCpt
GoCtlg.Tables.Append GoTbl "L'erreur intervient ICI"
Set GoCtlg = Nothing

Merci d'avance pour les réponse.



Ps: ce code fonctionne tres bien sous access.