Combobox mit Spalte aus SQL-Server beschicken

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von DerCrack.

    Combobox mit Spalte aus SQL-Server beschicken

    Hi Leudde,

    ich habe mal wieder ein Problem und sehe den Wald vor lauter Bäumen nicht. Ich versuche verzweifelt aus einem SQL-Server eine CBX zu befüllen, jedoch bekomm ich hier nur den System.Data.DataRowView zurück. Kann mir jemand helfen und mir sagen, was ich falsch mache? Ich blick nimmer durch... ?( ;(

    VB.NET-Quellcode

    1. Private Sub fillStaffList()
    2. Dim conn As SqlClient.SqlConnection
    3. Dim SQLadapter As SqlClient.SqlDataAdapter
    4. Dim StrSQLUnternehmen As String = "SELECT User FROM dbo._User"
    5. Dim dst1 As DataTable
    7. 'Deklaration für Variable, die Verbindungsinformationen enthält
    8. Dim connString As String
    9. 'connString = "Initial Catalog=Test;"
    10. connString = "Data Source=name\SQLEXPRESS;Initial Catalog=Ticket;User ID=sa;Password=passwort"
    11. conn = New SqlClient.SqlConnection(connString)
    12. Try
    13. conn.Open()
    14. Catch
    15. MsgBox("Die Verbindung konnte nicht hergestellt werden.")
    16. Exit Sub
    17. End Try
    18. Try
    19. dst1 = New DataTable()
    20. SQLadapter = New SqlClient.SqlDataAdapter("select User from dbo._User", conn)
    21. SQLadapter.Fill(dst1)
    22. MsgBox(dst1.ToString)
    23. Catch ex As SqlClient.SqlException
    24. MsgBox("DB-Fehler", MsgBoxStyle.Critical, "Error")
    25. End Try
    26. 'MsgBox(dst1.ToString)
    27. If dst1.Rows.Count > 0 Then
    28. Me.cbxNewTicketStaff.DataSource = dst1
    29. Me.cbxNewTicketStaff.DisplayMember = "User"
    30. Else
    31. MsgBox("Für eine Füllung der Combobox liegen keine Daten vor", _
    32. MsgBoxStyle.Information, "FillCombo")
    33. End If


    mfg meta (ehem. powerprogger) :thumbup:

    Ich hab das so gemacht:

    VB.NET-Quellcode

    1. Sub LeseZeitung1()
    3. Dim INI As New INIDatei
    4. INI.Pfad = My.Application.Info.DirectoryPath & "\DBaccess.ini"
    5. Dim server As String = (INI.WertLesen("Datenbankeinstellungen", "server").ToString)
    6. Dim user As String = (INI.WertLesen("Datenbankeinstellungen", "user").ToString)
    7. Dim password As String = (INI.WertLesen("Datenbankeinstellungen", "password").ToString)
    8. Dim database As String = (INI.WertLesen("Datenbankeinstellungen", "database").ToString)
    10. Dim DBconnectionstring As String = (("server=" & server & ";user=" & user & ";password=" & password & ";database=" & database).ToString)
    11. 'MessageBox.Show(DBconnectionstring)
    13. Dim conn As New MySqlConnection
    14. Dim myCommand As New MySqlCommand
    15. Dim myAdapter As New MySqlDataAdapter
    16. Dim myData As New DataTable
    17. Dim SQL As String = "SELECT zid, name1 FROM zeitung"
    19. conn.ConnectionString = DBconnectionstring
    21. Try
    22. ' @@@@@ Verbindung zur Datenbank öffnen @@@@@
    23. conn.Open()
    24. Try
    25. myCommand.Connection = conn
    26. myCommand.CommandText = SQL
    27. myAdapter.SelectCommand = myCommand
    28. myAdapter.Fill(myData)
    30. ' @@@@@ ComboBox "Zeitung" wird mit Werten gefüllt @@@@@
    31. Hauptprogramm.cobZKneuZeitung.DataSource = myData
    32. Hauptprogramm.cobZKneuZeitung.DisplayMember = "name1"
    33. Hauptprogramm.cobZKneuZeitung.ValueMember = "zid"
    35. ' @@@@@ Ausgabe falls Fehler beim Lesen aus der Datenbank auftreten @@@@@
    36. Catch dbreaderror As MySqlException
    37. MessageBox.Show("Fehler beim Lesen aus der Datenbank: " & dbreaderror.Message)
    38. End Try
    39. ' @@@@@ Ausgabe falls Fehler beim Verbinden mit der Datenbank auftreten @@@@@
    40. Catch dbconnerror As MySqlException
    41. MessageBox.Show("Fehler beim Verbinden mit der Datenbank: " & dbconnerror.Message)
    42. Finally
    43. ' @@@@@ Verbindung zur Datenbank trennen @@@@@
    44. If conn.State <> ConnectionState.Closed Then conn.Close()
    45. End Try
    47. End Sub

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

Facebook
Telefonspende