Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2610 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Connexion base de données multi-tables

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Connexion base de données multi-tables

n°1729793
pesKiller
Posté le 07-05-2008 à 23:45:56  profilanswer
 

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
  4.     'Déclaration de la variable pour la commande
  5.     Private cmd As OleDbCommand
  6.     'Déclaration de la variable pour le dataadapter
  7.     Private dta As OleDbDataAdapter
  8.     'Déclaration de la variable pour le dataset
  9.     Private dts As New DataSet
  10.     'Déclaration de la variable pour la requête
  11.     Private sql As String
  12.     'Déclaration de la variable pour la datatable
  13.     Private dtt_effectif As DataTable
  14.     'Déclaration de la variable pour la datatable
  15.     Private dtt_inactivité As DataTable
  16.     'Déclaration de la variable pour le datarow
  17.     Private dtr As DataRow
  18.     'Déclaration de la variable pour le Nº de l'enregistrement
  19.     Private rownum As Integer
  20.     'Déclaration de la variable pour la connectionstring
  21.     Private cnxstr As String
  22.     'Déclaration de la variable pour le commandbuilder
  23.     Private cmdb As OleDbCommandBuilder
  24.     Private READER As OleDbDataReader
  25.     Private requete As String
  26.     Private num As String
  27.     Function connection(ByVal requete As String, ByVal num As String)
  28.         '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.
  29.         cnxstr = "provider = microsoft.jet.oledb.4.0 ; data source = " & Application.StartupPath & "\DOO_JET.mdb"
  30.         'Créer un objetde type OleDBConnexion
  31.         cnx = New OleDbConnection
  32.         'Initialisation de la connexion
  33.         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"
  34.         'On etablit la connexion avec la base de donnsée definie en parametre
  35.         cnx.Open()
  36.         'Création de la requête sql
  37.         sql = requete
  38.         'Création de la commande et on l'instancie (sql)
  39.         cmd = New OleDbCommand(sql)
  40.         'Création du dataadapter (dta)
  41.         'Création du dataadapter (dta) et on l'instancie (cmd)
  42.         dta = New OleDbDataAdapter(cmd)
  43.         'On instancie la commande (cmd) à la connexion (cnx)
  44.         cmd.Connection() = cnx
  45.         'On charge le dataset (dts) grace à la propriété fill du dataadapter (dta)
  46.         dta.Fill(dts, "effectif" )
  47.         'On charge la datatable (dtt) grace à la propriété table du dataset (dts)               
  48.         dtt_effectif = dts.Tables("effectif" )
  49.         dtt_inactivité = dts.Tables("inactivité" )
  50.         'Mettre dans le DataGrid une table  DataTable
  51.         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

mood
Publicité
Posté le 07-05-2008 à 23:45:56  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Connexion base de données multi-tables

 

Sujets relatifs
Exporter base mysql vers phpmyadmin[Inno Setup + VB6] Problème base Access97
fermer connexion MySQLBench de moteurs de bases de données
WinRar Compression multi-partiesConnexion à oracle+ listing des bases
Intégrer base de données dans java[Resolu] Création de rapport rdlc à partir d'une base de donnée MySql
Forger une requete de recherche sur plusieurs tables. 
Plus de sujets relatifs à : Connexion base de données multi-tables


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR