Я в шоке, битый час мучаюсь, но генератор идей на нуле...
Решили мы перенести логику на сервер. Написали процедуру, которая получает параметры с формы и заполняет нужные таблички, из которых форма потом забирает данные вьюхой. Всё замечательно, только считает не правельно. Причём вся фишка в том, что если запустить процедуру из QA, то всё работет правельно, а если передать туже самую строчку чарез ADO, то не работает. Где суслик???
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.
Dim c As New ADODB.Connection
Dim d As New ADODB.Command
...
c.Open AdoConn
c.CommandTimeout = 20000
d.ActiveConnection = c
d.CommandTimeout = 20000
q = "exec dbo.onclick " & _
"@ID = " & Nz(Me.ID, "NULL") & ", " & _
"@prijmeni = " & Nz(Me.prijmeni, "NULL") & ", " & _
"@rnarozeni= " & Nz(Me.rnarozeni, "NULL") & ", " & _
"@status = " & Nz(Me.status, "NULL") & ", " & _
"@praceod = " & IIf(Nz(SQLDate(Me.praceod), "NULL") = "", "NULL", Nz(SQLDate(Me.praceod), "NULL")) & ", " & _
"@pracedo = " & IIf(Nz(SQLDate(Me.pracedo), "NULL") = "", "NULL", Nz(SQLDate(Me.pracedo), "NULL")) & ", " & _
"@vikendy = " & Nz(Me.vikendy, "NULL") & ", " & _
"@vyjadrschop = " & Me.vyjadrschop & ", " & _
"@spismluva = " & Me.spismluva & ", " & _
"@preknamitek = " & Me.preknamitek & ", "
q = q & "@naslou = " & Me.naslou & ", " & _
"@obsahspr = " & Me.obsahspr & ", " & _
"@dodrstandardy = " & Me.dodrstandardy & ", " & _
"@komunikace = " & Me.komunikace & ", " & _
"@ZamE = " & GetZamE() & ", " & _
"@zak = " & Nz(Me.zak, "NULL") & ", " & _
"@SkupE = " & GetSkupE() & ", " & _
"@hwnd = " & Me.hwnd & ", " & _
"@od = " & IIf(Nz(SQLDate(Me.Od), "NULL") = "", "NULL", Nz(SQLDate(Me.Od), "NULL")) & ", " & _
"@do = " & IIf(Nz(SQLDate(dodatum), "NULL") = "", "NULL", Nz(SQLDate(dodatum), "NULL")) & ", " & _
"@chkOper = " & IIf(Me.chkOper, 1 , 0 ) & ", " & _
"@groupby = " & Me.groupby & ", " & _
"@chkNaklady = " & CInt(Me.chkNaklady)
Debug.Print q
d.CommandText = q
d.CommandType = adCmdText
d.Execute
c.Close
Me.Vysledky.Requery
Debug.Print выдаёт
debug exec dbo.onclick @ID = NULL, @prijmeni = NULL, @rnarozeni= NULL, @status = NULL, @praceod = NULL, @pracedo = NULL, @vikendy = NULL, @vyjadrschop = 100, @spismluva = 100, @preknamitek = 100, @naslou = 100, @obsahspr = 100, @dodrstandardy = 100, @komunikace = 0, @ZamE = -1, @zak = NULL, @SkupE = 0, @hwnd = 1443140, @od = {d '2008-12-01'}, @do = {d '2008-12-05'}, @chkOper = 0, @groupby = 1, @chkNaklady = -1
Если запустить в QA этот же текст, всё считает правельно... :/
Я суслика в упор не вижу, хотя он похоже не прячется...
