DropDown mit Daten aus MySQL DB füttern

  • VB.NET

Es gibt 33 Antworten in diesem Thema. Der letzte Beitrag () ist von samson.

    Bei dieser Art von Combobox-Einsatz braucht man den Valuemember garnet zu belegen.
    Den selektierten Datensatz kann man aus BindingSource.Current abrufen. Jedenfalls, wenn man ein typisiertes Dataset verwenden täte.

    So kannste aber mit

    VB.NET-Quellcode

    1. dim drv= directCast( myDataView(Combo.SelectedIndex) , DataRowView)
    auch sowas ähnliches abrufen wie eine DataRow.

    Moin Moin Zusammen...

    nun ist einige Zeit ins Land gegangen,... Und ich bin immernoch am "basteln"... Leider immernoch ohne Erfolg...
    Ich hab die ersten 30 Seiten der Suchergebnisse von Google durchprobiert,... ohne Erfolg...

    Hier nun mein aktueller Stand und mein Problem...

    VB.NET-Quellcode

    1. Dim MysqlConn As MySqlConnection
    2. Dim COMMAND As MySqlCommand
    3. Dim READER As MySqlDataReader
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. Button2.Enabled = False
    7. PictureBox1.Visible = False
    9. MysqlConn = New MySqlConnection
    10. MysqlConn.ConnectionString = "server=ipadresse;uid=user;pwd=passwort;database=vb_test;port=3306;"
    12. Try
    13. MysqlConn.Open()
    14. Label2.Text = "Datenbankverbindung: OK"
    15. Dim Query As String
    16. Query = "SELECT * FROM vb_test.ms_kunden WHERE id = '1' ORDER BY matchcode"
    17. COMMAND = New MySqlCommand(Query, MysqlConn)
    18. READER = COMMAND.ExecuteReader
    20. While READER.Read
    21. 'Dim matchcode = READER.GetString("matchcode")
    22. 'ComboBox1.Items.Add(matchcode)
    23. TextBox1.Text = CStr(READER.GetInt32(CInt("matchcode"))) 'andere Schreibweisen versucht... Ohne Erfolg (READER.GetInt32(CInt("matchcode")) oder READER.GetInt32("matchcode") oder
    25. End While
    27. MysqlConn.Close()
    28. Catch ex As MySqlException
    29. MessageBox.Show(ex.Message)
    30. Finally
    31. MysqlConn.Dispose()
    32. End Try
    34. End Sub


    Anstatt TextBox1.Text = READER.GetString("matchcode")
    habe ich schon das versucht...

    VB.NET-Quellcode

    1. While READER.Read
    2. Dim matchcode = READER.GetString("matchcode")
    3. ComboBox1.Items.Add(matchcode)
    4. End While


    Beim Debuggen kommt die Fehlermeldung die ich angehängt habe...


    Vielleicht kann mir ja jemand dabei helfen...
    Danke schon mal :)

    NACHTRAG!
    Option Strict On ist aktiv...
    Die Frage die sich mir dabei stellt ist lediglich, woher nimmt er Zahlen... Ich frage in der MySQL-DB doch einen "Namen" ab...
    Nein! Doch! OHH!

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

    Wie bitte sehr soll man "matchcode" in eine Ganzzahl konvertieren? Da hat doch VB keine Ahnung wie das gehen soll. Ich denke mal selbst du hast keine Ahnung wie das gehen soll. Oder wie stellst du dir das vor. Mach mal aus "matchcode" eine Ganzzahl. Wenn du irgendwo ein Feld mit Namen matchcode definiert hast, dann musst du die Anführungszeichen weglassen. Ansonsten wird das als String gewertet.


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

    Sorry! Hab den Fehler gefunden,... 1. wie @shaebich schon geschrieben hatte,... vergessen den Limit 1 weg zu nehmen bzw. den einen datensatz nur zu laden.
    2. Fehler lag irgendwo in der ComboBox... Weiße Schrift auf weißem Hintergrund... Warum auch immer... daran hatte ich nichts verändert...

    nach nun weiteren 9 stunden googlen bin ich auch fündig geworden...

    VB.NET-Quellcode

    1. Private Sub FillComboBox()
    3. Dim conn As New MySqlConnection
    4. Dim myCommand As New MySqlCommand
    5. Dim myAdapter As New MySqlDataAdapter
    6. Dim dsToBeFilled As New DataSet
    7. Dim SQL As String
    8. conn = New MySqlConnection()
    9. conn.ConnectionString = "server=localhost;uid=test;pwd=test;database=vb_test;port=3306;"
    11. SQL = "SELECT * FROM ms_kunden"
    13. Try
    14. conn.Open()
    15. myCommand.Connection = conn
    16. myCommand.CommandText = Sql
    18. myAdapter.SelectCommand = myCommand
    19. myAdapter.Fill(dsToBeFilled)
    21. For Each row As DataRow In dsToBeFilled.Tables(0).Rows
    22. ComboBox1.Items.Add(row.Item("kdnr").ToString() & " - " & row.Item("matchcode").ToString())
    23. Next
    25. Catch myerror As MySqlException
    26. MessageBox.Show("Error connecting to the database: " & myerror.Message)
    28. End Try
    29. End Sub


    ich komme aber nicht auf die kdnr, das ich diese weiter verarbeiten kann...
    Kann mir da nochmal wer helfen?
    Nein! Doch! OHH!

    samson schrieb:

    Hab den Fehler gefunden,... vergessen den Limit 1 weg zu nehmen

    In Deinem Posting Nr.25 gibts kein LIMIT, nur eine Bedingung, also hast Du es leider nicht verstanden :rolleyes: .
    Trotzdem weiterhin viel Spaß beim Raten.
    Wie wäre es mit einem nützlichen Buch für Grundlagen?
    Es wäre für Dich befriedigender, wenn Du verstehst was Du tust.

    Naja kein plan was du 9 Stunden lang bei google gesucht hast. Aber nach ca. 2min und 2 Klicks komm ich auf die Seite:

    dotnetspider.com/resources/431…ate-delete-Operation.aspx

    Dort ist eig. alles aufgeführt was man braucht. Wenn du jetzt noch das DataGridView durch deine ComboBox austauscht, hast du die Member in der ComboBox...:D

    So schwer kanns doch nicht sein. Bekommst du die richtigen Werte mit deiner Abfrage? ... Eventuell solltest du dir auch SQL anschauen.

    Quellcode

    1. Select * From ALL


    ist nicht alles was man können muss ...

    samson schrieb:

    For Each row As DataRow In dsToBeFilled.Tables(0).Rows
    ComboBox1.Items.Add(row.Item("kdnr").ToString() & " - " & row.Item("matchcode").ToString())
    Next


    Wie wäre es, wenn du diesen Part eventuell einfach mal an ein DataGridView bindest um zu schaun ob du überhaupt Werte aus deinem SQL String bekommst? Anstatt wie wild 2 Strings miteinander verknüpfen zu wollen und diese in einer ComboBox auszugeben.

    Moin Moin,

    erstmal danke an alle... Ich habe eine annehmbare Lösung hinbekommen...

    Hier der Code von meinem Projekt...

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.Net.Mail
    3. Imports MySql
    4. Imports MySql.Data
    5. Imports MySql.Data.MySqlClient
    7. Public Class Form1
    9. Public filename As String = Nothing
    10. Public filetarget As String = Nothing
    11. Public kdnr As String = Nothing
    13. Dim MysqlConn As MySqlConnection
    14. Dim COMMAND As MySqlCommand
    15. Dim READER As MySqlDataReader
    16. Dim WithEvents Upload As Net.WebClient
    18. Private Sub UploadFTP(ByVal Datei As String, _
    19. ByVal Dateiname As String, _
    20. ByVal Ftp As String, _
    21. ByVal Benutzername As String, _
    22. ByVal Passwort As String)
    24. ' WebClient
    25. Upload = New Net.WebClient
    27. ' URL mit Zieldatei
    28. Dim url As String = Ftp & IIf(Ftp.EndsWith("/"), "", "/") & Dateiname
    30. ' Anmeldedaten am FTP-Server
    31. Upload.Credentials = New Net.NetworkCredential(Benutzername, Passwort)
    33. ' Datei asnychron uploaden
    34. Upload.UploadFileAsync(New Uri(url), Datei)
    35. End Sub
    37. Private Sub Upload_UploadFileCompleted(ByVal sender As Object, _
    38. ByVal e As System.Net.UploadFileCompletedEventArgs) Handles Upload.UploadFileCompleted
    40. MysqlConn = New MySqlConnection
    41. MysqlConn.ConnectionString = "server=server;uid=user;pwd=passwort;database=db;port=3306;"
    42. Try
    43. MysqlConn.Open()
    44. ToolStripStatusLabel1.Text = "Datenbankverbindung: OK"
    45. Dim Query As String
    46. Query = "INSERT INTO ms_archiv (kdnr, file) VALUES ('" + kdnr + "', '" + filename + "')"
    47. COMMAND = New MySqlCommand(Query, MysqlConn)
    48. READER = COMMAND.ExecuteReader
    49. MysqlConn.Close()
    50. Catch ex As MySqlException
    51. MessageBox.Show(ex.Message)
    52. Finally
    53. MysqlConn.Dispose()
    54. End Try
    56. MsgBox("Datei an KMS übergeben", MsgBoxStyle.Exclamation, "Information")
    57. ProgressBar1.Visible = False
    58. lblProgress.Visible = False
    59. Button1.Enabled = False
    60. End Sub
    62. Private Sub Upload_UploadProgressChanged(ByVal sender As Object, _
    63. ByVal e As System.Net.UploadProgressChangedEventArgs) Handles Upload.UploadProgressChanged
    65. ProgressBar1.Value = e.ProgressPercentage
    66. ProgressBar1.Refresh()
    67. lblProgress.Text = e.ProgressPercentage & "%"
    68. End Sub
    70. Private Sub FillComboBox()
    72. Dim conn As New MySqlConnection
    73. Dim myCommand As New MySqlCommand
    74. Dim myAdapter As New MySqlDataAdapter
    75. Dim dsToBeFilled As New DataSet
    76. Dim SQL As String
    77. conn = New MySqlConnection()
    78. conn.ConnectionString = "server=server;uid=user;pwd=passwort;database=db;port=3306;"
    79. SQL = "SELECT * FROM ms_kunden"
    80. Try
    81. conn.Open()
    82. myCommand.Connection = conn
    83. myCommand.CommandText = SQL
    85. myAdapter.SelectCommand = myCommand
    86. myAdapter.Fill(dsToBeFilled)
    88. For Each row As DataRow In dsToBeFilled.Tables(0).Rows
    89. ComboBox1.Items.Add(row.Item("matchcode").ToString())
    90. Next
    91. ToolStripStatusLabel1.Text = "Datenbankverbindung: OK"
    93. Catch myerror As MySqlException
    94. MessageBox.Show("Error connecting to the database: " & myerror.Message)
    95. End Try
    96. End Sub
    98. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    99. Button1.Enabled = False
    100. Button2.Enabled = False
    101. PictureBox1.Visible = False
    102. lblProgress.Visible = False
    103. FillComboBox()
    104. End Sub
    106. Public Function scanImage() As String
    107. 'Pfad zur Temp Datei des erfassten Bildes
    108. Dim strTempImagePath As String = String.Empty
    109. 'Windows GUI zur Interaktion mit dem Gerät
    110. Dim wiaDialog As New WIA.CommonDialog
    111. 'Variable für das erfasste Bild
    112. Dim wiaImage As WIA.ImageFile = Nothing
    113. Try
    114. 'Aufruf der Windows GUI zur Interaktion mit dem Gerät,
    115. 'rückgabe ist das erfasste Bild
    116. wiaImage = wiaDialog.ShowAcquireImage(WIA.WiaDeviceType.ScannerDeviceType, , , , False, )
    117. Catch ex As Exception
    118. MsgBox("Ein Fehler ist aufgetreten! Überprüfen Sie ob das Gerät Eingeschaltet und angeschlossen ist." & Environment.NewLine & Environment.NewLine & ex.Message)
    119. End Try
    120. If Not wiaImage Is Nothing Then
    121. 'Bild temporär Speichern
    122. Dim rnd As New Random
    123. Dim ZufallsZahl As Integer = rnd.Next(12, 600000000)
    124. filename = "tempfile_" & ZufallsZahl & ".jpg"
    125. filetarget = "C:\Temp\tempfile_" & ZufallsZahl & ".jpg"
    126. wiaImage.SaveFile(filetarget)
    127. PictureBox1.Visible = True
    128. PictureBox1.Image = New Bitmap(filetarget)
    129. Button2.Enabled = True
    130. Else
    131. MsgBox("Es wurde kein Bild erfasst!", MsgBoxStyle.Exclamation, "Information")
    132. End If
    133. Return strTempImagePath
    134. End Function
    136. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    137. scanImage()
    138. PictureBox1.Visible = True
    139. End Sub
    141. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    142. ProgressBar1.Value = 0
    143. ProgressBar1.Visible = True
    145. Dim sFile As String = "C:\Temp\" & filename
    146. Dim sDestFile As String = filename
    147. Dim sServer As String = "ftp://domain.de/scans"
    148. Dim sUser As String = "user"
    149. Dim sPwd As String = "passwort"
    151. UploadFTP(sFile, sDestFile, sServer, sUser, sPwd)
    152. PictureBox1.Visible = False
    153. Button2.Enabled = False
    154. End Sub
    156. Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    158. End Sub
    160. Private Sub ComboBox1_TextChanged(sender As Object, e As System.EventArgs) Handles ComboBox1.TextChanged
    161. Button1.Enabled = True
    163. MysqlConn = New MySqlConnection
    164. MysqlConn.ConnectionString = "server=server;uid=user;pwd=passwort;database=db;port=3306;"
    165. Try
    166. MysqlConn.Open()
    167. ToolStripStatusLabel1.Text = "Datenbankverbindung: OK"
    168. Dim Query As String
    169. Query = "SELECT kdnr FROM ms_kunden WHERE matchcode = '" & ComboBox1.Text & "'"
    170. COMMAND = New MySqlCommand(Query, MysqlConn)
    171. READER = COMMAND.ExecuteReader
    172. While READER.Read
    173. TextBox1.Text = READER.GetInt32(0)
    174. kdnr = TextBox1.Text
    176. End While
    178. MysqlConn.Close()
    179. Catch ex As MySqlException
    180. MessageBox.Show(ex.Message)
    181. Finally
    182. MysqlConn.Dispose()
    183. End Try
    184. End Sub
    185. End Class


    Danke an alle...
    Nein! Doch! OHH!

Facebook
Telefonspende