Aplikace na Delphi XE s MS Compact SQL 4.0 s použitými parametry - bez varování na příkazu ExecSQL spadne:
with TADOQuery.Create(nil) do
begin
Connection := connData; //což je TADOConnection s "Provider=Microsoft.SQLSERVER.CE.OLEDB.4.0;Data Source=D:\Aplikace.sdf;"
SQL.Text := 'INSERT INTO diagnozy (kod, zna, poh, vod, vdo, naz) VALUES (:kod, :zna, :poh, :vod, :vdo, :naz)';
Parameters.ParamByName('kod').Value := foNemoc.Edit1.Text;
Parameters.ParamByName('zna').Value := foNemoc.Edit2.Text;
Parameters.ParamByName('poh').Value := foNemoc.Edit3.Text;
Parameters.ParamByName('vod').Value := foNemoc.Edit4.Text;
Parameters.ParamByName('vdo').Value := foNemoc.Edit5.Text;
Parameters.ParamByName('naz').Value := foNemoc.Edit6.Text;
try
ExecSQL; //tady se aplikace bez jakékoli chybové hlášky odporoučí do kytek
finally
Free;
end;
end;
Na standardní databázi MSSQL vše proběhne OK. Laborování s parametry TADOQuery k ničemu nevede. Nesetkal se někdo s podobným ? Díky.