[debutante]VB Connexion Access

**lunixienne** · 24/08/2009, 17h41

Salut à toutes et tous

voilà mon problème c'est que j'ai construit une base de donnée sous Access alors il me faut crée une connexion entre le langage VB et la base Access afin de contrôler toutes les tables par des formulaires sous Visual Basic [Ajout ,Suppression, Modification etc...]

Merci de m’éclairer car je ne sais pas trop ou trouver la réponse.

J'espere vous avoir fourni assez de renseignements pour que vous puissiez me faire profiter de votre savoir

Bonne journée à tous

**ProgElecT** · 24/08/2009, 19h10

Pour les pièces jointes il vos mieux un .ZIP, tout le monde n'a pas l'outil pour les .RAR.
En attendant, un peu de lecture Comprendre les Recordset ADO te permettras déjà d'avancer.
Quelques mot/méthode
Ouvrir => .Open
Ajout => .AddNew
Suppression => .Delete
Modification => .Update

**lunixienne** · 26/08/2009, 19h38

Bonjour à toutes , tous

Merci Mr ProgElecT d'avoir me répondue

Merci aussi pour le lien intéressant

voila après une lecture , je partage avec vous ce que j'ai appris de ce tuto

une question comment puis-je savoir si mes tables sont connectes ou non et les testes?

Pour les pièces jointes il vos mieux un .ZIP, tout le monde n'a pas l'outil pour les .RAR.

merci d'avance

**ProgElecT** · 26/08/2009, 22h13

Envoyé par lunixienne

.........
Merci Mr ProgElecT d'avoir me répondue
...........
merci d'avance

Pas de Mr

Essais avec un nouveau projet avec un seul Form tout seul

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
'pour faire reference, dans l'editeur VB,Alt + P, Alt+R
'faire reference à : Microsoft ActiveX Data Objects 2.0 Library, msado20.tlb
'variables pour manipulation de la base de données
Dim CnX As New ADODB.Connection 'pour la connection
Dim TablE As New ADODB.Recordset 'pour atteindre une table de la BD
Dim strCnn As String 'infos pour la connection à la BD
Dim CheminNomDelabase As String 'ou se trouve la BD
Dim NomDeLaTable As String
Dim MsG As String 'pour les MsgBox
 
Private Sub Form_Load()
'renseignement ou se trouve la BD
CheminNomDelabase = App.Path & "\Gestion.mdb"
'met dans une variable les infos pour la connection à la BD
strCnn = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source= " & CheminNomDelabase & ";"
CnX.CursorLocation = adUseClient: CnX.Mode = adModeReadWrite
' ouverture de la BD, avec traitement d'erreur
On Error Resume Next
CnX.Open strCnn
If Err.Number <> 0 Then
 MsG = "Erreur N°" & Err.Number & vbCrLf _
       & "Description" & vbCrLf & Err.Description & vbCrLf _
       & "Impossible d'ouvrire la BD " & CheminNomDelabase & vbCrLf _
       & "vous ne pouvez pas utiliser ce programme"
 End 'met fin au programme
End If
 
NomDeLaTable = "Client" 'pour ouvrir la table de ce nom
TablE.Open NomDeLaTable, CnX, adOpenStatic, adLockPessimistic
If Err.Number <> 0 Then
 CnX.Close ' fermeture de la connexion à la BD
 MsG = "Erreur N°" & Err.Number & vbCrLf _
       & "Description" & vbCrLf & Err.Description & vbCrLf _
       & "Impossible d'ouvrire la table: " & NomDeLaTable & vbCrLf _
       & "de la BD " & CheminNomDelabase & vbCrLf _
       & "vous ne pouvez pas utiliser ce programme"
 End 'met fin au programme
End If
If TablE.EOF Then
 MsG = "Cette table est vide d'enregistrement"
 Else
 MsG = TablE!Nom_Client
End If
 
TablE.Close ' ferme le recordset
CnX.Close ' ferme la connexion à la BD
MsgBox MsG
End Sub

