MYSQL Abfrage in Textboxen.

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von mmgg.

    MYSQL Abfrage in Textboxen.

    Hallo zusammen,

    Ich versuche die Spalte der Abfrage in Textboxen zu schreiben.
    Meine Abfrage für Daten in DGV zu laden:

    VB.NET-Quellcode

    1. Private Sub anlagen_uebersicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    2. da = New MySqlDataAdapter("", CONNECT_STRING)
    3. With da.SelectCommand
    4. .CommandText = "SELECT AnlagenNr, ProjektBezeichnung FROM tblAnlagenNr WHERE `Autr-Erh` = 1"
    5. .CommandType = CommandType.Text
    6. End With
    7. Try
    8. da.Fill(anlagennummer_table) ' DataTable füllen
    9. TblAnlagenNrDataGridView.DataSource = anlagennummer_table ' DataTable an DGV binden
    10. TblAnlagenNrDataGridView.Columns(0).Width = 50
    11. TblAnlagenNrDataGridView.Columns(1).Width = 250
    12. Catch ex As Exception
    13. MessageBox.Show(ex.Message)
    14. End Try
    16. End Sub


    Nun möchte ich zb.

    VB.NET-Quellcode

    1. "SELECT AnlagenNr, ProjektBezeichnung, Baujahr FROM tblAnlagenNr WHERE `ID` = 1234"
    2. Textbox1.text = AnlagenNr
    3. Textbox2.text = ProjektBezeichnung
    4. Textbox3.text = Baujahr


    Kann mir da jemand helfen?

    Hallo ich habe Dies Folgendermaßen erledigt:

    VB.NET-Quellcode

    1. ​ Dim conn As New MySqlConnection ' Verbindung
    2. Dim da As MySqlDataAdapter ' DataAdapter
    3. Dim cmd As New MySqlCommand ' SQL-Befehl
    4. Dim anlagennummer_table As New DataTable 'Datatable anlagen Nummern
    5. Dim algemein_table As New DataTable 'Datatable Anlage Algemein
    7. Private Sub anlagen_uebersicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    9. da = New MySqlDataAdapter("", CONNECT_STRING)
    10. With da.SelectCommand
    11. .CommandText = "SELECT AnlagenNr, ProjektBezeichnung FROM tblAnlagenNr WHERE `Autr-Erh` = 1"
    12. .CommandType = CommandType.Text
    13. End With
    14. Try
    15. da.Fill(anlagennummer_table) ' DataTable füllen
    16. TblAnlagenNrDataGridView.DataSource = anlagennummer_table ' DataTable an DGV binden
    17. TblAnlagenNrDataGridView.Columns(0).Width = 50
    18. TblAnlagenNrDataGridView.Columns(1).Width = 250
    19. Catch ex As Exception
    20. MessageBox.Show(ex.Message)
    21. End Try
    23. End Sub
    26. Private Sub TblAnlagenNrDataGridView_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles TblAnlagenNrDataGridView.CellContentClick
    27. If e.RowIndex >= 0 Then
    28. Dim row As DataGridViewRow
    29. row = Me.TblAnlagenNrDataGridView.Rows(e.RowIndex)
    31. AnlagenNrTextBox.Text = row.Cells("AnlagenNr").Value.ToString
    32. ProjektBezeichnungTextBox.Text = row.Cells("ProjektBezeichnung").Value.ToString
    33. End If
    34. End Sub

    *Den connection string habe ich mal weggelassen.

    Nun dies Funktioniert einwandfrei.
    Zusätzlich bräuchte ich aber das Selbe ohne DGV, da habe ich schon etwas Programmiert aber es kommt der Fehler:
    Der Schlüssel darf nicht Null sein. Parametername: key

    VB.NET-Quellcode

    1. ​Sub allgemein()
    2. Try
    4. Dim READER As MySqlDataReader
    5. Dim query As String
    6. query = "Select * FROM tblAnlageAllgemein WHERE AnlagenNr = 1745"
    7. conn.Open()
    8. cmd = New MySqlCommand(query, conn)
    9. READER = cmd.ExecuteReader
    10. While READER.Read
    11. 'MaxAusladungTextBox.Text = READER.GetDecimal("MaxAusladung")
    12. End While
    13. Catch ex As Exception
    14. MessageBox.Show(ex.Message)
    15. End Try
    16. End Sub


    Kann mir jemand helfen?

    mit blick auf deinen code unterstell ich mal, dass du es inzwischen schon selbst gesehen hast.
    Sonst könnt ich mir denken, dass dein connecsting auf eine andere DB zeigt, eine Kopie von gestern, was immer, und dort ist diese Tabelle eben leer - sind so sachen dei man schnell übersieht.
    JonDonym
    Eine Anonymisierung-Tool, das nicht nur deine IP verdeckt, sondern deine History, BrowserTyp, Windows-Version etc.
    Das Tool hat ca. 5 FreeKaskaden und ca. 10 Premium. Minimum 5 EUR für ein Volumen von 650MB.

    Hallo der Code wurde zusammengestellt durch nachlesen und überlegen, daher bin ich mir nicht sicher ob dieser auch wirklich stimmt.
    Mein ganzer Code:

    VB.NET-Quellcode

    1. ​Public Class anlagen_uebersicht
    2. Const CONNECT_STRING As String = "SERVER=192.168.61.5;" _
    3. & "DATABASE=anlagendatenbank;" _
    4. & "UID=test;PWD=test"
    5. Dim conn As New MySqlConnection ' Verbindung
    6. Dim da As MySqlDataAdapter
    7. Dim cmd As New MySqlCommand ' SQL-Befehl
    8. Dim anlagennummer_table As New DataTable 'Datatable anlagen Nummern
    9. Dim service_table As New DataTable 'Datatable Service
    10. Dim stoerung_table As New DataTable 'Datatable Störng
    11. Dim montage_table As New DataTable 'Datatable Montage
    12. Dim instruktion_table As New DataTable 'Datatable Instruktion
    13. Dim algemein_table As New DataTable 'Datatable Anlage Algemein
    15. Private Sub anlagen_uebersicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    16. com_suche.Text = "ProjektBezeichnung"
    17. da = New MySqlDataAdapter("", CONNECT_STRING)
    18. With da.SelectCommand
    19. .CommandText = "SELECT AnlagenNr, ProjektBezeichnung FROM tblAnlagenNr WHERE `Autr-Erh` = 1"
    20. .CommandType = CommandType.Text
    21. End With
    22. Try
    23. da.Fill(anlagennummer_table) ' DataTable füllen
    24. TblAnlagenNrDataGridView.DataSource = anlagennummer_table ' DataTable an DGV binden
    25. TblAnlagenNrDataGridView.Columns(0).Width = 50
    26. TblAnlagenNrDataGridView.Columns(1).Width = 250
    27. conn.Close()
    28. Catch ex As Exception
    29. MessageBox.Show(ex.Message)
    30. End Try
    32. End Sub
    35. Private Sub TblAnlagenNrDataGridView_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles TblAnlagenNrDataGridView.CellContentClick
    36. If e.RowIndex >= 0 Then
    37. Dim row As DataGridViewRow
    38. row = Me.TblAnlagenNrDataGridView.Rows(e.RowIndex)
    40. AnlagenNrTextBox.Text = row.Cells("AnlagenNr").Value.ToString
    41. TextBox4.Text = row.Cells("AnlagenNr").Value.ToString
    42. ProjektBezeichnungTextBox.Text = row.Cells("ProjektBezeichnung").Value.ToString
    43. End If
    44. End Sub
    46. 'Allgemein Laden
    47. Sub allgemein()
    48. Try
    49. Dim READER As MySqlDataReader
    50. Dim query As String
    51. query = "Select * FROM tblAnlageAllgemein WHERE AnlagenNr = 1745"
    52. conn.Open()
    53. cmd = New MySqlCommand(query, conn)
    54. READER = cmd.ExecuteReader
    55. While READER.Read
    56. 'MaxAusladungTextBox.Text = READER.GetDecimal("MaxAusladung")
    57. End While
    58. Catch ex As Exception
    59. MessageBox.Show(ex.Message)
    60. End Try
    61. End Sub
    64. Private Sub Button58_Click(sender As Object, e As EventArgs) Handles Button58.Click
    65. Call allgemein()
    66. End Sub
    67. End Class


    Ich verwende die gleichen Connection jedoch Funktioniert nur das DGV und das Filtern des DGV's in die Textboxen
    Der Sub "Allgemein" Funktioniert nicht.

    Ich hab deinen Code mal übernommen, konnt aber nur einen error finden für die auskommentierte zeile.

    'MaxAusladungTextBox.Text = READER.GetDecimal("MaxAusladung")
    Wenn due es so schreibst

    MaxAusladungTextBox.Text = Cstr(READER.GetDecimal("MaxAusladung"))
    sollte es gehen, vorausgesetzt Maxausladung ist eine Spalte vom Typ Zahl
    JonDonym
    Eine Anonymisierung-Tool, das nicht nur deine IP verdeckt, sondern deine History, BrowserTyp, Windows-Version etc.
    Das Tool hat ca. 5 FreeKaskaden und ca. 10 Premium. Minimum 5 EUR für ein Volumen von 650MB.

    Hallo,

    Ich hoffe aber das du das nur zum Expreimentieren und nicht in ernst meinst :O Stichwort SQL-Injection. Damit wöähre deine DB oder die des späteren Users massiv gefärdet. !

    LG, Herbrich

    Wie Meinst du das?
    Ich würde gerne die Abfrage über mehrere Tabellen auf ein Tabellenblatt ausgeben.
    (Anhand von Textboxen nicht ein DGV)


    Edit:
    Ich habe diese Zeile eingefügt:

    VB.NET-Quellcode

    1. ​MaxAusladungTextBox.Text = Cstr(READER.GetDecimal("MaxAusladung"))


    Jedoch mit der selben Fehlermeldung.

    Im Anhang das Bild der Formatierung
    Bilder

    • ausladung.PNG

      6,75 kB, 780×23, 184 mal angesehen

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

    nochmal angelehnt an diese errormessage die du oben schreibst, würde ich sagen, kuck nochmal nach oben den tatsächlich eine zeile für diese nummer "1745" existiert. In der Tabelle dieser Datenbank. Auch wenn das trivial ist, aber was andrs bleibt wohl nicht übrig


    Lass den reader einfach mal laufen, füll eien luistbox o.ä. aber eben mit diesem sql-string, um zu sehen ob sich da überhaupt was zeigt
    JonDonym
    Eine Anonymisierung-Tool, das nicht nur deine IP verdeckt, sondern deine History, BrowserTyp, Windows-Version etc.
    Das Tool hat ca. 5 FreeKaskaden und ca. 10 Premium. Minimum 5 EUR für ein Volumen von 650MB.

Facebook
Telefonspende