[VBA-E]bases de données

**massilia80** · 03/03/2006, 10h31

bonjour,
Où puis je trouver un cours en ligne sur les recordset car je dois gérer l'ajout, la modification et la suppression d'éléments et je n'y connais rien.
Qq'un aurait-il un fichier excel gérant une base de données et qui pourrait me l'envoyer si cela est possible.
Merci

**massilia80** · 03/03/2006, 10h32

ah oui j'ai oublié de preciser il faut la gérer sous access en VBA

**massilia80** · 03/03/2006, 10h32

euh sous excel en VBA

**massilia80** · 03/03/2006, 11h06

le pb c'est que je n'ai pas d'accès à access...
Peut-on tt gérer uniquement en vba?
Je veux juste ajouter un champ à une entité et le garder sauvegardé.
Ou alors en supprimer un.

**massilia80** · 03/03/2006, 11h13

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim NouvelleTable As TableDef
Dim UnChampInutile As Field
Set NouvelleTable = DBEngine.Workspaces(0).Databases(0).CreateTableDef("T_FA3")
Set UnChampInutile = NouvelleTable.CreateField("ref", DB_SINGLE)
NouvelleTable.Fields.Append UnChampInutile
MaBase.TableDefs.Append NouvelleTable

Voila ce que j'ai trouvé sur le net mais dès la premiere ligne il y a un pb avec le type tabledef qui n'est pas défini.
Quel type dois je mettre et est ce que cette méthode est bonne.
Merci

**random** · 03/03/2006, 11h21

essaye de voir si tu tu peux ajouter la référence dao à ton projet

**massilia80** · 03/03/2006, 11h29

dans outil reference est grisé j'arrive pas à y avoir accès

**SfJ5Rpw8** · 03/03/2006, 11h35

Envoyé par massilia80

dans outil reference est grisé j'arrive pas à y avoir accès

? tu est bien sur un de tes modules lorsque tu fais outils références ?

**massilia80** · 03/03/2006, 11h38

oui oui je comprend pas

**SfJ5Rpw8** · 03/03/2006, 11h45

Envoyé par massilia80

oui oui je comprend pas

?même dans un nouveau classeur excel ?

**massilia80** · 03/03/2006, 11h49

ca marche dans un nouveau classeur...

**massilia80** · 03/03/2006, 14h12

j'ai un pb qd je crée ma base de données avec un arg:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set database = workspace.CreateDatabase (name, locale, options)

Je ne comprend pas à quoi sert le "locale"
Par défaut j'ai mis ceci en me basant sur l'aide mais ca ne marche pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set base = Workspaces(0).CreateDatabase(mabase, ";pwd=NewPassword")

Il me met argument non valide

Merci de m'aider

**SfJ5Rpw8** · 03/03/2006, 14h25

essai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set base = Workspaces(0).CreateDatabase(maBase, dbLangGeneral & ";pwd=NewPassword")

**massilia80** · 03/03/2006, 14h33

il voulait des "" pour le premier argument mais survient un autre pb...
il me crée bien la base de données.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set UnChampInutile = NouvelleTable.CreateField("ref", DB_SINGLE)

il m'affiche: "erreur de conversion de type de données"
UnchampInutile est déclaré as field

**massilia80** · 03/03/2006, 16h49

qq'un peut-il m'aider concernant cette incompatibilité de type pour la création de ce champs car la je ne comprend pas du tt.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set UnChampInutile = NouvelleTable.CreateField("ref", DB_SINGLE)

Merci

**random** · 03/03/2006, 17h48

essaye de remplacer db_single par single

sinon essaye ceci

dim coucou as variant
coucou=33000
et remplace db_single par vartype(coucou)

sinon regarde dans l'aide

[VBA-E]bases de données

Macros et VBA Excel

Discussions similaires

Partager

Partager