... ADOQuery: TADOQuery; ... procedure TForm26.FormShow(Sender: TObject); begin // Set up the insert command ADOQuery.SQL.Text := 'INSERT INTO equip ' + '(ac_main_mccb_no,ac_sub_mccb_no,design_pressure,design_temp) ' + 'VALUES (:ac_main_mccb_no,:ac_sub_mccb_no,:design_pressure,:design_temp)'; ADOQuery.Parameters.ParamByName('ac_main_mccb_no').DataType := ftString; ADOQuery.Parameters.ParamByName('ac_sub_mccb_no').DataType := ftString; ADOQuery.Parameters.ParamByName('design_pressure').DataType := ftFloat; ADOQuery.Parameters.ParamByName('design_temp').DataType := ftFloat; end; procedure TForm26.Button1Click(Sender: TObject); var DesignPres: Double; begin // Compute a value to show that we don't format the value as a string DesignPres := 7 / 2; // Set the parameter values ADOQuery.Parameters.ParamByName('ac_main_mccb_no').Value := Null; ADOQuery.Parameters.ParamByName('ac_sub_mccb_no').Value := Null; ADOQuery.Parameters.ParamByName('design_pressure').Value := DesignPres; ADOQuery.Parameters.ParamByName('design_temp').Value := 380; // Execute insert command ADOQuery.ExecSQL end;
exec sp_executesql N'INSERT INTO equip (ac_main_mccb_no,ac_sub_mccb_no,design_pressure,design_temp) VALUES (@P1,@P2,@P3,@P4)',N'@P1 varchar(50),@P2 varchar(50),@P3 float,@P4 float',NULL,NULL,3.5,380