Discussion :

[gdon]

Bonjour
j'essaie de passer une date à une proc Stockée mais j'ai toujours la même erreur :
"fonctionnalité optionnelle non implémentée"

voici mes divers essais :
PS.Parameters.Append .CreateParameter("dateavis", adDDate, adParamInput, 8, Date)
PS.Parameters.Append .CreateParameter("dateavis", adDBDate, adParamInput, 8, Date)
PS.Parameters.Append .CreateParameter("dateavis", cdate(adchar), adParamInput, 8,
Format(Date, "dd/mm/yyyy"))

voici la déclaration dans ma PS :
@dateavis as datetime

si quelqu'un a une solution je suis preneuse !

[gdon]

Voilà j'ai trouvé la solution et en plus j'ai trouvé comment passer un décimal :

Code :

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
             Set Ps_w = New ADODB.Command
 
             With Ps_w
             .CommandType = adCmdStoredProc
             .CommandText = "[ps_insert_absence]"
             .ActiveConnection = db
             End With
 
             Dim MonParam3 As ADODB.Parameter
             Set MonParam3 = New ADODB.Parameter
             With MonParam3
                .Name = "@abs_nomagt"
                .Direction = adParamInput
                .Type = adVarChar
                .Size = 25
                .Value = Trim(GridDetail.Columns(11).Text)
             End With
             Ps_w.Parameters.Append MonParam3
 
             Dim MonParam6 As ADODB.Parameter
             Set MonParam6 = New ADODB.Parameter
             Dim maDate As String
             maDate = Date
             With MonParam6
                .Name = "@abs_date_init"
                .Direction = adParamInput
                .Type = adVarChar
                .Size = 20
                .Value = maDate
             End With
             Ps_w.Parameters.Append MonParam6
 
             Dim MonParam13 As ADODB.Parameter
             Set MonParam13 = New ADODB.Parameter
             With MonParam13
                .Name = "@abs_nbjour"
                .Direction = adParamInput
                .Type = adDouble
                .Value = CDbl(Replace(GridDetail.Columns(6).Text, ".", ","))
             End With
             Ps_w.Parameters.Append MonParam13
 
             Ps_w.Execute