|
Тема |
ADOStoredProc и съобщение за грешка в Edit1.text |
|
Автор | Stand_Boy (Нерегистриран) | |
Публикувано | 26.06.04 01:54 |
|
|
БИХТЕ ЛИ МИ КАЗАЛИ КАК ДА ИЗПЪЛНЯ ТАЗИ ПРОЦЕДУРА:
CREATE PROCEDURE dbo.Proba
@data1 varchar (12),
@data2 varchar (12) ,
@Obshta_Suma NUMERIC output
AS
Select @Obshta_Suma=sum(Obshta_Suma) from PKO where Vnos_Data between @data1 and @data2
GO
код в Delphi
procedure TForm1.Button1Click(Sender: TObject);
var t:double;
begin
AdostoredProc1.Parameters.ParamByName('@Data1').Value:=
DateToStr(DateTimePicker1.Date );
AdostoredProc1.Parameters.ParamByName('@Data2').Value :=
DateToStr(DateTimePicker2.Date );
AdostoredProc1.ExecProc;
t:=AdoStoredProc1.Parameters.ParamByName('@Obshta_Suma').Value ;
edit1.Text:=FloatToStr(t);
end;
КОГАТО В ДЕЛФИ ИМАМ ТАКЪВ КОД МИ ДАВА ГРЕШКА 'INVALID VARIANT CONVERSION',когато махна edit1.Text:=FloatToStr(t); не ми дава съобщение за грешка,но пък как да видя резултата в edit1???
Ако някой ми даде съвет ще съм много благодарен!
|
| |
|
|
|