Avant de lancer le projet, Je rappel qu'il faux faire reference, dans l'editeur VB,Alt + P, Alt+R en selectionnant
Microsoft ActiveX Data Objects 2.0 Library.
Je ne sais pas si tu as MSDN(pour l'aide en ligne), tu peux le charger ICI.

**lunixienne** · 28/08/2009, 16h05

Merci de Nouveau ProgElecT

Voila j'ai crée une formulaire de test pour la table Client précisément avec la commande AddNew pour tester l'enregistrement des données vers ma base de donnée Access

mais elle me semble qu'il un problème.je ne sais pas d'où vient ce problème est-ce que j'ai mal utiliser le script de connexion que tu m'as donne !!!!!!

Merci de m'éclairai

Merci d'avance

**ProgElecT** · 28/08/2009, 19h47

Salut
J’ai un problème, j’arrive à ouvrir la BD et les tables avec VB6, mais pas avec l’unique outil externe (VISDATA.EXE), ce qui fait que je n’arrive pas à trouver de quel type est le champ Telephone.
Il me semble avoir déduit qu’il est de type numérique, pas bon çà, car 0450927845 est transformé en 450927845 (il manque le zéro du début).
Pour continuer à t’aider, change le type du champ Telephone en String (un littéral comme le champ Nom_Client par exemple) ne le limite pas en nombre de caractères ou au moins donne lui une longueur de 14 caractères minimum (si tu n’a pas besoin des indicatif internationaux)si tu le limites, dit moi de combien dans ton prochain post.
Une fois que s’est fait, remet une pièce jointe, que de la BD (Gestion.mdb).

A+

**lunixienne** · 29/08/2009, 11h26

Bonjour le monde

Bonjour ProgElecT

je n’arrive pas à trouver de quel type est le champ Telephone.

Voila j'ai changée le type de champ téléphone ,une chose à ajouter c'est que sous ma base de donnée Access et dans la table Client j'ai met un masque de saisi pour le champ telephone ,je ne sais c'est ca peut produire un probleme

dit moi de combien dans ton prochain post. ok c'est 14 pour le moment

Merci

**ProgElecT** · 29/08/2009, 23h35

Salut

Pas moyen d’utiliser ta BD.

Dans le fichier joint, j’y ai mis la mienne, pour le code proposé, c’est une façon de faire comme une autre.
Reste à espérer que de ton coté tu puisses utiliser cette BD.
Tu verras comment naviguer dans la table (RecordSet), Ajouter, Modifier et Supprimer des enregistrements, reste à gérer le boutons de commandes et navigation (Enabled = True ou False) et l’affichage d’infos dans un autre Form à partir de cette base.
J’ai mis pas mal de commentaire, il en manque sûrement, tu poseras les questions au fur et à mesure sur les informations qui te manques.

A+

**lunixienne** · 31/08/2009, 01h41

Merci beaucoup ProgElecT pour tout ce que vous avez pu éclaircir

Pas moyen d’utiliser ta BD.

es-ce que ma BD te semble inutile

Reste à espérer que de ton coté tu puisses utiliser cette BD. Si Si Ça marche bien

j'ai mis un autre code juste pour m'assurer de ta BD le code fonctionne bien mais j'ai des hésitation a propos de mon code ,il y a AfficheChamps j'essayais d'utiliser cette méthode sur mon code que j'ai écris la commande Afficher mais je n'ai arrive pas alors j'ai ouvert la connexion et ça passe bien.

est-ce qu'on peut utiliser AfficheChampspour le mon nouveau code si oui comment stp!!!!!!!!

Je tiens a te remercier très sincèrement pour ton aide précieux.

Mille MERCIS ProgElecT !

PS: je continuerai le développement de mon Application votre aide ça en fait des découvertes pour moi merci

**ProgElecT** · 31/08/2009, 19h20

Ce que tu a mis dans ton dernier fichier joint fonctionne tres bien chez moi.

Envoyé par lunixienne

........

es-ce que ma BD te semble inutile
.............

Non!!, ta BD doit pouvoir fonctionner avec le code (j'ai regardé tes messages autres que dans le forum VB6 et elle me semble valable).

Envoyé par lunixienne

j'ai mis un autre code juste pour m'assurer de ta BD le code fonctionne bien mais j'ai des hésitation a propos de mon code ,il y a AfficheChamps j'essayais d'utiliser cette méthode sur mon code que j'ai écris la commande Afficher mais je n'ai arrive pas alors j'ai ouvert la connexion et ça passe bien.

Tu as donc trouvé la solution, cette procedure ne fait qu'afficher le contenu de la table, elle ne fait ni la connexion à la BD, ni remplir le RecordSet.

Envoyé par lunixienne

est-ce qu'on peut utiliser AfficheChamps pour le mon nouveau code si oui comment stp!!!!!!!!.........

Oui si tu veux afficher la table Client, mais si tu veux afficher une autre table, les champs étant différents, il faut adapter.

J’ai modifié la Sub pour l’affichage, en lui ajoutant un paramètre

Code :

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

1
2
3
4
Private Sub AfficheChamps(QuelTable As ADODB.Recordset)
 'With TablE
 With QuelTable
	………

Pour appeler cette routine, maintenant il faut faire comme cela

Code :

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

 AfficheChamps TablE

En imaginant que tu veuilles afficher ta table Vente, chaque champs dans un Label et un TextBox.

Code :

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

1
2
3
4
5
6
Private Sub AfficheChampsVente(QuelTable As ADODB.Recordset)
 With QuelTable
   LabIdBon.Caption = ![Id_Bon]
   txtDateBon.Text = ![Date_Bon]
 End With
End Sub

A+

**lunixienne** · 01/09/2009, 16h16

Je vous remercie beaucoup pour votre réponse très détaillée.

Après ces changements , j'ai un erreur au niveau de la commande Ajouter , plutôt l'id de client de s'incremente pas Bizarre !!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub AfficheChamps(QuelTable As ADODB.Recordset)
 With QuelTable
   LabNumClient.Caption = ![Num_Client] L'erreur dans cette ligne
   txtN.Text = ![Nom_Client]
   txtP.Text = ![Prenom_client]
   txtAd.Text = ![Rue_Adresse]
   txtCp.Text = ![Code_Postal]
   txtV.Text = ![ville]
   MaskTxttel.Text = ![Telephone]
 End With
End Sub

AHH j'ai oubliee j'ai aussi ajoutee cette commande afin de vider les textbox

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub CmdNouveau_Click()
   txtN.Text = ""
   txtP.Text = ""
   txtAd.Text = ""
   txtCp.Text = ""
   txtV.Text = ""
   MaskTxttel.Text = "__ __ __ __ __"
   txtN.SetFocus
End Sub

Merci d'avance

**lunixienne** · 03/09/2009, 13h34

Bonjour,
BOnjour ProgElecT

Reste à espérer que de ton coté tu puisses utiliser cette BD.

Après quelques changements simple au niveau de ma base de donnée maintenant la connexion ça marche bien

mais depuis qu'on a changé la Sub pour AfficheChamps le ADODB.Recordsetle champs Num_Clientaccepte une valeur Nul (Vide) ce qui retourne un erreur lors de l'utilisation des commandes de navigation

Merci d'avance

**lunixienne** · 09/09/2009, 16h56

Bonjour à toutes et tous

Bonjour ProgElecT

Voila, j'ai un problème de connexion concernant deux tables de ma BD (Form2)
Toute suggestion est la bienvenue pour résoudre ou contourner ce problème.

Merci de m'aider!

Cordialement

**ProgElecT** · 09/09/2009, 22h52

Salut

Une BD c’est comme un meuble, le nom de la BD c’est une armoire, un buffet un placard …..
Dans l’armoire il y a des tiroirs (les tables de la BD), dans ces tiroirs il y a des dossiers (les champs de la table de la BD)

J’ai toujours les mêmes difficultés d’ouverture de ta BD (depuis chez moi)

Pour le nouveau zip, je n’ai fait que de m’inspirer de la façon de faire que je t’avais déjà indiqué dans le Form1.

Lis bien tous les commentaires et fais des essais, si tu as un/des problèmes, ne post que les portions de code incriminé, c’est frustrant de devoir charger un ZIP et la communauté des forumeurs ne peut participer au débat en direct.

A+

**lunixienne** · 10/09/2009, 20h35

Bonsoir Mr ProgElecT

Merci infiniment d'avoir répondu.

Ca marche Nikle

J’ai toujours les mêmes difficultés d’ouverture de ta BD (depuis chez moi)

Ça peut arriver de la version d'ACCESS Non !!!!!!!!!!

< === C'est quoi çà ?? Combo1 pour charger les Categories de la table Categorie

Je m'explique à travers ces détails

Table Categorie
-------------------------
Num_Categorie|Designation|
-------------------------
1------------|Cable
2------------|PvC
3------------|Fibre Optique
---------------------------

Table Article
---------------------------------------------------------------------
Num_Article|Libelle_Article|Prix|Designation_Categorie|Num_Categorie|
------------------------------------------------------|--------------
1----------|---CableSTP----|33.0|-------Cable---------|1
2----------|---CableUTP----|13.0|-------Cable---------|1
3----------|---PVC2002E----|30.0|--------PVC----------|2
3----------|---PVC2002K----|40.0|--------PVC----------|2
Etc....
---------------------------------------------------------------------

Chaque Categorie correspond a un ou plusieurs Articles.c'est pour Ca que j'ai met le de Combo1 sur le Form Articles !!!!le combo est vide

comment puis-je l'alimenter depuis la table Categorie

J'ai réussie la connexion vers la TableCategorie ca marche impeccablement ,mais j'ai un probleme au niveau de Combo1 (FormArticle) je veux Alimenter ce combo A partir de la table Categorie

Merci d'avance

**ProgElecT** · 11/09/2009, 07h04

Salut

Supprime la/les déclarations Dim T As Long dans les 2 Forms
Déclares le dans le module, Public T As Long ' variable pour les comptages et autres .....

A chaque ouverture (Form_Load) de Form2Articles, il faux aller rechercher dans la table Categorie toutes les Designation et Num_Categorie pour remplir le Combo (que j’ai renommé ComboCategorie et mis sa propriété SorTed = True)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Form_Load()
RempliCombo
OuvreTable TableArticle, "Article", True
'......................
End Sub
Private Sub RempliCombo()
OuvreTable TableTemporaire, "Categorie", False
ComboCategorie.Clear
If TableTemporaire.EOF Then
 ComboCategorie.AddItem "Cette table est vide d'enregistrement"
 Else
 TableTemporaire.MoveFirst
 For T = 1 To TableTemporaire.RecordCount
  ComboCategorie.AddItem TableTemporaire![Designation]
  'supposant que ton combo a la propriété Sorted = True
  ComboCategorie.ItemData(ComboCategorie.NewIndex) = TableTemporaire![Num_categorie]
  TableTemporaire.MoveNext
 Next T
 TableTemporaire.Close
End If
ComboCategorie.ListIndex = 0
End Sub

Pour l’affichage suivant l’article visionné il faut ajouter:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub AfficheChamps(QuelTable As ADODB.Recordset)
 With QuelTable
   '......................   'sélection/affichage de la categorie de l'article
   If ComboCategorie.List(0) <> "Table Categorie vide" Then
    For T = 0 To ComboCategorie.ListCount - 1
     If ComboCategorie.ItemData(T) = ![Num_categorie] Then
      ComboCategorie.ListIndex = T
      Exit For
     End If
    Next T
   End If
   TxtArt.Text = ![Libelle_Article]
   '......................
End Sub

Et pour les ajouts/modifications il faut ajouter:

Code :

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

1
2
3
4
5
6
Public Sub AjouteR_Modifier(QuelTable As ADODB.Recordset)
With QuelTable
    ![Num_Article] = CLng(LabNumArticle.Caption)
    ![Num_categorie] = ComboCategorie.ItemData(ComboCategorie.ListIndex)
     '......................
End Sub

Dans la BD que tu as mis en pièce jointe, le champ Num_categorie n’est pas nommé pareil (CodeCategorie)
Il va te falloir faire un Form pour remplir/modifier la Table Categorie, à toi de jouer

**lunixienne** · 11/09/2009, 16h47

Bonjour

Merci beaucoup ProgElecTpour m'avoir apporté des explications aussi complètes !

j'ai un problème au niveau de ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 Private Sub AfficheChamps(QuelTable As ADODB.Recordset)
 With QuelTable
   '......................   'sélection/affichage de la categorie de l'article
   'OuvreTable TableTemporaire, "Article", "Categorie", False, "Select * From Article ,Categorie Where Num_Article=Num_Categorie Order By Num_Article"
    ![Num_Article] = CLng(LabNumArticle.Caption)
    ![Num_Categorie] = ComboCategorie.ItemData(ComboCategorie.ListIndex)
   If ComboCategorie.List(0) <> "Table Categorie vide" Then
    For T = 0 To ComboCategorie.ListCount - 1
     If ComboCategorie.ItemData(T) = ![Num_Categorie] Then
      ComboCategorie.ListIndex = T
      Exit For
     End If
    Next T
   End If
   TxtArt.Text = ![Libelle_Article]
   TxtQStck.Text = ![Qte_Stock]
   TxtPrix.Text = ![Prix]
   LabNumArticle.Caption = ![Num_Article]
 End With
End Sub

Y
|

Code :

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

1
2
Erreur d'execution "13"
Type incompatible

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Sub AjouteR_Modifier(QuelTable As ADODB.Recordset)
With QuelTable
    ![Num_Article] = CLng(LabNumArticle.Caption)
    ![Num_Categorie] = ComboCategorie.ItemData(ComboCategorie.ListIndex)
     '......................
    ![Libelle_Article] = TxtArt.Text
    ![Qte_Stock] = CLng(TxtQStck.Text)
    ![Prix] = CDbl(TxtPrix.Text)
    .Update
End With
End Sub

Dans la BD que tu as mis en pièce jointe, le champ Num_categorie n’est pas nommé pareil (CodeCategorie)
Il va te falloir faire un Form pour remplir/modifier la Table Categorie, à toi de jouer

c'est fait la connexion ça marche bien pour la table Categorie et au niveau des commandes d'ajout ou modification superbe !!! Nikle
sauf je ne sais pas comment je peux programmer un code pour éviter les doublons j'ai réutilise ExisteDoublons mais ca marche pas

Merci d'avance

**ProgElecT** · 11/09/2009, 18h51

Salut
J'ai pas trop le temps ces jours, regardes le ZIP, tout fonctionne, même s'il reste des choses à gerer (doublons Categorie ......)
A+
Motif de l'edit:
Suppression de la piece jointe

**lunixienne** · 12/09/2009, 12h40

Bonjour Mr ProgElecT

J'ai pas trop le temps ces jours, regardes le ZIP, tout fonctionne

, même s'il reste des choses à gerer (doublons Categorie ......)

J'ai déjà téléchargé ce fichier pas de nouvelle

Si vous avez un moment pour me l'renvoyer ce serait super

désolée d'avoir vous dérangez

Je reviendrai vers toi si toutefois je trouvais un problème...

Merci d'avance

Bon Weekend

**lunixienne** · 17/09/2009, 12h50

Bonjour toutes et tous

Bonjour Mr ProgElecT

voila ,j'ai quelques difficultés au niveau de Form4 (Table Mouvement Stock)
En première j'ai teste la connexion ben ça marche bien.

ComboCategorie
Comment Alimenter ce Combo depuis la Table Categorie

ComboArticles
Le premier ComboCategorier va nous permettre de visualiser les articles de chaque Categorier faisant suite la selectionne d'une categorie(deux listes deroulantes liees)

Texte.text DATE
comment forcer a l'utilisateur d'écrire la date de cette façon : "JJ/MM/AAAA"

Texte.text Quantite
A traver cet case qu' on peut apprivisionner chaque article on enregistre le Mouvment dans la table Mouvment Stock Et on meme Temps cette quantite va s'ajouter à l'article selectionner

Label Prix Article
Sert pour Afficher le prix de chaque Article depuis la table Article

Merci d'avance

[debutante]VB Connexion Access

VB 6 et antérieur

Discussions similaires

Partager

Partager