Enregistrement des données dans la BD
mohalesage
Messages postés
147
Date d'inscription
Statut
Membre
Dernière intervention
-
mohalesage Messages postés 147 Date d'inscription Statut Membre Dernière intervention -
mohalesage Messages postés 147 Date d'inscription Statut Membre Dernière intervention -
Bonjour;
Après une longue absence, je retourne sur ce forum, pour nouer de nouveau le contact avec mes amis, qui me manquent.
Salut tout le monde.
Mon problème est comme suit : Je travaille sur VB6 avec la BD en Acces 2007
sur le module de mon projet j'ai écris :
Une fois je valide la commande d'enregistrement, j'ouvre la BD1.accdb pour vérifier.Aucune donnée n' y est enregistrée.
Veuillez m'aider en en me soufflant la réponse
Merci d'avance
Après une longue absence, je retourne sur ce forum, pour nouer de nouveau le contact avec mes amis, qui me manquent.
Salut tout le monde.
Mon problème est comme suit : Je travaille sur VB6 avec la BD en Acces 2007
sur le module de mon projet j'ai écris :
General ( Declaration )
Public BD as New ADOBD.Connection
Public RS as New ADODB.RecordSet
Public Rss As New ADODB.RecordSet
Public SQLs as String
Sub PoolConnection ()
PoolConncetion
If BD.State = AdStateOpen Then BD.Close
BD.Provider = " Microsoft.ACE.OLEDB.12.0"
BD.Open "Data Source=" & App.Path & "\BD1.accdb"
Une fois je valide la commande d'enregistrement, j'ouvre la BD1.accdb pour vérifier.Aucune donnée n' y est enregistrée.
Veuillez m'aider en en me soufflant la réponse
Merci d'avance
A voir également:
- Enregistrement des données dans la BD
- Fuite données maif - Guide
- Trier des données excel - Guide
- Enregistrement mp3 gratuit - Télécharger - Streaming audio
- Sauvegarde des données - Guide
- Supprimer les données de navigation - Guide
3 réponses
BONJOUR,
voila un code d'enregistrement dans la base de donne
Const DBNAME = "c:\customer.mdb"
Set objFSOA = CreateObject("Scripting.FileSystemObject...
If not objFSOA.FileExists(DBNAME) Then
CreateDatabase
End if
Set objConnectionA = CreateObject("ADODB.Connection")
objConnectionA.Open "Provider= Microsoft.Jet.OLEDB.4.0; " & "Data Source= " & DBNAME
Dim strSQL
strSQL = "INSERT INTO Test(col_1, col_2) VALUES (23, 'Test');"
objConnectionA.Execute(strSQL)
objConnectionA.Close
voila un code d'enregistrement dans la base de donne
Const DBNAME = "c:\customer.mdb"
Set objFSOA = CreateObject("Scripting.FileSystemObject...
If not objFSOA.FileExists(DBNAME) Then
CreateDatabase
End if
Set objConnectionA = CreateObject("ADODB.Connection")
objConnectionA.Open "Provider= Microsoft.Jet.OLEDB.4.0; " & "Data Source= " & DBNAME
Dim strSQL
strSQL = "INSERT INTO Test(col_1, col_2) VALUES (23, 'Test');"
objConnectionA.Execute(strSQL)
objConnectionA.Close
Bonjour,
Merci pour votre réponse, mais je vous rappelle que la base des données est localisée en Acces 2007, et non en Acces 2003
C'est pourquoi l'utilisation de la stringconnection à utiliser est
" Microsoft.ACE.OLEDB.12.0" au lieu de " Microsoft.Jet.OLEDB.4.0"
J'espère que je ne me sui pas trompé
A plus
Merci pour votre réponse, mais je vous rappelle que la base des données est localisée en Acces 2007, et non en Acces 2003
C'est pourquoi l'utilisation de la stringconnection à utiliser est
" Microsoft.ACE.OLEDB.12.0" au lieu de " Microsoft.Jet.OLEDB.4.0"
J'espère que je ne me sui pas trompé
A plus