Discussion :

[samba2005kanoute]

Bonjour,

Voilà j'ai crée une base de donnée en access 2007 je lui est nomme exemple comme de la base, ensuite j'ai crée une table qui se nomme aussi exemple. Cette table contient deux attributs qui sont: num et nom. J'ai fais les procédures qui se trouvent en bas.

J'ai active aussi Microsoft DAO 2.5/3.51 compatibility library

NB: lorsque je compile il ne déclare pas erreur mais si je sais un enregistrement et clique sur le bouton ajouter les donnes saisies ne vont pas dans la base que faire?

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
49
50
Public Sub Connect()
Set cn = New ADODB.Connection
cn.Provider = "Microsoft.jet.oledb.4.0"
cn.Properties("Data Source") = App.Path & "C:\kante\exemple.mdb"
cn.Open
 
End Sub
 
Public Sub Close_Base()
cn.Close
Set cn = Nothing
End Sub
 
Private Sub Command1_Click()
' Déclaration des variables
Dim strTable, strSQL As String
Dim blnValide As Boolean
Dim intCode As Integer
Dim strnum, strnom As String
' Initialisation des variables ( + contrôle de saisie )
blnValide = True
' Note : le nom est une valeur obligatoire
If Trim(txtnum.Text) <> "" Then strnum = Trim(txtnum.Text) Else blnValide = False
If Trim(txtnom.Text) <> "" Then strnom = Trim(txtnom.Text)
'----------------------------------------------------------------------
' Si les valeurs sont correctement renseignées, on les ajoute à la table
If blnValide = True Then
strTable = "exemple"
' Correction des chaines avec apostrophes éventuels
' Note : les apostrophes, dans les requêtes SQL, peuvent provoquer des erreurs
strnum = Replace(strnum, "'", "''")
strnom = Replace(strnom, "'", "''")
'======================================================================
' AJOUTE LES DONNEES DANS LA TABLE
'----------------------------------------------------------------------
' Requête SQL d'insertion ( modulable selon les valeurs saisies ou pas )
strSQL = "INSERT INTO " & strTable & " ("
strSQL = strSQL & "num, nom"
If strnum <> "" Then strSQL = strSQL & ",num"
If strnom <> "" Then strSQL = strSQL & ",nom"
strSQL = strSQL & ") VALUES ("
strSQL = strSQL & strnum & "'"
If strnom <> "" Then strSQL = strSQL & ",'" & strnom & "'"
 
strSQL = strSQL & ")"
 
Else
MsgBox ("Données de saisies obligatoires manquantes..."), vbExclamation
End If
End Sub

Merci

[OhMonBato]

J'ai peur que ton code ne soit une portion partiellement copiée/collée d'un autre code. Tu crées une requête SQL pour ajouter un enregistrement, très bien, mais ensuite ? Tu ne l'utilises pas. Tu pourrais utiliser la méthode AddNew d'ailleurs plutot que de faire une requete.
Je ne vois pas de recordset de créé, etc... Bref, je te conseille vivement de lire un tutoriel complet avant toute chose, tu en trouveras un ici :
http://warin.developpez.com/access/dao/

[Coin]

Bonjour,

comme dit OhMonBato, tu crées ta requête mais tu ne l'execute pas....

Rajoute ce bout de code entre strSQL = strSQL & ")"
et le Else

Code :

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

cn.Execute (strSQL)

Ce code permet de lancer l'instruction comprise dans ta variable texte strSQL sur ta connexion ouverte cn

Et là ça devrai fonctionner un peu mieux...

@+.

Coin.

[ProgElecT]

Public Sub Connect()
Set cn = New ADODB.Connection
cn.Provider = "Microsoft.jet.oledb.4.0"
cn.Properties("Data Source") = App.Path & "C:\kante\exemple.mdb"
cn.Open
End Sub

App.Path renvoi le lecteur et dossier en cour, au minimum le lecteur, tu lui ajoute "C:\ .......", donc le resultat du chemin (au minimum) de la BD devient: "C:\C:\kante\exemple.mdb".

[Delbeke]

De plus, pour utiliser une base ACCESS 2007, il faut utiliser DAO 3.6

[Delbeke]

Arf, ton code n'utilise même pas DAO mais ADO, l'ajout de la référence à " Microsoft DAO 2.5/3.51 compatibility library" est totalement inutile.

[samba2005kanoute]

Bonjour,

J'ai un problème avec access 2007 et vb6. Je n'arrive pas as ouvrière un programme faite en access 2007 avec vb6. Voici le code que j'ai fait pour ce connecte a access. Il affiche une massage d'erreur dont voici:


Erreur d'exécution - 2147467259 (80004005) Format de base de données ('chemin de la base') non reconnu
NB: J'ai active aussi Microsoft DAO 3.6 oblject libraru et Microsoft Activex Data Objects 6.0

Code :

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

1
2
3
4
5
6
Private Sub Form_Load()
Dim cnx As New ADODB.Connection
cnx.Provider = "Microsoft.Jet.Oledb.3.51"
cnx.ConnectionString = "C:\Users\Public\kante\test.accdb"
cnx.Open
End Sub

Merci.