| Код |
ADOQuery3.SQL.Text:='INSERT INTO RNumber VALUES (:id,:Post,:Neud,:Number,:Data,:Page,:Pay,:Cost,:PaperID,:SizeR,:RCost,:Mask,:Rubric,:Verstka,:MakeCount,:SizeD,:DataPayd)';
ADOQuery3.Parameters.ParseSQL(ADOQuery3.SQL.text,True);
ADOQuery3.Parameters.ParamByName('id').Value:=s;
ADOQuery3.Parameters.ParamByName('Post').Value:= i;
if Reklam.StringGrid4.Cells[8,i]<>'' then ADOQuery3.Parameters.ParamByName('Neud').Value:= StrToInt(Reklam.StringGrid4.Cells[8,i])
else
ADOQuery3.Parameters.ParamByName('Neud').Value:=0;
ADOQuery3.Parameters.ParamByName('Number').Value:=Reklam.StringGrid4.Cells[2,i];
if Reklam.StringGrid4.Cells[4,i]<>'' then ADOQuery3.Parameters.ParamByName('Data').Value:=StrToDate(Reklam.StringGrid4.Cells[4,i])
else
ADOQuery3.Parameters.ParamByName('Data').Value:=MinDateTime;
if Reklam.StringGrid4.Cells[3,i]<>'' then ADOQuery3.Parameters.ParamByName('Page').Value:=StrToInt(Reklam.StringGrid4.Cells[3,i])
else
ADOQuery3.Parameters.ParamByName('Page').Value:=0;
ADOQuery3.Parameters.ParamByName('Pay').Value:=State;
if Reklam.StringGrid4.Cells[6,i]<>'' then ADOQuery3.Parameters.ParamByName('Cost').Value:= StrToCurr(Reklam.StringGrid4.Cells[6,i])
else
ADOQuery3.Parameters.ParamByName('Cost').Value:=0;
ADOQuery3.Parameters.ParamByName('PaperID').Value:= s2;
ADOQuery3.Parameters.ParamByName('SizeR').Value:= Reklam.StringGrid4.Cells[5,i];
if Reklam.StringGrid4.Cells[9,i]<>'' then ADOQuery3.Parameters.ParamByName('RCost').Value:= StrToCurr(Reklam.StringGrid4.Cells[9,i])
else
ADOQuery3.Parameters.ParamByName('RCost').Value:=0;
ADOQuery3.Parameters.ParamByName('Mask').Value:=Reklam.StringGrid4.Cells[12,i];
ADOQuery3.Parameters.ParamByName('Rubric').Value:=Reklam.StringGrid4.Cells[14,i];
ADOQuery3.Parameters.ParamByName('Verstka').Value:= Reklam.StringGrid4.Cells[15,i];
if Reklam.StringGrid4.Cells[16,i]<>'' then ADOQuery3.Parameters.ParamByName('MakeCount').Value:=StrToInt(Reklam.StringGrid4.Cells[16,i])
else
ADOQuery3.Parameters.ParamByName('MakeCount').Value:=0;
if Reklam.StringGrid4.Cells[17,i]<>'' then ADOQuery3.Parameters.ParamByName('SizeD').Value:=StrToFloat(Reklam.StringGrid4.Cells[17,i])
else
ADOQuery3.Parameters.ParamByName('SizeD').Value:=0;
if Reklam.StringGrid4.Cells[18,i]<>'' then ADOQuery3.Parameters.ParamByName('DataPayd').Value:=StrToDate(Reklam.StringGrid4.Cells[18,i])
else
ADOQuery3.Parameters.ParamByName('DataPayd').Value:=MaxDateTime;
Reklam.ADOQuery3.SQL.SaveToFile(IntToStr(i)+'.txt');
Reklam.ADOQuery3.ExecSQL;
Reklam.ADOQuery3.Close;
Reklam.ADOQuery3.SQL.Clear;
|
Во время выполнения кода на строке ExecSQL вылетает со странной ошибкой:
EOleException "Недопустимое символьное значение для спецификации броска"
Что за ошибка? И как бороться? |
Как для скуэль сервера задать миндатетайм? 