Connexion base de données multi-tables

Connexion base de données multi-tables - VB/VBA/VBS - Programmation

Marsh Posté le 07-05-2008 à 23:45:56    

Bonjour à tous,
 
Voilà j'ai un petit problème, j'ai créé un datagridview qui affiche les données de deux tables "effectif" et "inactivité" grâce des jointures dans la requetes SQL, mais concernant la connexion je ne sais pas si c'est correct, car je ne sais pas comment on fait lorsqu'on veut manipuler deux tables, voilà lecode de ma connexion (je l'ai beaucoup bidouillé , voilà son dernier état) :
 

Code :
  1. 'Declaration de toutes les varibles
  2.     'Déclaration de la variable pour la connexion
  3.     Private cnx As OleDbConnection
  5.     'Déclaration de la variable pour la commande
  6.     Private cmd As OleDbCommand
  8.     'Déclaration de la variable pour le dataadapter
  9.     Private dta As OleDbDataAdapter
  11.     'Déclaration de la variable pour le dataset
  12.     Private dts As New DataSet
  14.     'Déclaration de la variable pour la requête
  15.     Private sql As String
  17.     'Déclaration de la variable pour la datatable
  18.     Private dtt_effectif As DataTable
  20.     'Déclaration de la variable pour la datatable
  21.     Private dtt_inactivité As DataTable
  23.     'Déclaration de la variable pour le datarow
  24.     Private dtr As DataRow
  26.     'Déclaration de la variable pour le Nº de l'enregistrement
  27.     Private rownum As Integer
  29.     'Déclaration de la variable pour la connectionstring
  30.     Private cnxstr As String
  32.     'Déclaration de la variable pour le commandbuilder
  33.     Private cmdb As OleDbCommandBuilder
  35.     Private READER As OleDbDataReader
  37.     Private requete As String
  39.     Private num As String
  44.     Function connection(ByVal requete As String, ByVal num As String)
  45.         'TODO : cette ligne de code charge les données dans la table 'Dossier_209_cocktailsDataSet.cocktail'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
  46.         cnxstr = "provider = microsoft.jet.oledb.4.0 ; data source = " & Application.StartupPath & "\DOO_JET.mdb"
  48.         'Créer un objetde type OleDBConnexion
  49.         cnx = New OleDbConnection
  52.         'Initialisation de la connexion
  53.         cnx.ConnectionString = cnxstr 'ConnexionString est un attribut , on le positionne à la valeur : "provider = microsoft.jet.oledb.4.0 ; data source = " & Application.StartupPath & "\dossier_209_cocktails.mdb"
  55.         'On etablit la connexion avec la base de donnsée definie en parametre
  56.         cnx.Open()
  58.         'Création de la requête sql
  59.         sql = requete
  61.         'Création de la commande et on l'instancie (sql)
  62.         cmd = New OleDbCommand(sql)
  65.         'Création du dataadapter (dta)
  67.         'Création du dataadapter (dta) et on l'instancie (cmd)
  68.         dta = New OleDbDataAdapter(cmd)
  71.         'On instancie la commande (cmd) à la connexion (cnx)
  72.         cmd.Connection() = cnx
  75.         'On charge le dataset (dts) grace à la propriété fill du dataadapter (dta)
  76.         dta.Fill(dts, "effectif" )
  79.         'On charge la datatable (dtt) grace à la propriété table du dataset (dts)               
  80.         dtt_effectif = dts.Tables("effectif" )
  81.         dtt_inactivité = dts.Tables("inactivité" )
  83.         'Mettre dans le DataGrid une table  DataTable
  85.         DataGrid2.SetDataBinding(dts, "effectif" )


 
Merci d'avance de m'indiquer ce qui ne va pas si vous passez par là et que vous vous y connaissez en VB  :D

Reply

Marsh Posté le 07-05-2008 à 23:45:56   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed