Code:
Dim TMPDataAdapter As MySql.Data.MySqlClient.MySqlDataAdapter ''eigene Funktion, welche eigentlich eine DataRow ausgibt, ich aber mit dem DataAdapter, welches auch in der Klasse angelegt wird, weiterarbeite
clsMysql.LoadAnyDS(mod_gloConst.tab_Arm_Typ, _
"armaturen_typ_id", TMPInteger)
TMPDataAdapter = clsMysql.getCurDataAdapter
TMPDataAdapter.UpdateCommand = _
New MySql.Data.MySqlClient.MySqlCommand("Update armaturen_typ " & _
"Set Bemerkung = @Bemerkung " & _
"where Armaturen_TYP_ID = @Armaturen_TYP_ID", _
clsMysql.getConnection)
''erstellen der Parameter für die einzelnen Spalten
Dim para As MySql.Data.MySqlClient.MySqlParameter
''@Armaturen_TYP_ID
para = TMPDataAdapter.UpdateCommand.Parameters.Add _
(New MySql.Data.MySqlClient.MySqlParameter _
("@Armaturen_TYP_ID", MySql.Data.MySqlClient.MySqlDbType.Int32))
para.SourceColumn = "Armaturen_TYP_ID"
para.SourceVersion = DataRowVersion.Current
''@Bemerkung
para = TMPDataAdapter.UpdateCommand.Parameters.Add _
(New MySql.Data.MySqlClient.MySqlParameter _
("@Bemerkung", MySql.Data.MySqlClient.MySqlDbType.VarChar))
para.SourceColumn = "Bemerkung"
para.SourceVersion = DataRowVersion.Current
Dim TMPDataSet As DataSet = New DataSet
TMPDataAdapter.Fill(TMPDataSet, "Armaturen_Typ")
Dim PK(0) As DataColumn
PK(0) = _
TMPDataSet.Tables("Armaturen_Typ").Columns("Armaturen_Typ_ID")
TMPDataSet.Tables("Armaturen_Typ").PrimaryKey = PK
Dim TMPDataRow As DataRow = _
TMPDataSet.Tables(0).Rows(0)
With m_frm_Arm_Typ
TMPDataRow("Bemerkung") = .txt_Bemerkung.Text
TMPDataRow("Armaturen_TYP_id") = .txt_laufende_Nummer.Text
End With
TMPDataAdapter.Update(TMPDataSet, "Armaturen_Typ")