Soyez le premier à donner votre avis sur cette source.
Snippet vu 20 406 fois - Téléchargée 35 fois
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()
7 mai 2012 à 14:39
soyez indulgent. Merci.
7 mai 2012 à 14:37
je debute en VB.net.
19 oct. 2011 à 14:30
23 avril 2010 à 09:33
22 avril 2010 à 22:34
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.