.NET Framework - dataTable update via dataAdapter

Asked By Samy_E

30-Jan-10 05:25 AM

Hallo,

ich versuch nun schon seit einiger Zeit mein Programm umzuschreiben. Die
Ursprungsversion importiert aus eine Excel Tabelle Daten und schreibt
Sie in 4 DataTables die alle einzeln in xml gespeichert werden. Der
Nachteil am Ursprungsprogramm: kein Multiuser Support.

Nun will ich das ganze mit eine Access Datenbankdatei realisieren.

Ich befuelle via Select * xx fuer jede Tabelle einen Dataadapter,
funktioniert einwandfrei. Auch Insert neuer Daten funktioniert einwandfrei.

Nun zu meinem Problem:

Aendere ich die Daten die via Databinding gebunden sind und versuche ich
diese dann per update mit der Access Datenbankdatei abzugleichen, werden
die Daten nicht abgeglichen.

Seit 3 Wochen versuch ich nun schon verschiedene varianten. Vielleicht
kann sich das mal wer ansehen, hab ich hier einen Denkfehler?

Ich bekomme keinen Fehler, keine Exception es wird einfach nichts
aktualisiert obwohl Datatable Lokal mit Access ungleich ist. Ein
Primaerschluessel Autoinkrement ist in der Access Datenbankdatei
vorhanden 995mainID - 970mainID - R67mainID / textKommission ist eindeutig

Dim strTable As String
Dim strSql As New System.Text.StringBuilder

Select Case intBlatt
Case 1
strTable = "datTable995"
Case 2
strTable = "datTable970"
Case 3
strTable = "datTableR67"
Case 4
strTable = "datTableF3"
GoTo endF3
Case Else
strTable = Nothing
GoTo endNormal
End Select

strSql.Append("UPDATE " & strTable & " SET ")
strSql.Append("textKommission=@textKommission,
intNetzplan=@intNetzplan, textBearbeiter=@textBearbeiter,
intMeter=@intMeter, ")
strSql.Append("dblSoll_T690=@dblSoll_T690,
dblIst_T690=@dblIst_T690, dblSoll_T760=@dblSoll_T760,
dblIst_T760=@dblIst_T760, ")
strSql.Append("textKommentar=@textKommentar, ")
strSql.Append("dateDtgTermin=@dateDtgTermin,
dateSapTermin=@dateSapTermin, dateAufgenommen=@dateAufgenommen, ")
strSql.Append("boolHardware=@boolHardware,
boolWirdgebaut=@boolWirdgebaut, boolVorbereitet=@boolVorbereitet, ")
strSql.Append("boolAufgebaut=@boolAufgebaut,
boolSoftware=@boolSoftware, boolAbgebaut=@boolAbgebaut, ")
strSql.Append("boolBilder=@boolBilder, boolF3=@boolF3,
boolDtg=@boolDtg, boolStorniert=@boolStorniert ")
strSql.Append("WHERE textKommission=@textKommission")

'Erstelle neuen Sql Command
sqlCommand = sqlConnection.CreateCommand
sqlCommand.CommandText = strSql.ToString

sqlCommand.Parameters.Clear()
sqlCommand.Parameters.AddWithValue("@intNetzplan",
DataRowVersion.Current)
sqlCommand.Parameters.AddWithValue("@textBearbeiter",
DataRowVersion.Current)
sqlCommand.Parameters.AddWithValue("@intMeter",
DataRowVersion.Current)
sqlCommand.Parameters.AddWithValue("@textKommentar",
DataRowVersion.Current)
sqlCommand.Parameters.AddWithValue("@dblSoll_T690",
DataRowVersion.Current)
sqlCommand.Parameters.AddWithValue("@dblIst_T690",
DataRowVersion.Current)
sqlCommand.Parameters.AddWithValue("@dblSoll_T760",
DataRowVersion.Current)
sqlCommand.Parameters.AddWithValue("@dblIst_T760",
DataRowVersion.Current)
sqlCommand.Parameters.AddWithValue("@dateDtgTermin",
DataRowVersion.Current)
sqlCommand.Parameters.AddWithValue("@dateSapTermin",
DataRowVersion.Current)
sqlCommand.Parameters.AddWithValue("@dateAufgenommen",
DataRowVersion.Current)
sqlCommand.Parameters.AddWithValue("@boolHardware",
DataRowVersion.Current)
sqlCommand.Parameters.AddWithValue("@boolWirdgebaut",
DataRowVersion.Current)
sqlCommand.Parameters.AddWithValue("@boolVorbereitet",
DataRowVersion.Current)
sqlCommand.Parameters.AddWithValue("@boolAufgebaut",
DataRowVersion.Current)
sqlCommand.Parameters.AddWithValue("@boolSoftware",
DataRowVersion.Current)
sqlCommand.Parameters.AddWithValue("@boolAbgebaut",

30-Jan-10 08:14 AM

Samy_E schrieb:

Auf den ersten Blick sehe ich nur, dass jeder Parameter
den Wert DataRowVersion.Current hat. Der zweite Parameter
muss aber doch der Wert sein, z.B.

sqlCommand.Parameters.AddWithValue("@intNetzplan", 4711)
sqlCommand.Parameters.AddWithValue("@textBearbeiter", "Ich bin's")



--
Armin

30-Jan-10 10:24 AM

Danke fuer Deine Antwort,

Ich dachte dass der DataAdapter alle Aenderungen der lokalen DataTable
mit der der Datenbank abgleicht? Sind dann nicht DataRowVersion.Current
die aktuellen werte der lokalen DataTable enthalten? so ist in dem Buch
VB.Net Markt&Technik im Beispiel beschrieben? Deshalb ja auch

datAdapter995.Update(datTable995.GetChanges)

Oder liegt hier mein Denkfehler?

30-Jan-10 11:12 AM

Samy_E schrieb:

Richtig


DataRowVersion.Current ist eine Konstante (mit Wert 512). Dort,
wo du eine DataRowVersion ?bergeben kannst, k?nntest du diese
Konstante ?bergeben. Beispiel:

DataRow.Item(ByVal columnIndex As Integer, ByVal version As System.Data.DataRowVersion)

Verwendung:

Dim wert = row(17, DataRowVersion.Current)




Mir ging es nur um deine Verwendung von AddWithValue. Der zweite
Parameter ist der Wert. Du tr?gst als Wert immer DataRowVersion.Current,
also 512, ein. Ich glaube nicht, dass in jedes Feld dieser Wert
geschrieben werden soll. Wenn du Dataadapter.Update aufrufst brauchst
du ?berhaupt keine Parameterwerte setzen denn das macht der DataAdapter
schon selbst. Den Rest habe ich nicht analysiert.


--
Armin