Announcement

**Andreas Kosch** · 21.03.2006, 07:35

Hallo,
der DataAdapter hat beim Fill-Aufruf die Ergebnismenge der SELECT-Abfrage im DataSet abgelegt, somit sind bereits alle Werte der Felder der abgefragten Datenbank-Tabelle in objektorientierter Weise in "Variablen" gespeichert - nur dass die "Variable" als Kollektion aufgebaut ist: Die DataTable-Instanz im DataSet hat eine Rows-Kollektion, und jede dort abgelegte Row-Instanz hat eine Columns-Kollektion. Das eigene Programm kann somit direkt auf jedes einzelne Feld gezielt zugreifen. Und da es in ADO.NET keinen Datensatzzeiger gibt, kann jedes Feld im DataSet völlig frei abgefragt oder beschrieben werden. Das folgende Beispiel demonstriert das Prinzip
<code>
Dim aDTCustomer As New DataTable()
' SelectCommand = SELECT ProductID, ProductName FROM Products
SqlDataAdapter2.Fill(aDTCustomer)
Dim sWert1, sWert2 As String
sWert1 = aDTCustomer.Rows(2)(1).ToString()
sWert2 = aDTCustomer.Rows(0)(1).ToString()
MessageBox.Show(sWert1 + Environment.NewLine + sWert2)
</code>
 
>Wie wandle ich eine String-Variable in eine Integer-Variable um?
Dafür stehen mehrere Wege zur Verfügung. Zum einen die VB-spezifischen Anweisungen, wie zum Beispiel CDec:
<code>
Dim dData As Decimal = CDec(TextBox1.Text)
</code>
Universeller sind die sprachunabhängigen Klassen aus dem .NET Framework, wie zum Beispiel Convert:
<code>
Dim aData As Decimal = Convert.ToDecimal(TextBox1.Text)
</code&gt

**Gerald Hollmann** · 21.03.2006, 23:35

Hallo,
.
vielen Dank für die schnelle Hilfe. Ich kann jetzt also Datenfelder in Variablen schreiben und auch Variablen in bestehende Datenfelder.
.
dbadressen.Rows(0)(0) = name
OleDbDataAdapter1.Update(dbadressen)
.
Nur kann ich leider noch keine zusätzlichen Datenreihen anfügen. Bisher überschreibt mir das Programm die bestehenden Felder.

&#10

**Andreas Kosch** · 24.03.2006, 07:28

Hallo,
jeder neue Datensatz muss als Row-Instanz der vorhandenen Rows-Kollektion hinzugefügt werden. Die Vorgehensweise hängt davon ob, ob ein typisiertes DataSet oder ein untypisiertes DataSet verwendet wird.
 
A) Typisiertes DataSet: Beim Anlegen des typisierten DataSets hat Visual Studio automatisch eine Hilfsklasse generiert, die alle Spalten der Tabellen als Eigenschaften kapselt und die spezielle Hilfsmethoeden zum Suchen und Einfügen von neuen Datensätzen implementiert. Zum Beispiel ist die Methode AddMailAdressenRow eine derartige Hilfsmethode, die sofort aufgerufen werden kann und bei der die Programmierhilfe von Visual Studio die erwarteten Parameter auflistet:
<code>
DataSet11.MailAdressen.AddMailAdressenRow(TextBox2 .Text, TextBox3.Text, TextBox4.Text, CheckBox1.Checked)
</code>
C) Untypisiertes DataSet
<code>
Dim aNewRow As DataRow
aNewRow = aNewDataTable.NewRow()
aNewRow(0) = "Kosch"
aNewRow(1) = "Andreas"
aNewRow(2) = 40
DataSet1.Tables(0).Rows.Add(aNewRow)
</code&gt

**Gerald Hollmann** · 24.03.2006, 20:58

Hallo,
.
das mit den untypisierten Datensätzen sieht ja ganz gut aus, nur bekomme ich sofort die Fehlermeldung:
.
"Spalte 0" nicht gefunden.
.
Muss ich trotz dataSet die Datei erst noch öffnen

**Andreas Kosch** · 27.03.2006, 05:47

