DataSet DataAdapter mit mehreren Tabellen füllen

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Bernd.

    DataSet DataAdapter mit mehreren Tabellen füllen

    Hallo zusammen,

    Das Ziel:
    - ein DataSet
    - ein DataAdapter
    - zwei Tabellen

    ich versuche einen DataSet bzw. DataAdapter mit mehreren Tabellen zu füllen.
    Geht leider in die Hose.
    Ich habe mir aus Gallileo und Microsoft Press Büchern mal so einiges zusammen gebastelt.

    Die Verbindung usw.... funktioniert soweit. Das Auslesen scheinbar auch.
    Nur bei der Zuweisung an die DataGridView's, könnte aber auch woanders dran liegen, da stimmt etwas nicht.

    Laut mehreren Beschreibungen ist es Sinnvoll mit einem DataSet und einem DataAdapter zu arbeiten.
    Was eigentlich auch logisch ist. Wenn ich später Update, brauche ich immer nur ein Update zu machen.
    Ich glaube ich habe da soweit vertanden.

    Das Problem
    die Routine läuft durch und zeigt mir nun nicht zwei Tabellen sonder nur eine.
    Gelesen werden sollen die Tabelle "Adressen" und die Tabelle "Anreden".
    Gezeigt werden aber in beiden DataGridView nur die Tabelle "Adressen"

    Wat is denn da falsch ?
    - das auslesen ?
    - die zuordnung in DataTabel oder vlt. DataView ?

    Kann da mal jemand drüber schauen.

    lieben dank
    Bernd

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. ' Verbindungszeichenfolge, mit Angaben zu welcher Datenbank es gehen soll
    3. conn.ConnectionString = "server=" & _IP & ";user id=" & _UserName & ";password=" & _Passwort & ";database=" & _DatenBanken & ";"
    4. ' Dem DataAdapter mitteilen, welches SQL Kommando er ausführen soll und welche Verbindung er dazu verwenden soll
    5. da_Verein = New MySqlDataAdapter("", conn)
    6. da_Verein.SelectCommand.CommandText = "SELECT * FROM Adressen; SELECT * FROM Anreden"
    7. da_Verein.SelectCommand.CommandType = CommandType.Text
    9. ' DataSet
    10. Dim DS As New DataSet
    11. da_Verein.Fill(DS)
    13. ' *** DataSet und DataTable-Instanz bilden
    14. ' DataTable-Instanz bilden
    15. dt_Adressen = New DataTable("Adressen")
    16. dt_Anreden = New DataTable("Anreden")
    18. ' *** Primärschlüssel-Informationen beim Fill mit übernehmen
    19. da_Verein.MissingSchemaAction = MissingSchemaAction.AddWithKey
    20. ' DataTablen füllen
    21. da_Verein.Fill(dt_Adressen)
    22. da_Verein.Fill(dt_Anreden)
    24. ' *** DataView-Instanz für DataTable bilden
    25. dv_Adressen = New DataView(dt_Adressen)
    26. dv_Adressen.Sort = "Vorname ASC" ' ASC, DESC
    28. dv_Anreden = New DataView(dt_Anreden)
    29. 'dv_Anreden.Sort = "Anrede ASC"
    31. ' *** Daten an DataGridView
    32. With DataGridView1
    33. .RowsDefaultCellStyle.BackColor = Color.Yellow ' Standard-Hintergrundfarbe
    34. .AlternatingRowsDefaultCellStyle.BackColor = Color.Turquoise ' Altern. Hintergrund
    35. .DataSource = dv_Adressen ' DataView als Datenquelle
    36. .Columns(0).ReadOnly = True
    37. .Show()
    38. End With
    40. ' *** Daten an DataGridView
    41. With DataGridView2
    42. .RowsDefaultCellStyle.BackColor = Color.Yellow ' Standard-Hintergrundfarbe
    43. .AlternatingRowsDefaultCellStyle.BackColor = Color.Turquoise ' Altern. Hintergrund
    44. .DataSource = dv_Anreden ' DataView als Datenquelle
    45. .Columns(0).ReadOnly = True
    46. .Show()
    47. End With
    48. End Sub

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Bernd“ ()

    Probier das mal so :

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. ' Verbindungszeichenfolge, mit Angaben zu welcher Datenbank es gehen soll
    3. conn.ConnectionString = "server=" & _IP & ";user id=" & _UserName & ";password=" & _Passwort & ";database=" & _DatenBanken & ";"
    4. ' Dem DataAdapter mitteilen, welches SQL Kommando er ausführen soll und welche Verbindung er dazu verwenden soll
    5. da_Adressen = New MySqlDataAdapter("SELECT * FROM Adressen", conn)
    6. da_Anreden = New MySqlDataAdapter("SELECT * FROM Anreden", conn)
    8. ' DataSet
    9. Dim DS As New DataSet
    10. 'Der jeweilige SELECT Befehl wird hier direkt in eine DataTable ins DataSet geladen. Der DataTable Name steht in den Gänsefüßchen
    11. da_Adressen.Fill(DS,"Adressen")
    12. da_Anreden.Fill(DS,"Anreden")
    14. ' *** Primärschlüssel-Informationen beim Fill mit übernehmen
    15. da_Adressen.MissingSchemaAction = MissingSchemaAction.AddWithKey
    16. da_Anreden.MissingSchemaAction = MissingSchemaAction.AddWithKey
    19. ' *** DataView-Instanz für DataTable bilden
    20. dv_Adressen = New DataView(ds.tables("Adressen"))
    21. dv_Adressen.Sort = "Vorname ASC" ' ASC, DESC
    23. dv_Anreden = New DataView(ds.tables("Anreden"))
    24. 'dv_Anreden.Sort = "Anrede ASC"
    26. ' *** Daten an DataGridView
    27. With DataGridView1
    28. .RowsDefaultCellStyle.BackColor = Color.Yellow ' Standard-Hintergrundfarbe
    29. .AlternatingRowsDefaultCellStyle.BackColor = Color.Turquoise' Altern. Hintergrund
    30. .DataSource = dv_Adressen ' DataView als Datenquelle
    31. .Columns(0).ReadOnly = True
    32. .Show()
    33. End With
    35. ' *** Daten an DataGridView
    36. With DataGridView2
    37. .RowsDefaultCellStyle.BackColor = Color.Yellow ' Standard-Hintergrundfarbe
    38. .AlternatingRowsDefaultCellStyle.BackColor = Color.Turquoise' Altern. Hintergrund
    39. .DataSource = dv_Anreden ' DataView als Datenquelle
    40. .Columns(0).ReadOnly = True
    41. .Show()
    42. End With
    43. End Sub


    Das mit zwei SELECT Befehlen in einem DataAdapter kenne ich so nicht, um verschiedene DataTables zu füllen.

    EDIT : Wenn du lieber 'greifbare' DataTables haben möchtest, kann du diese so erstellen :

    VB.NET-Quellcode

    1. Dim DT_Adressen As DataTable = DS.Tables.Add("Adressen")
    2. 'gefüllt wird dann die DataTable mit
    3. DA_Adressen.Fill(DT_Adressen)
    4. 'darauf zugreifen kannst du dann über
    5. dv_Adressen = New DataView(ds.tables("Adressen"))
    6. 'oder
    7. dv_Adressen = New DataView(DT_Adressen)

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „HerrFrie“ ()

    Bernd schrieb:

    da_Verein.SelectCommand.CommandText = "SELECT * FROM Adressen; SELECT * FROM Anreden"

    Das stand in deine Bücher, dass das geht?
    Ein Command mit 2 SqlStatements?

    (Also ich bin ühaupt nicht der Sql-Crack - und sowas habich bisher einfach noch nie probiert)

    @HerrFrie
    ein ähnliche Lösung hatte ich mir bereits gebastelt und getestet.
    Dann habe ich aber mit 2 DataAdapter zu tun. Also auch 2 mal Update.
    Wenn ich das alles richtig verstanden habe.

    Wenn es später einiges mehr an Tabellen gibt, würde es bedeuten ich arbeite mit mehreren DataAdaptern.
    Somit darf ich keinen vergessen. Also bei Update, vor Programmende.

    Nu gut dann werde ich mal weiter lesen.

    @ErfinderDesRades
    vieleicht habe ich das auch nur falsch vertanden !? Möglich bei soviel neuem Informationsfluß in den letzten Tagen.
    Galileo
    Kapitel 25.4

    Microsoft Press
    Datenbank-Programmierung mit Visual Basic 2008
    Kapitel 5 -> Das DataSet - Objekt im Detail
    Seite 280
    Erste Eintrag in Tabelle
    DataSet- Representiert eine "Mini-DatenBank" (ohne Verbindung zur Datenquelle) autark i m Arbeitsspeicher existiert und sowohl Daten (das können mehrere Tabellen sein) als auch Strukturinformationen (Metadaten) und Beziehungen (Relationen) zwischen den Tabellen.

    wie gesagt, vielleicht vertehe ich was falsch.

    Bernd

    habichjetzt ausprobiert. Also Access kanns nicht, SqlServer kanns. Mit einem CommandString 2 Tabellen füllen.
    Was nützt das aber?
    Willst du mit untypiesierten Datasets rumwursteln?
    Dann lies man weiter Galileio-Book. Die Erklärung deines problems steht übrigens kurz darunter, wo du den Snippet her hast: es werden durchaus 2 Tabellen eingelesen, nur werden die im Dataset unter einem anneren Namen gehalten, als du vlt. dachtest.
    Und dann kommt noch jede Menge anneres Zeugs, nämlich TableMappings, ColumnMappings, DataRelations, und wasweißichnich alles
    Muß ja alles eingerichtet sein, und bei untypisierten halt händisch gecodet.
    Dann noch die Update-Delete-Insert-Commands händisch einrichten, inklusive der richtigen Konfiguration der DBParameter. Spätestens hier wird das mit den 2 Commands in einem DataAdapter nicht mehr hinhauen.
    Dassis glaub das Buch, zu dem ich mich gelegentlich auch äußere, wa? Nämlich also: Das VB-Openbook von Galileo ist Mist
    Nee - ups - sorry: Es ist ein anneres Buch. Habich nur jetzt kurz reingeguckt, aber kann gut sein, dasses auch Mist ist.
    Ich glaub fast. Naja, wenigstens proggen sie Strict On.
    Aber vor TryCatch warnen sie auch nicht, sondern setzen sich ausgiebig damit auseinander, unter dem Thema "Debugging". Dabei ist TryCatch das exakte Gegenteil von Debugging - die Fehlermeldungen werden ja weggecatcht.
    Aber zur DB:
    Beschäftigen sich 5 Kapitel mit untypisierten DB-Zugriffen, und nur eines mittm typisierten (welches die ganzen vorherigen Kapitel obsolet macht, denn die Generatoren coden das Zeug korrekt, sodass die Beschäftigung mit der untypisierten Technologie vlt. ein "Nice to Know" ist, aber nicht wirklich erforderlich.)

    Naja - im Faszit (Kap 28.7) nennter die Vorteile ja selbst beim Namen.
    Nur, allein Vorteil 1 und Vorteil 2 (Typisierung und Databinding) sind für mich so gravierend, dass untypisierte DB-Zugriffe IMO schlicht NoGo sind.

    Habich dieses Buch Lesen dir noch nicht empfohlen?

    ErfinderDesRades schrieb:

    Habich dieses Buch Lesen dir noch nicht empfohlen?

    Hast du glaube ich nicht empfohlen, was aber weiter nicht schlimm ist. Weil ich das Buch im Schrank stehen habe und ab und zu auch drin lese.
    Dort steht ein kurz gehaltenes Kapitel über DataSet usw.. jedoch beziehen die sich wieder auf SQL und nicht "MySql".
    Egal

    Beim weiter schnökern habe ich schon mal einen weiteren Lösungsansatz gefunden.
    Es gibt eine Programm Namens "MySql Connector".
    Und siehe da, es läuft sogar.
    Nun bekomme ich im Server Explorer sogar eine Verbindung zu Stande.

    Jetzt kann ich auf einer anderen Basis mal Testen.

    Was ich auch schon getan habe.
    Nun kommen neue für mich unbekannte Probleme. Die ich nun in einem neuen Post bringe.

    lieben dank
    bernd

    Hi Bernd,
    du machst dich fertig mit dem zeug.
    Einem Dataset ist egal ob die Daten von MySQL, Oracle ode MsSQl kommen. Ist ein Behälter auf deiner maschine.

    Wenn du den MySQlDatadapter deklariert hast, kannst du ihn ja weiterverwenden. Das übersiehst du eventl weil du nur diese Form kennst
    da_Adressen = New MySqlDataAdapter("SELECT * FROM Adressen", conn)

    sieht dann so aus:

    Quellcode

    1. Dim myCmd as New MySQLommand
    3. myCmd.CommandText = strSQL
    4. myCmd.Connection = myCnn 'connectionobject
    5. da_Adressen.SelectCommand = myCmd
    6. da_Adressen.fill(DS,"Anreden")

    Edwardschn schrieb:

    Einem Dataset ist egal ob die Daten von MySQL, Oracle ode MsSQl kommen.

    Das würde aber doch bedeuten
    - die Adressen könnten von Xxxxxx kommen (http....MySql...
    - die Anreden könnten von Yyyyyyy kommen (http....Sql...
    - die Titel der person von Zzzzzzz kommen (C:\....... Acess

    He danke,
    das macht mich wieder etwas schlauer.
    Ich glaube bis ich die erste vernünftige Anwendung anfange zu scheiben, brauche ich noch einige Zeit und einiges an Lesen und Fragen stellen.

    danke

Facebook
Telefonspende