J'essaie d'ouvrir une base de données créée sous Access 2002 par le
gestionnaire de données de VB 6 et j'ai l'erreur 3343 (Format de base de
donnée non reconnu). Comment remédier à cette situation ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eddie
Bonjour, Je ne suis pas un spécialiste VB par contre je connais un peu Access. Est-ce qui suis peut t'aider ? Ajouter au références de ton projet Microsoft DAO 3.6 Microsoft Access object library
Public Function EntréeDonnées() Dim db As Database Dim rs As Recordset Set db = Application.CurrentDb Set rs = db.OpenRecordset("NomTable", dbOpenTable, dbAppendOnly) Dim x As Double Dim y As Double Dim i As Long
For i = 1 To 10 Step 1 x = 2 * i y = x * 2 / 3 With rs .AddNew !NomChamp1 = x !NomChamp2 = y .Update End With Next i rs.Close db.Close Set rs = Nothing End Function
Bon amusement !
-----Message d'origine----- J'essaie d'ouvrir une base de données créée sous Access
2002 par le
gestionnaire de données de VB 6 et j'ai l'erreur 3343
(Format de base de
donnée non reconnu). Comment remédier à cette situation ?
Merci de votre aide.
.
Bonjour,
Je ne suis pas un spécialiste VB par contre je connais un
peu Access. Est-ce qui suis peut t'aider ?
Ajouter au références de ton projet
Microsoft DAO 3.6
Microsoft Access object library
Public Function EntréeDonnées()
Dim db As Database
Dim rs As Recordset
Set db = Application.CurrentDb
Set rs = db.OpenRecordset("NomTable", dbOpenTable,
dbAppendOnly)
Dim x As Double
Dim y As Double
Dim i As Long
For i = 1 To 10 Step 1
x = 2 * i
y = x * 2 / 3
With rs
.AddNew
!NomChamp1 = x
!NomChamp2 = y
.Update
End With
Next i
rs.Close
db.Close
Set rs = Nothing
End Function
Bon amusement !
-----Message d'origine-----
J'essaie d'ouvrir une base de données créée sous Access
2002 par le
gestionnaire de données de VB 6 et j'ai l'erreur 3343
(Format de base de
donnée non reconnu). Comment remédier à cette situation ?
Bonjour, Je ne suis pas un spécialiste VB par contre je connais un peu Access. Est-ce qui suis peut t'aider ? Ajouter au références de ton projet Microsoft DAO 3.6 Microsoft Access object library
Public Function EntréeDonnées() Dim db As Database Dim rs As Recordset Set db = Application.CurrentDb Set rs = db.OpenRecordset("NomTable", dbOpenTable, dbAppendOnly) Dim x As Double Dim y As Double Dim i As Long
For i = 1 To 10 Step 1 x = 2 * i y = x * 2 / 3 With rs .AddNew !NomChamp1 = x !NomChamp2 = y .Update End With Next i rs.Close db.Close Set rs = Nothing End Function
Bon amusement !
-----Message d'origine----- J'essaie d'ouvrir une base de données créée sous Access
2002 par le
gestionnaire de données de VB 6 et j'ai l'erreur 3343
(Format de base de
donnée non reconnu). Comment remédier à cette situation ?
Merci de votre aide.
.
Eddie
Re bonjour, Une erreur s'est glissée dans mon explication. Ce n'est pas la base courante que tu vas ouvrir. Donc au lieu de : Set db = Application.CurrentDb Il faut faire: Set db = OpenDatabase("NomCompletBase")
Je te conseille aussi le forum Access ainsi que pas mal de site Access très bien faits http://access.seneque.free.fr/ http://access.jessy.free.fr/ http://memoaccess.free.fr/
-----Message d'origine----- Bonjour, Je ne suis pas un spécialiste VB par contre je connais
un
peu Access. Est-ce qui suis peut t'aider ? Ajouter au références de ton projet Microsoft DAO 3.6 Microsoft Access object library
Public Function EntréeDonnées() Dim db As Database Dim rs As Recordset Set db = Application.CurrentDb Set rs = db.OpenRecordset("NomTable", dbOpenTable, dbAppendOnly) Dim x As Double Dim y As Double Dim i As Long
For i = 1 To 10 Step 1 x = 2 * i y = x * 2 / 3 With rs .AddNew !NomChamp1 = x !NomChamp2 = y .Update End With Next i rs.Close db.Close Set rs = Nothing End Function
Bon amusement !
-----Message d'origine----- J'essaie d'ouvrir une base de données créée sous Access
2002 par le
gestionnaire de données de VB 6 et j'ai l'erreur 3343
(Format de base de
donnée non reconnu). Comment remédier à cette
situation ?
Merci de votre aide.
.
.
Re bonjour,
Une erreur s'est glissée dans mon explication.
Ce n'est pas la base courante que tu vas ouvrir.
Donc au lieu de :
Set db = Application.CurrentDb
Il faut faire:
Set db = OpenDatabase("NomCompletBase")
Je te conseille aussi le forum Access ainsi que pas mal
de site Access très bien faits
http://access.seneque.free.fr/
http://access.jessy.free.fr/
http://memoaccess.free.fr/
-----Message d'origine-----
Bonjour,
Je ne suis pas un spécialiste VB par contre je connais
un
peu Access. Est-ce qui suis peut t'aider ?
Ajouter au références de ton projet
Microsoft DAO 3.6
Microsoft Access object library
Public Function EntréeDonnées()
Dim db As Database
Dim rs As Recordset
Set db = Application.CurrentDb
Set rs = db.OpenRecordset("NomTable", dbOpenTable,
dbAppendOnly)
Dim x As Double
Dim y As Double
Dim i As Long
For i = 1 To 10 Step 1
x = 2 * i
y = x * 2 / 3
With rs
.AddNew
!NomChamp1 = x
!NomChamp2 = y
.Update
End With
Next i
rs.Close
db.Close
Set rs = Nothing
End Function
Bon amusement !
-----Message d'origine-----
J'essaie d'ouvrir une base de données créée sous Access
2002 par le
gestionnaire de données de VB 6 et j'ai l'erreur 3343
Re bonjour, Une erreur s'est glissée dans mon explication. Ce n'est pas la base courante que tu vas ouvrir. Donc au lieu de : Set db = Application.CurrentDb Il faut faire: Set db = OpenDatabase("NomCompletBase")
Je te conseille aussi le forum Access ainsi que pas mal de site Access très bien faits http://access.seneque.free.fr/ http://access.jessy.free.fr/ http://memoaccess.free.fr/
-----Message d'origine----- Bonjour, Je ne suis pas un spécialiste VB par contre je connais
un
peu Access. Est-ce qui suis peut t'aider ? Ajouter au références de ton projet Microsoft DAO 3.6 Microsoft Access object library
Public Function EntréeDonnées() Dim db As Database Dim rs As Recordset Set db = Application.CurrentDb Set rs = db.OpenRecordset("NomTable", dbOpenTable, dbAppendOnly) Dim x As Double Dim y As Double Dim i As Long
For i = 1 To 10 Step 1 x = 2 * i y = x * 2 / 3 With rs .AddNew !NomChamp1 = x !NomChamp2 = y .Update End With Next i rs.Close db.Close Set rs = Nothing End Function
Bon amusement !
-----Message d'origine----- J'essaie d'ouvrir une base de données créée sous Access
2002 par le
gestionnaire de données de VB 6 et j'ai l'erreur 3343
(Format de base de
donnée non reconnu). Comment remédier à cette
situation ?
Merci de votre aide.
.
.
Donald Pelletier
merci.
"Eddie" a écrit dans le message de news:1324301c3c152$5be83710$ Bonjour, Je ne suis pas un spécialiste VB par contre je connais un peu Access. Est-ce qui suis peut t'aider ? Ajouter au références de ton projet Microsoft DAO 3.6 Microsoft Access object library
Public Function EntréeDonnées() Dim db As Database Dim rs As Recordset Set db = Application.CurrentDb Set rs = db.OpenRecordset("NomTable", dbOpenTable, dbAppendOnly) Dim x As Double Dim y As Double Dim i As Long
For i = 1 To 10 Step 1 x = 2 * i y = x * 2 / 3 With rs .AddNew !NomChamp1 = x !NomChamp2 = y .Update End With Next i rs.Close db.Close Set rs = Nothing End Function
Bon amusement !
-----Message d'origine----- J'essaie d'ouvrir une base de données créée sous Access
2002 par le
gestionnaire de données de VB 6 et j'ai l'erreur 3343
(Format de base de
donnée non reconnu). Comment remédier à cette situation ?
Merci de votre aide.
.
merci.
"Eddie" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1324301c3c152$5be83710$a601280a@phx.gbl...
Bonjour,
Je ne suis pas un spécialiste VB par contre je connais un
peu Access. Est-ce qui suis peut t'aider ?
Ajouter au références de ton projet
Microsoft DAO 3.6
Microsoft Access object library
Public Function EntréeDonnées()
Dim db As Database
Dim rs As Recordset
Set db = Application.CurrentDb
Set rs = db.OpenRecordset("NomTable", dbOpenTable,
dbAppendOnly)
Dim x As Double
Dim y As Double
Dim i As Long
For i = 1 To 10 Step 1
x = 2 * i
y = x * 2 / 3
With rs
.AddNew
!NomChamp1 = x
!NomChamp2 = y
.Update
End With
Next i
rs.Close
db.Close
Set rs = Nothing
End Function
Bon amusement !
-----Message d'origine-----
J'essaie d'ouvrir une base de données créée sous Access
2002 par le
gestionnaire de données de VB 6 et j'ai l'erreur 3343
(Format de base de
donnée non reconnu). Comment remédier à cette situation ?
"Eddie" a écrit dans le message de news:1324301c3c152$5be83710$ Bonjour, Je ne suis pas un spécialiste VB par contre je connais un peu Access. Est-ce qui suis peut t'aider ? Ajouter au références de ton projet Microsoft DAO 3.6 Microsoft Access object library
Public Function EntréeDonnées() Dim db As Database Dim rs As Recordset Set db = Application.CurrentDb Set rs = db.OpenRecordset("NomTable", dbOpenTable, dbAppendOnly) Dim x As Double Dim y As Double Dim i As Long
For i = 1 To 10 Step 1 x = 2 * i y = x * 2 / 3 With rs .AddNew !NomChamp1 = x !NomChamp2 = y .Update End With Next i rs.Close db.Close Set rs = Nothing End Function
Bon amusement !
-----Message d'origine----- J'essaie d'ouvrir une base de données créée sous Access
2002 par le
gestionnaire de données de VB 6 et j'ai l'erreur 3343
(Format de base de
donnée non reconnu). Comment remédier à cette situation ?
Merci de votre aide.
.
françois
As tu chargé le pack SP5 de mise à jour? C'est peut être l'origine de ton problème. VB6 ne reconnait pas le format Access supérieur à Access 97 sans ce pack sp5 François
As tu chargé le pack SP5 de mise à jour? C'est peut être
l'origine de ton problème. VB6 ne reconnait pas le format
Access supérieur à Access 97 sans ce pack sp5
François
As tu chargé le pack SP5 de mise à jour? C'est peut être l'origine de ton problème. VB6 ne reconnait pas le format Access supérieur à Access 97 sans ce pack sp5 François
