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