|
Помогите с обращением к ХП
#32666456
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
Участник
Откуда: МО
Сообщения: 2 440
|
|
Прикинь отработало два раза, а потом начало выдавать ошибку.
Почему не пойму.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Dim cmd As ADODB.Command
Dim cnt As ADODB.Connection
Dim prm As ADODB.Parameter
Set cnt = New ADODB.Connection
Set cmd = New ADODB.Command
Set cnt = CurrentProject.Connection
cmd.ActiveConnection = cnt
cmd.CommandText = "calc_f"
cmd.CommandType = adCmdStoredProc
Set prm = cmd.CreateParameter("shem", adLongVarChar, adParamInput, 100 , "rub->rub") 'Val_CR & "->" & Val_pay_contract)
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter("summ", adDecimal, adParamInput, , 5 ) ' Summ_of_CR)
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter("Date_cur", adDBDate, adParamInput, , # 8 / 8 / 2004 #)
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter("mode", adInteger, adParamInput, , 3 )
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter("Our_curs", adDecimal, adParamInput, , 1 )
cmd.Parameters.Append prm
a = cmd.Execute.Fields( 0 )
вот ХП
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.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
ALTER proc dbo.calc_f
@Shem as nvarchar( 100 ), @Summ as float( 8 ), @Date_cur as datetime, @mode as int, @Our_curs as float( 8 )
AS
begin
declare @kurs_r as float( 8 ),@kurs_u as float( 8 ),@kurs_e as float( 8 ),@my_count as int,@my_date as smalldatetime
declare @calc as float( 8 )
select @my_count=count(*)
from Cuuren_K
where Date_Curren=@Date_cur
if @my_count> 0
begin
declare batch1 cursor
for Select kurs_rub, kurs_euro
from Cuuren_K
where Date_Curren=@Date_cur
open batch1
fetch next from batch1 into @kurs_r, @kurs_e
while @@fetch_status= 0
begin
fetch next from batch1 into @kurs_r, @kurs_e
end
close batch1
deallocate batch1
end
else
begin
declare batch2 cursor scroll
for Select date_curren,kurs_rub, kurs_usd,kurs_euro
from Cuuren_K
open batch2
fetch next from batch2 into @my_date,@kurs_r,@kurs_u ,@kurs_e
if @my_date>@Date_cur
begin
fetch first from batch2 into @my_date,@kurs_r,@kurs_u ,@kurs_e
end
else
begin
fetch last from batch2 into @my_date,@kurs_r,@kurs_u ,@kurs_e
end
while @@fetch_status= 0
begin
fetch next from batch2 into @my_date,@kurs_r,@kurs_u, @kurs_e
end
close batch2
deallocate batch2
end
if @mode= 1
begin
if @shem= 'USD->RUB' Or @Shem = 'RUB->USD'
set @Calc = Round(@Kurs_R, 4 )
if @Shem = 'USD->EURO' Or @Shem = 'EURO->USD'
set @Calc = Round(@Kurs_E, 4 )
If @Shem = 'EURO->RUB' Or @Shem = 'RUB->EURO'
set @Calc = Round((@Kurs_E * @Kurs_R), 4 )
If @Shem = 'EURO->EURO' Or @Shem = 'RUB->RUB' Or @Shem = 'USD->USD'
set @Calc = 1
end
if @mode= 2
begin
If @Shem = 'USD->RUB' Or @Shem = 'EURO->USD' Or @Shem = 'EURO->RUB'
set @Calc = Round(@Summ * @Our_curs, 2 )
If @Shem = 'USD->EURO' Or @Shem = 'RUB->USD' Or @Shem = 'RUB->EURO'
set @Calc = Round(@Summ / @Our_curs, 2 )
If @Shem = 'EURO->EURO' Or @Shem = 'RUB->RUB' Or @Shem = 'USD->USD'
set @Calc = Round(@Summ * @Our_curs, 2 )
end
if @mode= 3
begin
If @Shem = 'USD->RUB'
set @Calc = Round(@Summ * @Kurs_R, 2 )
If @Shem = 'USD->EURO'
set @Calc= Round(@Summ / @Kurs_E, 2 )
If @Shem = 'EURO->USD'
set @Calc = Round(@Summ * @Kurs_E, 2 )
If @Shem = 'EURO->RUB'
set @Calc = Round(@Summ * (@Kurs_E * @Kurs_R), 2 )
If @Shem = 'RUB->USD'
set @Calc = Round(@Summ / @Kurs_R, 2 )
If @Shem = 'RUB->EURO'
set @Calc = Round(@Summ / (@Kurs_E * @Kurs_R), 2 )
If @Shem = 'EURO->EURO' Or @Shem = 'RUB->RUB' Or @Shem = 'USD->USD'
set @Calc = Round(@Summ, 2 )
end
---return @calc
end
select @calc as retcode
Вот ошибка
---------------------------
Ошибка
---------------------------
Error=-2147467259; The precision is invalid.
---------------------------
OK
---------------------------
|
|
|
