Afficher le résultat d'une cmd dans datagrid

Fermé
khalfi.nejmeddin Messages postés 1 Date d'inscription jeudi 17 février 2011 Statut Membre Dernière intervention 17 février 2011 - 17 févr. 2011 à 16:11
Bonjour,

j'ai du mal à afficher le résultat d'une commande sql dans une datagrid.

Voici le code:

// Connexion à la base de donnée

Public con_bd As New ADODB.Connection

con_bd.ConnectionString = "Provider=MSDASQL.1;Password=" & mp & ";Persist Security Info=True;Data Source=TWL;Mode=ReadWrite"

con_bd.Open

// Exécution de la requête sql

Dim cmd_clt As New ADODB.Command
Dim rs_clt As New ADODB.Recordset

'Affectation de la connexion à la commande
cmd_clt.ActiveConnection = con_bd

'Définition de la requête sql
cmd_clt.CommandText = "SELECT * FROM agent"

'Configurer et ouvrir le Recordset
rs_clt.CursorLocation = adUseClient
rs_clt.CursorType = adOpenDynamic
rs_clt.LockType = adLockOptimistic

'Exécution de la requête sql
rs_clt.Open cmd_clt

// Affectation du résultat dans le datagrid

If rs_clt.RecordCount > 0 Then
Set dbg_list_client.DataSource = rs_clt
End If


Merci d'avance.