Delphi TadoQuery - преобразование типов параметров

Я отправляю с параметрами Jquery и Ajax с веб-страницы на мой веб-сервер Delphi. Эти параметры будут использоваться в select, но как только я доберусь до TADOQ.Open; я получаю исключение, которое содержит сообщение под разделом кода.

Я новичок в Delphi, поэтому мне нелегко понять, как работать с UnicodeString, AnsiString а также String, Также я не понимаю, почему это говорит doubleкогда я его нигде не использую.

Есть ли простой способ решить проблему? (Небольшой код и легко понять)

РЕДАКТИРОВАТЬ: добавлен процесс перед вызовом SearchChosen();

KoyoWebSqlReader:=CKoyoWebSqlReader.Create;
KoyoWebSqlReader.OpenConnection;

Response.ContentType:='application/json';
Txt:=KoyoWebSqlReader.SearchChosen(
  StrToInt(SplitString(Request.ContentFields[0], '=')[1]),
  StrToDateTime(SplitString(Request.ContentFields[1], '=')[1])
).toJsonString;
Response.Content:=Txt;

KoyoWebSqlReader.CloseConnection;

// -----

function CKoyoWebSqlReader.SearchChosen(TicketNumber:Integer; Start:TDateTime):CKoyoMeasurement;
var Search:TADOQuery;
var Measurement:CKoyoMeasurement;
begin
    Measurement:=CKoyoMeasurement.Create;

    Search:=TADOQuery.Create(nil);
    Search.Connection:=Connection;
    Search.SQL.Clear;
    Search.SQL.Text:=
    'SELECT * FROM Measurements WHERE TicketNumber = :TicketNumber AND Start = :Start;';
    Search.Parameters.ParamByName('TicketNumber').Value:=TicketNumber;
    Search.Parameters.ParamByName('Start').Value:=Start;

    try
    Search.Open;
    // Fill Measurement
    except on EX:Exception do
    begin
    // Log Exception
    end;
end;
Search.Close;
Result:=Measurement;
end;

Вариант типа (UnicodeString) не может быть преобразован в (Double)

0 ответов

Другие вопросы по тегам