22. September 2021 10:11
procedure UpdateSQLDatabase2(Parameter1: Text[30]; Parameter2: Text[30]; Parameter3: Date; Parameter4: Integer)
var
SQLClientCon: DotNet SQLConnection;
MySQLDataSet: DotNet SQLDataSet;
POISQLDataAdapter: DotNet SQLDataAdapter;
POISQLCommand: DotNet SQLCommand;
POISQLParameter: DotNet SQLParameter;
POISQLParameter2: DotNet SQLParameter;
Parameter5: Variant;
SQLQuery: Text;
SQLUpdateTxt: label 'update [dbo].[Daten] set [Name] = @var1 , [Name2] = @var2 , [Date] = @var3 where [ID] = @ID';
begin
SQLQuery := 'SELECT * FROM Daten';
POISQLDataAdapter := POISQLDataAdapter.SqlDataAdapter(SQLQuery, GetSQLConnection());
MySQLDataSet := MySQLDataSet.DataSet();
POISQLDataAdapter.Fill(MySQLDataSet);
POISQLCommand := POISQLCommand.SqlCommand(SQLUpdateTxt);
SQLClientCon := SQLClientCon.SqlConnection('Server=Servername;Database=Test;Trusted_Connection=Yes;');
POISQLCommand.Connection(SQLClientCon);
POISQLDataAdapter.UpdateCommand(POISQLCommand);
SetSQLParameter(Parameter4, '@ID', POISQLDataAdapter);
SetSQLParameter(Parameter1, '@var1', POISQLDataAdapter);
SetSQLParameter(Parameter2, '@var2', POISQLDataAdapter);
Parameter5 := Parameter3; //Übergabe an eine Variable vom Typ Variant
POISQLParameter2 := POISQLParameter.SqlParameter();
POISQLParameter2.ParameterName := '@var3';
POISQLParameter2.Value := Parameter5;
POISQLDataAdapter.UpdateCommand.Parameters.Add(POISQLParameter2);
POISQLDataAdapter.Update(MySQLDataSet, MySQLDataSet.Tables.Item(0).ToString());
SQLClientCon.Close();
end;
procedure SetSQLParameter(ParamValueVariant: Variant; ParamID: Text[30]; var POISQLDataAdapter: DotNet SQLDataAdapter)
var
POISQLParameter: DotNet SQLParameter;
begin
POISQLParameter := POISQLParameter.SqlParameter();
POISQLParameter.ParameterName := ParamID;
POISQLParameter.Value := ParamValueVariant;
POISQLDataAdapter.UpdateCommand.Parameters.Add(POISQLParameter);
end;
22. September 2021 11:23