Comment connecter vb6.0 avec access

Fermé
ablon - 21 mai 2012 à 09:11
 Profil bloqué - 1 oct. 2013 à 12:27
Bonjour,

les ami(e)s, j'ai blem mes chers, j'ai une base de données que je vais connecter avec vb6.0, comment le faire?S'il vous plait aider moi.

6 réponses

1ere :
imports System.Data.Oledb

2eme :
cree un variable de type oledbconnection :
Dim cnx As OLeDBConnection ;

3eme :
donnee la cnx leur chaine de connection :
cnx.ConnectionString = "provider=Microsoft.Jet.Oledb.4.0; Data Source = "&shemin

avec Shemin est une String qui contient le chemin d'accee au base de donnees
2
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
21 mai 2012 à 09:23
Bonjour,

Quel ACCESS: 2000-2003, 2007,2010??
0
Célien Messages postés 5729 Date d'inscription jeudi 8 mai 2008 Statut Membre Dernière intervention 9 septembre 2021 1 991
21 mai 2012 à 15:53
Salut,

Tu te connecte à Access en VB6 avec ADO ou DAO, c'est largement expliqué par exemple dans ces tutoriels VB6/SGBD.
0
c'est Access 2007/2010
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
24 mai 2012 à 19:05
Bonjour,

Un exmple de connection a une base ACCESS 2007

Option Explicit
Dim Mabase As New ADODB.Connection     'Déclaration d'une connexion à la base de données
Dim TImprim_RST As New ADODB.Recordset 'Déclaration des jeux d'enregistrements
Dim TBon_RST As New ADODB.Recordset    'Déclaration des jeux d'enregistrements

Private Sub Cmd_Connect_2007_Bis_Click()
  Set Mabase = New ADODB.Connection
  'Définition du provider
  'access 97 a 2003 "Microsoft.jet.OLEDB.4.0"
  'access 2007 "Microsoft.ACE.OLEDB.12.0"
  'access 2010 "Microsoft.ACE.OLEDB.14.0"
  Mabase.Provider = "Microsoft.ACE.OLEDB.12.0"
  'Ouverture de la base de données
  Mabase.Open "data source =D:\Test_Open_Base\Test_VB6_2007\Datas_Base\Equipement_Bons_Travaux.accdb"
  'Ouverture des jeux d'enregistrements BdD_Bon: table tous BONS
  TBon_RST.Open "BdD_Bon", Mabase, adOpenStatic       'Ouverture en statique
  'Ouverture en dynamique avec verouillage optimiste
  'TBon_RST.Open "BdD_Bon", Mabase, adOpenStatic, adLockOptimistic


  'Fermeture des jeux d'enregistrements
  TBon_RST.Close
  
End Sub

Private Sub Cmd_Quitter_Click()
  'Fermeture de la base de données
  Mabase.Close
End Sub


Bon courage
0
Profil bloqué
1 oct. 2013 à 12:27
Bonjour,
je viens de voir ta question et je tiens à vous repondre meme si vous avez deja eu la reponse des autres.
La premiere chose à faire est d'enregistrer ta base de donnée en Access 2003 meme si vous l'avez crée dans Access 2007 ou 2010. Avant d'enregistrer, aller sur le bouton Office/enregistrer sous, il y a plusieur choix des version de microsoft office access; pour vous vous devez choisir la version 2003 parce qu'elle est la seule compatible avec VB6.0, après vous etes obligié d'aller sur l'un des formulaire crée en VB6.0.
si vous avez utilisé ADODC pour la connexion des vos formulaires à la BD, c'est simple, il faut toutsimplement l'ajouté parmi les objets le glisser sur la feuille puis clic droit sur ADODC/propriétés/jusqu'à la liste des SGBD et là vous allez choisir Le deuxième Microsoft jet 4.0 ça sera fini.

Cordialement!!!!!!!!!!!!!
0