深藍色論壇

代碼: 選擇全部

procedure Tform1.Button4Click(Sender: TObject);
var
 wstr: Array[0..2048] of WideChar;
 ws: Widestring;
begin
 GetPrivateProfileStringW('MY Section', 'A3', '', PWideChar(@wstr), 2048, 'c:1.ini');
 ws := wstr;
 ADOQuery1.SQL.Text := 'Insert Into test (F1, F2, F3) values (:v1, :v2, :v3)';
 ADOQuery1.Parameters.ParseSQL(ADOQuery1.SQL.Text, true);

 //... assign v1, v2 ..
 
 ADOQuery1.Parameters.ParamByName('v3').DataType := ftWideString;
 ADOQuery1.Parameters.ParamByName('v3').value := ws;
 
 ADOQuery1.ExecSQL;
end;