Discussion :

[lunixienne]

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]

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]

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]

.........
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]

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]

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+