Salut alors voilà g un gros probleme qui m'empeche de continuer mon projet (en stage).
Dans mon projet je créé une base access comme ceci :
Set dbLbv = DAO.Workspaces(0).CreateDatabase(Nom_Base, dbLangGeneral)
''''''''''''''''''''''''''''
'Création des table résultat
''''''''''''''''''''''''''''
dbLbv.Execute "CREATE TABLE RESULTAT (Num_Pixel Text(10) CONSTRAINT PK_Res PRIMARY Key, Coord_Li Text(10), Cood_Col Text(10), Richesse Text(10), Nb_Hab Text(10));"
dbLbv.Execute "CREATE TABLE HABITAT (Num_Pixel Text(10), Code_Hab Text(20), Nb_Pixels Text(10), Nb_Patates Text(10));"
dbLbv.Execute "CREATE TABLE PATATE (Num_Pixel Text(10), Code_Hab Text(20), Code_Pat Text(20), Nb_Pixels Text(10));"
dbLbv.Execute "CREATE TABLE ESPECE (Nom_Esp Text(20));"
dbLbv.Execute "CREATE TABLE PAT_ESP (Num_Pixel Text(10), Code_Hab Text(20), Code_Pat Text(20), Nom_Esp Text(20), ProbaMoy Text(10));"
''''''''''''''''''''''''''''
'Création des clés primaires
''''''''''''''''''''''''''''
dbLbv.Execute "ALTER TABLE HABITAT ADD CONSTRAINT PK_Hab PRIMARY KEY (Num_Pixel, Code_Hab);"
dbLbv.Execute "ALTER TABLE PATATE ADD CONSTRAINT PK_Pat PRIMARY KEY (Num_Pixel, Code_Hab, Code_Pat);"
dbLbv.Execute "ALTER TABLE ESPECE ADD CONSTRAINT PK_Esp PRIMARY KEY (Nom_Esp);"
dbLbv.Execute "ALTER TABLE PAT_ESP ADD CONSTRAINT PK_PAT_ESP PRIMARY KEY (Num_Pixel, Code_Hab, Code_Pat, Nom_Esp);"
''''''''''''''''''
'Création des clés
''''''''''''''''''
dbLbv.Execute "ALTER TABLE HABITAT ADD CONSTRAINT FK_Hab FOREIGN KEY (Num_Pixel) REFERENCES RESULTAT(Num_Pixel);"
dbLbv.Execute "ALTER TABLE PATATE ADD CONSTRAINT FK_Pat FOREIGN KEY (Num_Pixel, Code_Hab) REFERENCES HABITAT(Num_Pixel, Code_Hab);"
dbLbv.Execute "ALTER TABLE PAT_ESP ADD CONSTRAINT FK_Hab_Pat FOREIGN KEY (Num_Pixel, Code_Hab, Code_Pat) REFERENCES PATATE(Num_Pixel, Code_Hab, Code_Pat);"
dbLbv.Execute "ALTER TABLE PAT_ESP ADD CONSTRAINT FK_Esp FOREIGN KEY (Nom_Esp) REFERENCES ESPECE(Nom_Esp);"
un peu plus loin je désire insérer des enregistrement, je fais comme ça mais evidemment ça marche pas ! :
With dbLbv.OpenRecordset(Nom_Base)
.AddNew
.Fields("Num_Pixel") = Num_Pix
.Fields("Coord_li") = result_map_y
.Fields("Coord_co") = result_map_x
.Fields("Richesse") = surface_local.richesse
.Fields("Nb_Hab") = surface_local.nbhab
.Update
End With
à l'execution il me renvoie cette erreur alors que mon fichier existe bien au bon chemin ! :
"The Microsoft Jet database engine cannot find the input table or query
'C:\.............(le chemin et nom du fichier)'. Make sure it exists and
its name is spelled correctly."
Si vous pourriez m'aider rapidemennt ça serait sympa parce que je pe plus avancer à cause de cette betise !
Merci d'avance ! a+