marwenjabloun
Messages postés2Date d'inscriptionmercredi 19 juillet 2006StatutMembreDernière intervention 5 août 2006
-
3 août 2006 à 12:12
cs_safoua
Messages postés5Date d'inscriptionlundi 8 mai 2006StatutMembreDernière intervention10 août 2006
-
8 août 2006 à 16:42
bonjour
dans le cadre d'un stage d'été (gestion d'un parc informatique)
j'ai eu un probleme de connexion avec la base de donné
en effet j'ai creé sur access une simple base de trois tableaux
j'est realisé une simple interface sous vb 6.0
pour visualiser les enregistrements d'un tableau mais j'ai pas reussi a afficher
lors de l'execution un message d'erreur est envoyé: le format de la base est inconnu
j'ai pas trouver une solution
(certains me disent qu'il faut associer chaque form à un table de la base)
s'il vous plais n'hesitez pas à m'aider je suis en totale detresse.merci
pymaster
Messages postés74Date d'inscriptionvendredi 14 juillet 2006StatutMembreDernière intervention14 août 2006 3 août 2006 à 14:09
Bonjour !
Quel est ta versions d'Access ?
comment fait tu ta connexion ?
Quel méthode utilise tu pour remplir ton tableau ?
Une raison simple pour l'erreur peut venir de ton "provider", si tu utilise un provider qui ne prend pas en charge ta version de Access alors c'est ce message d'erreur qui sera retourné. Par exemple avec le control Data de VB si tu choisi "Access" comme type de BD alors ça ne fonctionne qu'avec Access 97. Il faut choisi "Acces 2000" ( Moteur Jet 4.0 ) .
marwenjabloun
Messages postés2Date d'inscriptionmercredi 19 juillet 2006StatutMembreDernière intervention 5 août 2006 5 août 2006 à 03:21
bonjour
je utilise access 2003
voici le bout de code
Dim sicol As Database
Dim pcrst As Recordset
Dim maintenancerst As Recordset
Dim usersrst As Recordset
Private Sub Command1_Click()
Set sicol = OpenDatabase("C:\sicol.mdb")
Set usersrct = sicol.OpenRecordset("users")
usersrst.MovePrevious
textnom = usersrst("nom responsable")
textnom = usersrst![nom responsable]
If usersrst.BOF = True Then
Beep
End If
End Sub
Private Sub Command2_Click()
Set sicol = OpenDatabase("C:\sicol.mdb")
Set usersrct = sicol.OpenRecordset("users")
usersrst.MoveNext
textnom = usersrst("nom responsable")
textnom = usersrst![nom responsable]
If usersrst.EOF = True Then
Beep
End If
End Sub
Private Sub Command3_Click()
usersrst.AddNew
usersrst![nom responsable] = Text2
usersrst.Update
End Sub
cs_safoua
Messages postés5Date d'inscriptionlundi 8 mai 2006StatutMembreDernière intervention10 août 2006 8 août 2006 à 16:42
salut tout le monde
svp quel est le code pour rechercher un enregistrement à partire d'une base de donnée sous vb 6.0 ,sachant que j'ai travaillé avec des bouttons data et ado.