- Dim m_Connex As New Odbc.OdbcConnection 'Objet qui définit la connexion
- Dim myCommand As New Odbc.OdbcCommand 'Objet Command qui représente une requête SQL
-
- 'Objet DataAdapter qui va permettre d'adapter la commande à un dataset pour ensuite pouvoir la mettre dans un datagrid
- Dim myAdapter As New Odbc.OdbcDataAdapter
- Dim myDataset As New DataSet 'Objet DataSet
- Dim myDataTable As DataTable 'Objet DataTable
-
- m_Connex.ConnectionString = "DSN=monDSN;UID=monUID;PWD=monPWD"
- m_Connex.Open()
- myCommand.CommandText = "SELECT * FROM CLIENT" 'Je défini ma requête SQL
- '2- myCommand.CommandText = "SELECT * FROM CLIENT c, COMMANDE co WHERE co.CLI_CMD = c.ID_CLI AND c.NOM_CLI = 'KILL'"
- myCommand.Connection = m_Connex
-
- myAdapter.SelectCommand() = myCommand 'L'objet adapter prend en compte mon objet command
- myAdapter.Fill(myDataset, "CLIENT") 'Ici, il faut remettre le nom de la table comme deuxième paramètres
- 'Même pour une requête imbriquée, il suffit de passer une des tables de la requête en paramètres, cela ne change donc rien
-
- myDataTable = myDataset.Tables("CLIENT") 'Ici, je défini mon objet DataTable, il faut remettre le nom de la table ici aussi
- Datagrid1.DataSource = myDataTable 'Ma source de donnée de mon datagrid est mon DataTable
-
- 'On ferme tout
- myDataTable.Dispose()
- myAdapter.Dispose()
- myCommand.Dispose()
- m_Connex.Close()
Dim m_Connex As New Odbc.OdbcConnection 'Objet qui définit la connexion
Dim myCommand As New Odbc.OdbcCommand 'Objet Command qui représente une requête SQL
'Objet DataAdapter qui va permettre d'adapter la commande à un dataset pour ensuite pouvoir la mettre dans un datagrid
Dim myAdapter As New Odbc.OdbcDataAdapter
Dim myDataset As New DataSet 'Objet DataSet
Dim myDataTable As DataTable 'Objet DataTable
m_Connex.ConnectionString = "DSN=monDSN;UID=monUID;PWD=monPWD"
m_Connex.Open()
myCommand.CommandText = "SELECT * FROM CLIENT" 'Je défini ma requête SQL
'2- myCommand.CommandText = "SELECT * FROM CLIENT c, COMMANDE co WHERE co.CLI_CMD = c.ID_CLI AND c.NOM_CLI = 'KILL'"
myCommand.Connection = m_Connex
myAdapter.SelectCommand() = myCommand 'L'objet adapter prend en compte mon objet command
myAdapter.Fill(myDataset, "CLIENT") 'Ici, il faut remettre le nom de la table comme deuxième paramètres
'Même pour une requête imbriquée, il suffit de passer une des tables de la requête en paramètres, cela ne change donc rien
myDataTable = myDataset.Tables("CLIENT") 'Ici, je défini mon objet DataTable, il faut remettre le nom de la table ici aussi
Datagrid1.DataSource = myDataTable 'Ma source de donnée de mon datagrid est mon DataTable
'On ferme tout
myDataTable.Dispose()
myAdapter.Dispose()
myCommand.Dispose()
m_Connex.Close()