dataset de vb.net

Question

j'ai l'habitude d'utiliser des requêtes SQL pour remplir le dataset de vb.net. Seulement les informations proviennent d'une seule table.
exemple: Supposons les informations suivantes:
dim odataset as dataset =new dataset
dim OSQL as oledbcommand =new oledbcommand
dim adapter as oledbdataadapter = new oledbdataadapter

osql.commandtex="select * from TABLE"
osql.connection=cx
adapter.selectcommand=cx
adapter.fill(odataset,"TABLE")
le prolème que j'ai présentement c'est si dans la requête SQL , il ya intervention de plusieurs tables comment on va remplir le dataset puisque dans la syntaxe 
c'est nom de l'adaptateur.fill(nom du dataset, nom de la table)?
je vous remercie d'avance

cs_ankou22 · Answer

2 heures que je cherche ... Bon ce message date de 2004, mais ca peux peut etre aider quelqu'un.

Dim MyPath 
As
String = "C:\data"

Dim strConnexion 
As
String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MyPath & "" & _
";Extended Properties='Text;HDR=Yes;FMT=Delimited'"

'Oledb ne supporte pas la clause JOIN, alors j'en met pas
Dim strRequete 
As
String = "SELECT A.Nom, A.Prenom, B.Pays " & _
"FROM [Personnes.csv] A, [Societe.csv] B " & _
"WHERE A.id_societe= B.id_societe ;"

'initialisation et ouverture de la connexion
Dim objConnexion 
As
New OleDb.OleDbConnection(strConnexion)
objConnexion.Open()

'initialisation de l'adapteur SQL 
Dim objAdapter 
As
New OleDb.OleDbDataAdapter(strRequete, objConnexion)

'initialisation et remplissage du dataset ici je met "test" et ca fonctionne très bien

Dim dst_set 
As
New DataSet()
objAdapter.Fill(dst_set, "test")

'#########################################
'Lecture des données du Dataset
'#########################################

Dim ObjetDataTable 
As DataTable
'Le nom "test" ne correspond pas au vrai nom de la table, il semble être utilisé uniquement
pour créer une référence au Dataset que je veux manipuler (au cas ou j'en ai plusieurs)
ObjetDataTable = dst_set.Tables("test")

Dim nb_ligne 
As
Integer = ObjetDataTable.Rows.Count - 1

Dim i 
As
Integer

      For i = 0 
To nb_ligne

      Dim Nb_colonne 
As
Integer = ObjetDataTable.Columns.Count() - 1

      Dim j 
As
Integer

            For j = 0 
To Nb_colonne

                  'lecture d'une colonne
                  Dim result 
As
String = ObjetDataTable.Rows(i).Item(j) & ";"
                  Console.Write(result)

            Next
      'nouvelle ligne
      Next

ANKOU22

Dataset de vb.net

1 réponse

Discussions similaires