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