Enregistrement des données dans la BD
mohalesage
Messages postés
162
Statut
Membre
-
mohalesage Messages postés 162 Statut Membre -
mohalesage Messages postés 162 Statut Membre -
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
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 -
-
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