Hallo,
das folgende Beispiel definiert die Tabellenstruktur erst zur Laufzeit, somit werden die Daten in einer In-Memory-Tabelle gespeichert:
<code>
' neue DataTable erzeugen
Dim aNewDataTable As New DataTable()
aNewDataTable.Columns.Add("Nachname", GetType(String))
aNewDataTable.Columns.Add("Vorname", GetType(String))
aNewDataTable.Columns.Add("Alter", GetType(Int32))
aNewDataTable.PrimaryKey = New DataColumn() {aNewDataTable.Columns("Nachname"), aNewDataTable.Columns("Vorname")}
aNewDataTable.MinimumCapacity = 10
' neuen Datensatz eintragen (Variante 1)
Dim aNewRow As DataRow
aNewRow = aNewDataTable.NewRow()
aNewRow(0) = "Kosch"
aNewRow(1) = "Andreas"
aNewRow(2) = 40
aNewDataTable.Rows.Add(aNewRow)
' neuen Datensatz eintragen (Variante 2)
aNewDataTable.Rows.Add(New Object() {"Mustermann", "Manfred", 50})
' Ergebnis anzeigen
DataGrid1.DataSource = aNewDataTable
</code>
Wenn allerdings das DataSet über die Fill-Methode vom DataAdapter gefüllt wird, liegt dort bereits eine DataTable-Instanz mit der Struktur der ausgelesenen Datenbank-Tabelle vor. In diesem Fall kann über Rows.Add sofort ein neuer Datensatz hinzugefügt werden

**Gerald Hollmann** · 27.03.2006, 13:52

Hallo,

vielen Dank, dass Du Dir so viel Mühe mit mir gibst. Aber irgendwie verwirrt mich das noch mehr.
Ich will ja keine neue Tabelle erzeugen.
Ich habe eine bestehende, leere Tabelle aus Access. Dort will ich Daten aus einem Array hinkopieren.
.
Mit Dataadapter und Dataset habe ich diese Tabelle schon mit der Form verknüpft und lasse mir den (wenn) bestehenden Inhalt in Textfeldern anzeigen. Doch sollen ja neue Daten hinzukommen.
.
Ist das wirklich so eine komplizierte Sache oder stelle ich mich einfach nur dumm an

**Gerald Hollmann** · 27.03.2006, 15:13

Hallo,
.
vielen Dank, dass Du Dir soooo viel Mühe mit mir gibst. Nach langen Tests hab ich es endlich geschafft, einen Datensatz an eine bestehende Datei anzuhängen.

**Gerald Hollmann** · 31.03.2006, 09:11

Hallo,
.
ich shon wieder

.
Ich habe einen Datensatz neu in eine Datenbank kopiert. Gut. Aber ich möchte nun mehrere Datensätze hintereinander erstellen, bekomme aber nach dem ersten eine Fehlermeldung bei DataSet11.zusammen.Rows.Add(anyRow).
"Anyrow + 1" geht nicht.
.
datensatz1 = Me.BindingContext(DataSet11, "zusammen").Count
Dim anyRow As DataRow = DataSet11.zusammen.NewRow

For i = 0 To linecount - 1

anyRow("warengruppe") = zusammenfassung(0, i)
anyRow("ursprung") = zusammenfassung(1, i)
anyRow("referenz") = zusammenfassung(2, i)
anyRow("buchungsmenge") = zusammenfassung(3, i)
anyRow("nettopreis") = zusammenfassung(4, i)
anyRow("artikelnummer") = zusammenfassung(5, i)
anyRow("lieferant") = zusammenfassung(6, i)
anyRow("datum") = zusammenfassung(7, i)
anyRow("rechnungsnummer") = zusammenfassung(8, i)
anyRow("nummer") = datensatz1 + 1
DataSet11.zusammen.Rows.Add(anyRow)
OleDbDataAdapter1.Update(DataSet11, "zusammen")
Next i
.
Kann mir da jemand helfen

**Henry Krick** · 31.03.2006, 10:30

Wie sieht denn die Fehlermeldung aus

**Gerald Hollmann** · 31.03.2006, 12:17

Zusätzliche Informationen: Diese Zeile gehört bereits zu dieser Tabelle

**Bruno Eberle** · 03.04.2006, 07:40

Hallo Gerald,

Du deklarierst die DataRow vor der Schleife und weist sie in der Schleife mit jeweils neuen Werten mehrmals dem DataSet zu. Ich denke das ist das Problem, da die Row ja immer die gleiche Referenz hat, d.h. dasselbe Objekt ist.
Verschiebe das Statement
Dim anyRow As DataRow = DataSet11.zusammen.NewRow
in die Schleife, so dass immer eine neues Row-Objekt erzeugt wird. Ich denke das sollte helfen.

Gruss, Brun

**Gerald Hollmann** · 03.04.2006, 12:38

Hallo Bruno,

herzlichen Dank für Deine Hilfe. Da wäre ich wohl selbst nicht drauf gekommen, dass man eine Deklaration in einer Schleife wiederholen darf.

Aber nun funktioniert es.

Gruss, Geral

Announcement

Datenbankfelder in Variablen und zurück?

Datenbankfelder in Variablen und zurück?

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment