Bonjour à tous,
Je souhaite connecter mon appli à une base Oracle via OLEDB
(oraOLEDB.Oracle).

Pour ce faire, j'utilise HChangeConnexion, et ensuite
HCreationSiInexistant("*") pour créer toutes les tables décrites dans
l'analyse.

=> Bien que HCréation ne renvoie pas d'erreur, 4 tables ne sont pas
créées, et je ne voie pas d'explication. Toutes les autres sont créées
correctement.

Afin de voir un peu plus en détails, j'ai abandonné le paramètre "*" de
HCréationSiInexistant, pour parcourir la liste des fichiers et les créer 1
par 1. Pareil : tout fonctionne, sauf pour 4 tables.

J'ai ensuite voulu faire moi même le test de l'existance de chaque table,
c'est le code qui suit. Idem : 4 de mes tables ne sont pas crées.


i est un entier
chReq,table sont des chaines

ListFic est une chaine = HListeFichier()
POUR i=1 A ChaîneOccurrence(ListFic,RC)

table=ExtraitChaîne(ListFic, i, RC) //nom de la table

//requête sur la liste des tables de la base
chReq ="SELECT TABLE_NAME FROM USER_TABLES WHERE
TABLE_NAME='"+Majuscule(table)+"'"
SI PAS HExécuteRequêteSQL("ReqSelTable",chReq) ALORS
Erreur(HErreurInfo(hErrComplet))
FIN
HLitPremier("ReqSelTable")
SI HEnDehors("ReqSelTable") ALORS //la table n'existe pas
SI PAS HCréation(table) ALORS //création de la table => renvoie
tjs vrai !
Erreur(HErreurInfo(hErrComplet))
FIN
FIN
HAnnuleDéclaration("ReqSelTable")

//On Vérifie que la nouvelle table apparait dans la liste des tables
SI PAS HExécuteRequêteSQL("ReqSelTable",chReq) ALORS
Erreur(HErreurInfo(hErrComplet))
FIN
HLitPremier("ReqSelTable")
SI HEnDehors("ReqSelTable") ALORS
Erreur("La création de "+table+" a échouée") //erreur sur mes 4
tables "problématiques"
FIN

FIN


Pour info, les tables "problématiques" contiennent des colonnes de type
date, numérique et texte, rien de bien particulier par rapport aux autres
tables qui n'ont pas posé de problèmes.

Si quelqu'un a la moindre suggestion, je le remercie d'avance.

Cordialement,
Arnaud

Bonjour, et merci pour votre réponse.

Avant de faire HCréation(table), je commence par vérifier si la table
existe déjà, en sélectionnant, parmi la liste de toutes les tables de la
base externe, une éventuelle table qui porte le même nom :

//requête sur la liste des tables de la base
chReq ="SELECT TABLE_NAME FROM USER_TABLES WHERE
TABLE_NAME='"+Majuscule(table)+"'"
SI PAS HExécuteRequêteSQL("ReqSelTable",chReq) ALORS
Erreur(HErreurInfo(hErrComplet))
FIN
HLitPremier("ReqSelTable")

C'est seulement si cette requête ne renvoie pas de résultat que je fais
HCréation(table) :

SI HEnDehors("ReqSelTable") ALORS //la table n'existe pas
SI PAS HCréation(table) ALORS //création de la table => renvoie tjs vrai !
Erreur(HErreurInfo(hErrComplet))
SINON
Info("HCréation("+table+") ","n'a pas renvoyé d'erreur.")
FIN
FIN
HAnnuleDéclaration("ReqSelTable")


Suite à votre suggestion, j'ai de plus vérifier manuellement qu'il n'y
avait pas, dans la base externe, de tables portant le nom des tables à
créer. Il n'y en a pas.

=> En fait, je pense qu'il n'y a pas de problème pour la détection de
l'existance de la table. Mais c'est bien la création de la table qui ne se
fait pas avec HCréation (mais renvoie quand même vrai !).

J'espère que quelqu'un aura une autre idée.
Arnaud