[Hi,
leider verstehe ich in VB.Net die einfachsten Dinge nicht: Datensätze lesen, ändern und zurückschreiben. Nach 20 Jahren VB6 ganz schön hart!
Ich lese die Datensätze wie folgt:
sql = "select a.* from tabts as a"
sql = sql & " inner join tabtsabre as b"
sql = sql & " on (b.tsnr = a.tsnr and b.sorte = a.sorte)"
sql = sql & " where b.tsnr = a.tsnr and b.sorte = a.sorte"
sql = sql & " and status = 1 and volumen < 1"
dim cmd as new oledbcommand
cmd.commandtext = sql
con.connectionstring=constr
dim da = new oledbDataAdapter(sql, con)
dim ds as new dataset
dim dt as new dataTable
try
con.open
da.fill(ds)
catch ex as exception
messagebox.show(ex.message)
end try
for each dtr as datarow in dt.rows
dtr("volumen")=5000
next
' Bis hierher so weit so gut und fehlerfrei
' vor dem Update muss ein UpdateCommand kommen
' Wie schaffe ich es nur die geänderten Zeile zurückzuschreiben???
da.Update(dt) ' läuft ohne UpdateCommand gegen die Wand
Wie müsste der UpdateCommand lauten?
Primary Key in tabts ist tsnr, sorte
leider verstehe ich in VB.Net die einfachsten Dinge nicht: Datensätze lesen, ändern und zurückschreiben. Nach 20 Jahren VB6 ganz schön hart!
Ich lese die Datensätze wie folgt:
sql = "select a.* from tabts as a"
sql = sql & " inner join tabtsabre as b"
sql = sql & " on (b.tsnr = a.tsnr and b.sorte = a.sorte)"
sql = sql & " where b.tsnr = a.tsnr and b.sorte = a.sorte"
sql = sql & " and status = 1 and volumen < 1"
dim cmd as new oledbcommand
cmd.commandtext = sql
con.connectionstring=constr
dim da = new oledbDataAdapter(sql, con)
dim ds as new dataset
dim dt as new dataTable
try
con.open
da.fill(ds)
catch ex as exception
messagebox.show(ex.message)
end try
for each dtr as datarow in dt.rows
dtr("volumen")=5000
next
' Bis hierher so weit so gut und fehlerfrei
' vor dem Update muss ein UpdateCommand kommen
' Wie schaffe ich es nur die geänderten Zeile zurückzuschreiben???
da.Update(dt) ' läuft ohne UpdateCommand gegen die Wand
Wie müsste der UpdateCommand lauten?
Primary Key in tabts ist tsnr, sorte
