VB sous access
m_makhoukh
Messages postés
114
Statut
Membre
-
vincent TESSIER -
vincent TESSIER -
Bonjour,
je suis un nouveau membre dans le forum, j'espere que mon message sera lu et je remercirais d'avance la personne qui pourras m'y repondre.
je travail sur une base de donnees access et j'aimerais ecrire un programme sous vb(dans access) pour automatiser les requetes pour cela il faut que j'utilise la bibliotheque DAO mais je ne sais pas comment car il ne connait pas cet objet .
merci de me repondre .
je suis un nouveau membre dans le forum, j'espere que mon message sera lu et je remercirais d'avance la personne qui pourras m'y repondre.
je travail sur une base de donnees access et j'aimerais ecrire un programme sous vb(dans access) pour automatiser les requetes pour cela il faut que j'utilise la bibliotheque DAO mais je ne sais pas comment car il ne connait pas cet objet .
merci de me repondre .
A voir également:
- VB sous access
- Vb - Télécharger - Langages
- Acer quick access - Forum Logiciels
- Access appdata - Guide
- Exemple base de données access à télécharger gratuit - Forum Access
- Exemple base de données Access de gestion ✓ - Forum Logiciels
6 réponses
merci je suis arrivé.
mais il n'accepte ce bou de code ,;utilisation incorrecte de NEW.
mais il n'accepte ce bou de code ,;utilisation incorrecte de NEW.
Public Sub ado() Dim tdf As New DAO.Database Set tdf = Nothing end Sub
merci.
en fait j'ai un sopuci c'etque quand je veux creer un champ il me met une erreur d'execution 13 au niveau de set FLD.
merci d'avance.
voici le code:
Public Sub ado()
Dim masession As Workspace
Dim DB1 As Database
Dim TD As TableDef
Dim FLD As Field
Dim Db As Database
Dim qdf As QueryDef
Dim chSQL As String
Dim MonJeu As Recordset
Set masession = DBEngine.Workspaces(0)
Set DB1 = masession.OpenDatabase("C:\Documents and Settings\Stagiaire Mohamed\Mes documents\access\base_democonsomm\bdconsomm.mdb")
DB1.OpenRecordset ("Base demo Consommations")
Set TF = DB1.CreateTableDef("plan_inventaire")
Set FLD = TF.CreateField("produit", dbInteger)
TF.Fields.Append FLD
End Sub
en fait j'ai un sopuci c'etque quand je veux creer un champ il me met une erreur d'execution 13 au niveau de set FLD.
merci d'avance.
voici le code:
Public Sub ado()
Dim masession As Workspace
Dim DB1 As Database
Dim TD As TableDef
Dim FLD As Field
Dim Db As Database
Dim qdf As QueryDef
Dim chSQL As String
Dim MonJeu As Recordset
Set masession = DBEngine.Workspaces(0)
Set DB1 = masession.OpenDatabase("C:\Documents and Settings\Stagiaire Mohamed\Mes documents\access\base_democonsomm\bdconsomm.mdb")
DB1.OpenRecordset ("Base demo Consommations")
Set TF = DB1.CreateTableDef("plan_inventaire")
Set FLD = TF.CreateField("produit", dbInteger)
TF.Fields.Append FLD
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question