Kod: Tümünü seç
//q_Exec : TQuery;
//sUNICODE_DATA : widestring;
q_Exec.SQL.Text :=' INSERT INTO Table1 (A_SEQ,A_DESC) VALUES(:A_SEQ,:A_DESC)';
q_Exec.ParamByName('A_SEQ').AsFloat := 12;
q_Exec.ParamByName('A_DESC').DataType := ftWideString;
q_Exec.ParamByName('A_DESC').AsString := sUNICODE_DATA;
q_Exec.ExecSQL;