connection base access

Question

salut tout le monde;
j'ai une base access comportant deux table article et fournisseur et une interface pour chaque table avec chaqu'une des option:
ajout ,supression,modifier
mais jarrive pas à me connecter a la base et effectuer les commande ajouter suprime modifier
je suis débutant sur vb6.

cs_ghuysmans99 · Answer

Pour te connecter, tu dois ajouter la référence Microsoft ActiveX Data Objects 2.8 Library.
Après tu prends ceci et tu récupères la chaine de connexion ici.
Tu insères le code suivant dans un module :
OptionExplicit
Public Database As cls_Database

PrivateSub Main()
Set Database = New cls_Database
 Database.ConnString = "ta chaine de connexion"
 Database.OpenConn
If Database.LastError Then
  MsgBox "Erreur fatale lors de l'ouverture de la base de données :" & vbCrLf & "N°" & Database.LastError & " -> " & Database.LastError_Str, vbCritical, "Erreur fatale"
  Database.LastError_Reset: Database.LastError_Str_Reset
End
EndIf
EndSub

Tu vas dans Projet => Propriétés => Objet de démarrage => Choisis Sub Main
Pour le reste, il suffit de regarder les codes traitant des bases de données sur ce site.
_______________________________________________________________________
VB.NETis good ...VB6is better

cs_ghuysmans99 · Answer

Oops je reposte le code :

Option Explicit
Public Database As cls_Database

Private Sub Main()
 Set Database = New cls_Database
 Database.ConnString = "ta chaine de connexion"
 Database.OpenConn
 If Database.LastError Then
  MsgBox "Erreur fatale lors de l'ouverture de la base de données :" & vbCrLf & _
         "Numéro " & Database.LastError & " -> " & Database.LastError_Str, vbCritical, "Erreur fatale"
  Database.LastError_Reset: Database.LastError_Str_Reset
  End
 End If
End Sub<hr />, ----
[code.aspx?ID=41455 Colorisation syntaxique par  Renfield]
_______________________________________________________________________
VB.NETis good ...VB6is better

mtctls · Answer

merci beaucoup:

[auteur/GHUYSMANS99/549970.aspx ghuysmans99]

je vais esayer

PCPT · Answer

çà sera pas évident en vb.net ^^

Vous êtes ici : [infomsg.aspx Thèmes] / [infomsgf_VB-NET-VB-2005_40.aspx VB.NET et VB 2005] / [infomsgt_BASE-DONNEES_235.aspx Base de données] / [infomsgt_ACCESS_661.aspx Access] / connection base access

cs_ghuysmans99 · Answer

Mais il a écrit "je suis débutant sur vb6." donc je ne me suis pas trompé.
_______________________________________________________________________
VB.NETis good ...VB6is better

Connection base access

5 réponses

Votre réponse

Discussions similaires