Bonjour à tous,
Lors d'un appel de procedure stocké dans vbnet, j'ai le message : "La procedure 'EtatProc' attends le parametre '@Dta' qui n'a pa été fournis"
alors que je l'affecte comme suit:--------------merci de m'aider car je suis bloqué depuis quelques jours

Code vb.net : Sélectionner tout - Visualiser dans une fenêtre à part
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Dim mConnection As SqlClient.SqlConnection '===================
        ' Dim Mread As OdbcDataReader

        Dim paramKod As New OdbcParameter
        Dim paramMoi As New OdbcParameter
        Dim paramAns As New OdbcParameter
        Dim paramOp As New OdbcParameter
        Dim paramKiz As New OdbcParameter

        '**************
        Dim mConnection1 As Odbc.OdbcConnection
        Dim BurAdapter As Odbc.OdbcDataAdapter
        Dim SqlCom As Odbc.OdbcCommand
        '*********************
        Try
        
            '*********************---------------------------------
            mConnection1 = New Odbc.OdbcConnection

            mConnection1.ConnectionString = "DSN=ComptaEp"
            BurAdapter = New Odbc.OdbcDataAdapter
            SqlCom = New Odbc.OdbcCommand
            SqlCom.CommandType = CommandType.StoredProcedure

            mConnection1.Open()

            SqlCom.CommandText = "EtatProc"     'NomProc
            SqlCom.Connection = mConnection1
            BurAdapter.SelectCommand = SqlCom
        
            paramKod.ParameterName = "DtA"
            paramKod.Direction = ParameterDirection.Input
            paramKod.OdbcType = OdbcType.DateTime
            paramKod.Value = DateOp

            paramMoi.ParameterName = "KoD"
            paramMoi.Direction = ParameterDirection.Input
            paramMoi.OdbcType = OdbcType.Int
            paramMoi.Value = CodiK

            paramOp.ParameterName = "TypOp"
            paramOp.Direction = ParameterDirection.Input
            paramOp.OdbcType = OdbcType.Int
            paramOp.Value = TyOp

            paramKiz.ParameterName = "Kinz"
            paramKiz.Direction = ParameterDirection.Input
            paramKiz.OdbcType = OdbcType.Int
            paramKiz.Value = KenZ


            SqlCom.Parameters.Clear()

            SqlCom.Parameters.Add(paramKod)
            SqlCom.Parameters.Add(paramMoi)
            SqlCom.Parameters.Add(paramOp)
            SqlCom.Parameters.Add(paramKiz)

            BurAdapter.Fill(DseT, "OperationTT")
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.OkOnly, My.Application.Info.ProductName)
        End Try
Merci de m'aider