[VB.net] créer relations dans bdd access et connect a la bdd

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VB.net] créer relations dans bdd access et connect a la bdd

LimDul

Comment ça j'ai tort ?

Bonsoir.

J'ai réussi a créer une base de donnée au format access avec du code.
Les tables sont comme je le veut pour le moment tout vas bien.

Je voudrai maintenant réaliser des liaisons de type 1-n entre mes tables.

Je me base sur ceci: http://warin.developpez.com/access [...] 4#L4.6.5.1
Je cite:

Code :

Dim oDb As DAO.Database
Dim oRlt As DAO.Relation
Dim oFld As DAO.Field
Set oDb = CurrentDb
'Crée la relation
oRlt = oDb.CreateRelation
'Définit les propriétés
oRlt.Attributes = dbRelationUpdateCascade
oRlt.ForeignTable = "T_Total"
oRlt.Name = "Rlt_DeviseTotal"
oRlt.Table = "T_Devise"
'Crée le champ dans la relation
oFld = oRlt.CreateField("ID_Devise" )
'Définit le nom de la clé externe
oFld.ForeignName = "ID_Devise"
'Ajoute le champ
oRlt.Fields.Append(oFld)
'Rafraîhit la collection Relations
oDb.Relations.Refresh()
'Ajoute la relation
oDb.Relations.Append(oRlt)
'Rafraîhit la collection Relations
oDb.Relations.Refresh()
'Ferme la base de données
oDb.Close()
oDb = Nothing

Or j'ai deux erreurs:
Ligne 4: Le nom 'CurrentDb' n'est pas déclaré.
Ligne 8: Le nom 'dbRelationUpdateCascade' n'est pas déclaré.

Pour la première erreur d'après mes recherches "CurrentDb" serrait la base de donnée actuellement utilisée par access.
Or Access n'est pas ouvert (ni même installé)
De plus je trouve un peut "idiot" si access est nécessaire pour le moindre programme fabriqué justement pour s'en passer...
J'en conclu donc que cela doit être la base de donnée sur laquelle une connexion est ouverte (je suis conforté dans ce raisonnement par le oDb.Close ligne 25)

J'ai donc tenté de réaliser une connexion en remplaçant les lignes 1 à 4 (comprises) par ceci:

Code :

Dim dbe As New DBEngine
Dim oDb As DAO.Database
Dim oRlt As DAO.Relation
Dim oFld As DAO.Field
oDb = dbe.OpenDatabase(DialogueNouveauFichier.FileName, False, False, "MS Access" )

(DialogueNouveauFichier.FileName correspond au chemin et nom de fichier de la base de donnée créée)

Je n'ai pas d'avertissement sur ces lignes dans ma liste des tâches concernant ce changement.

Mais j'ai toujours celui pour la ligne 8:
Le nom 'dbRelationUpdateCascade' n'est pas déclaré.

J'ai quand même testé mais lors de l'exécution tout semble bien se passer.
Mon programme ne plante pas.
Par contre quand j'ouvre ma bdd avec OOo je ne vois pas la relation entre les deux tables.

Où est-ce que je me trompe ?
Qu'est-ce qui ne fonctionne pas ?

Message édité par LimDul le 19-07-2008 à 11:14:16

---------------
Liberkey, colection d'utilitaires sur clef USB / Silverstone DS380 - Mini tour ITX 8 baies Hot-swap 3.5"

Publicité

LimDul

Comment ça j'ai tort ?

[:coolfx]

Message édité par LimDul le 20-07-2008 à 14:53:39

---------------
Liberkey, colection d'utilitaires sur clef USB / Silverstone DS380 - Mini tour ITX 8 baies Hot-swap 3.5"

erwan83

Du Shift DEL tu te méfieras !

Bonjour,

a priori il ne connait pas le mot "CurrentDb" si c'est bien du .NET que tu utilises

si je comprends bien, tu développes sous ACCESS ? d'où le "Current" ?

le mieux est encore de développer à distance. J'explique :
Tu gardes tout ton code et tu crées une base de données ACCESS indépendante.
Au lieu d'utiliser la base "en cours" ("Current" ) tu te connectes à cette base distante, c'est beaucoup mieux.

Sinon, j'attends tes réponses.
Codes-tu sur une base Access en direct ?

---------------
http://www.ypikay.com

LimDul

Comment ça j'ai tort ?

Je ne dispose pas d'access (Or Access n'est pas ouvert (ni même installé)).
Je code uniquement dans vb.net 2003

Je ne peut donc pas utiliser la base "en cours".
J'avais compris que la "current" devais être une base ouverte soit par mon appli soit par access.

J'ai créé la base avec du code VB.
Ma base est créée dans un sous-répertoire de mon appli et je cherche à m'y connecter/à l'ouvrir pour l'utiliser.
Et là en l'occurrence à créer mes relations entre mes tables.

Message édité par LimDul le 20-07-2008 à 20:14:41

---------------
Liberkey, colection d'utilitaires sur clef USB / Silverstone DS380 - Mini tour ITX 8 baies Hot-swap 3.5"

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VB.net] créer relations dans bdd access et connect a la bdd

Sujets relatifs
code dans VB pour definir arguments d'une fonction dans Excel	[VB] Font.name et Font.Size en ReadOnly
EER: notation connect to columns	Liaison Access Help svp
ACCESS - Comment être averti de la date d'anniversaire d'un client?	[AS3-résolu] Créer une classe
programme access 2003	ouvrir csv sans le créer
Formulaire access et initialisation	[VB.NET] Fichier txt vers excel
Plus de sujets relatifs à : [VB.net] créer relations dans bdd access et connect a la bdd

Page générée en 0.054 secondes