1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
   |  Dim SQLCMD As New SqlClient.SqlCommand
    Dim Param As SqlClient.SqlParameter
    Dim SQLDA As SqlClient.SqlDataAdapter
    SQLCMD.CommandType = CommandType.StoredProcedure
    SQLCMD.CommandText = "NomDeLaProcédure"
    'ajout des paramètres'
    Param = New SqlClient.SqlParameter
    Param.SqlDbType = SqlDbType.VarChar
    Param.ParameterName = "NomParam"
    Param.Value = ValeurDuParam
    Param.Size = 20
    SQLCMD.Parameters.Add(NomParam)
    '2ème paramètre'
    Param = New SqlClient.SqlParameter
    Param.SqlDbType = SqlDbType.VarChar
    Param.Value = Cle
    Param.ParameterName = "NomParam2"
    Param.Size = 100
    SQLCMD.Parameters.Add(Param)
    'objet connection'
    SQLCON.Open()      
    SQLCMD.Connection = SQLCON
    SQLDA = New SqlClient.SqlDataAdapter
    SQLDA.SelectCommand = SQLCMD
    Try
      SQLDA.Fill(NomDataset, "NomTable")
     ..... | 
Partager