meine erste eigene klasse mit mysql ... conction string für combobox geht nicht

  • VB.NET

Es gibt 20 Antworten in diesem Thema. Der letzte Beitrag () ist von ronaldl.

    meine erste eigene klasse mit mysql ... conction string für combobox geht nicht

    das ist mein erster versuch mit klassen zu arbeiten und ich möchte gerne alle comboboxen in eine klasse packen um sie bei bedarf auf zu rufen ,
    nun bekomme ich folgende Fehlermeldung :

    Access denied for user ''@'localhost' (using password: NO) -> bei der zeile mit : reader = cmd.ExecuteReader()

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Collections.Generic
    3. Imports System.Text
    4. Imports System.Windows.Forms
    5. Imports System.ComponentModel
    6. Imports System.Drawing
    7. Imports System.Globalization
    9. Public Class multi_combo
    10. Inherits ComboBox
    12. Dim con As New MySqlConnection
    13. Dim sql As String
    14. Dim cmd As New MySqlCommand(sql, con)
    15. Dim myAdapter As New MySqlDataAdapter
    16. Dim ConnectionString = "server=localhost;" _
    17. & "uid=root;" _
    18. & "pwd=slotmachine;" _
    19. & "database=lenz"
    21. Dim ComboBox As New Control
    24. Public Sub anrede(ByVal anr As Integer)
    25. Dim cboa = "ComboBox" & anr
    26. cboa = Replace(cboa, " ", "")
    27. ComboBox.Name = cboa
    29. With ComboBox
    30. Me.Items.Clear()
    31. Me.Text = ""
    33. sql = "select * from hanrede order by anrede desc"
    34. Dim reader As MySqlDataReader
    36. con.Open()
    37. reader = cmd.ExecuteReader()
    38. Do While reader.Read() 'Jede Reihe durchlaufen
    39. Me.Items.Add(reader("anrede") & " / " _
    40. & reader("geschlecht"))
    41. Loop
    42. reader.Close() 'Reader schliesen
    43. con.Close() 'Connection schliesen
    44. End With
    47. End Sub
    48. End Class


    Edit by der_Kurt:
    - falsches Unterforum
    --> Beitrag verschoben

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

    Gugi schrieb:

    ich denke, das der mysql server keinen externen zugriff erlaubt, ist der auf bplaced, etc.?
    auf db4free.net gibts gratis datenbanken die externen zugriff erlauben.

    lg Gugi

    Schau dir mal den ConnectionString an. Der MySql-Server läuft auf localhost also sein PC. Und die gleiche Fehlermeldung hatte ich auch mal und da war das Problem das Passwort

    singu schrieb:

    Gugi schrieb:

    ich denke, das der mysql server keinen externen zugriff erlaubt, ist der auf bplaced, etc.?
    auf db4free.net gibts gratis datenbanken die externen zugriff erlauben.

    lg Gugi

    Schau dir mal den ConnectionString an. Der MySql-Server läuft auf localhost also sein PC. Und die gleiche Fehlermeldung hatte ich auch mal und da war das Problem das Passwort

    vielleicht hat er eine datenbank bei bplaced, etc. und da steht ja mysql server = localhost und er dachte das muss er in seinem programm auch schreiben?

    lg Gugi

    also das ding läuft auf dem rechner wo das proggi ist also lokal..

    in einer windows form kann den das aufrufen und er m,acht alles was ich möchte

    das passwort vom connection string wird irgenwie beim Compilieren nicht im connection angezeigt
    warum ist halt mein problem.

    also das sql-probelm hat sich gelöst aber...

    er mosert bei .Items.Clear() los mit :

    Fehler 1 "Items" ist kein Member von "System.Windows.Forms.Control".

    wie krieg die items definiert ??

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Collections.Generic
    3. Imports System.Text
    4. Imports System.Windows.Forms
    5. Imports System.ComponentModel
    6. Imports System.Drawing
    7. Imports System.Globalization
    9. Public Class multi_combo
    10. Inherits ComboBox
    11. Dim ComboBox As New Control
    13. Public Sub anrede(ByVal anr As Integer)
    14. Dim cboa = "ComboBox" & anr
    15. cboa = Replace(cboa, " ", "")
    16. ComboBox.Name = cboa
    18. With ComboBox
    19. .Items.Clear() 'genau hier hast es mich wieder...
    20. .Text = ""
    22. Dim sql As String = "select * from hanrede order by anrede desc"
    23. Dim con As New MySqlConnection
    24. Dim cmd As New MySqlCommand(sql, con)
    25. Dim myAdapter As New MySqlDataAdapter
    26. Dim reader As MySqlDataReader
    27. con.ConnectionString = "server=localhost;" _
    28. & "uid=root;" _
    29. & "pwd=slotmachine;" _
    30. & "database=lenz"
    32. con.Open()
    33. reader = cmd.ExecuteReader()
    34. Do While reader.Read() 'Jede Reihe durchlaufen
    35. Me.Items.Add(reader("anrede") & " / " _
    36. & reader("geschlecht"))
    37. Loop
    38. reader.Close() 'Reader schliesen
    39. con.Close() 'Connection schliesen
    40. End With

    wenn du von einer ComboBox erbst, warum definierst du dann nochmals eine? Dim ComboBox As New Control
    -> weglöschen
    und statt ComboBox überall Me einsetzen...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    also Inherits combobox sagt doch aus das eine combobocx im Form von der klasse erbt

    VB.NET-Quellcode

    1. Public Sub anrede(ByVal anr As Integer)
    2. Dim cboa = "ComboBox" & anr
    3. cboa = Replace(cboa, " ", "")
    4. Me.Name = cboa


    bei sub anrede sezute ich den namen der combobox zusammen und sage mit me.name um welche combobox es sich ahndelt
    ( in dem fall combobox1 )

    mit der with variabel sage ich was mit der combobox passieren soll


    im form rufe ich das baby dann so auf



    VB.NET-Quellcode

    1. Dim cbo As New multi_combo
    2. cbo.anrede(1)


    aber da tut sich nix , ich hab zwar keine fehlermeldung mehr aber die combobox1 im form ist und bleibt leer...

    was habe ich denn da flasch gemacht ..

    die klasse sieht nun so aus:

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Collections.Generic
    3. Imports System.Text
    4. Imports System.Windows.Forms
    5. Imports System.ComponentModel
    6. Imports System.Drawing
    7. Imports System.Globalization
    9. Public Class multi_combo
    10. Inherits ComboBox
    14. Public Sub anrede(ByVal anr As Integer)
    15. Dim cboa = "ComboBox" & anr
    16. cboa = Replace(cboa, " ", "")
    17. Me.Name = cboa
    19. With Me
    20. .Items.Clear()
    21. .Text = ""
    23. Dim sql As String = "select * from hanrede order by anrede desc"
    24. Dim con As New MySqlConnection
    25. Dim cmd As New MySqlCommand(sql, con)
    26. Dim myAdapter As New MySqlDataAdapter
    27. Dim reader As MySqlDataReader
    28. con.ConnectionString = "server=localhost;" _
    29. & "uid=root;" _
    30. & "pwd=slotmachine;" _
    31. & "database=lenz"
    33. con.Open()
    34. reader = cmd.ExecuteReader()
    35. Do While reader.Read() 'Jede Reihe durchlaufen
    36. Me.Items.Add(reader("anrede") & " / " _
    37. & reader("geschlecht"))
    38. Loop
    39. reader.Close() 'Reader schliesen
    40. con.Close() 'Connection schliesen
    41. End With
    44. End Sub
    45. End Class

    Hier der code von die klasse aufgerufen wird:

    VB.NET-Quellcode

    1. Private Sub kkn_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. Dim cbo As New multi_combo
    3. cbo.anrede(1)
    5. 'Anrede
    7. Dim con As New MySqlConnection
    8. Dim myAdapter As New MySqlDataAdapter
    9. con.ConnectionString = "server=localhost;" _
    10. & "uid=root;" _
    11. & "pwd=slotmachine;" _
    12. & "database=lenz"
    14. ComboBox3.Items.Clear()
    15. ComboBox3.Text = ""
    17. Dim sql1 As String = "select * from land order by land asc"
    18. Dim cmd1 As New MySqlCommand(sql1, con)
    19. Dim reader1 As MySqlDataReader
    21. con.Open()
    22. reader1 = cmd1.ExecuteReader()
    23. Do While reader1.Read() 'Jede Reihe durchlaufen
    24. ComboBox3.Items.Add(reader1("land") & " / " _
    25. & reader1("landkurz"))
    26. Loop
    27. reader1.Close() 'Reader schliesen
    28. con.Close() 'Connection schliesen
    31. End Sub


    und hier klasse

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Collections.Generic
    3. Imports System.Text
    4. Imports System.Windows.Forms
    5. Imports System.ComponentModel
    6. Imports System.Drawing
    7. Imports System.Globalization
    9. Public Class multi_combo
    10. Inherits ComboBox
    11. Dim cmb As New Me
    13. Public Sub anrede(ByVal anr As Integer)
    15. Dim cboa = "ComboBox" & anr
    16. cboa = Replace(cboa, " ", "")
    17. Me.Name = cboa
    19. With Me
    20. .Items.Clear()
    21. .Text = ""
    23. Dim sql As String = "select * from hanrede order by anrede desc"
    24. Dim con As New MySqlConnection
    25. Dim cmd As New MySqlCommand(sql, con)
    26. Dim myAdapter As New MySqlDataAdapter
    27. Dim reader As MySqlDataReader
    28. con.ConnectionString = "server=localhost;" _
    29. & "uid=root;" _
    30. & "pwd=slotmachine;" _
    31. & "database=lenz"
    33. con.Open()
    34. reader = cmd.ExecuteReader()
    35. Do While reader.Read() 'Jede Reihe durchlaufen
    36. Me.Items.Add(reader("anrede") & " / " _
    37. & reader("geschlecht"))
    38. Loop
    39. reader.Close() 'Reader schliesen
    40. con.Close() 'Connection schliesen
    41. End With
    44. End Sub
    45. End Class

    habe ich aber keine fehler kein gemotze aber nix daten in der combobox des Forms

    warum hast mich mein Programm ??

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Collections.Generic
    3. Imports System.Text
    4. Imports System.Windows.Forms
    5. Imports System.ComponentModel
    6. Imports System.Drawing
    7. Imports System.Globalization
    9. Public Class multi_combo
    10. Inherits ComboBox
    11. Dim cboa As multi_combo = Nothing
    14. Public Sub anrede(ByVal anr As Integer)
    15. Me.cboa = New multi_combo()
    16. Dim cboa = "ComboBox" & anr
    17. cboa = Replace(cboa, " ", "")
    18. Me.Name = cboa

    Ok ist saberer auch wenn vb den string als solches auch ohne erkennt abr leider ändert sich nix
    die combobox im form ist immer noch leer....

    VB.NET-Quellcode

    1. Public Sub anrede(ByVal anr As Integer)
    2. Me.cboa = New multi_combo()
    3. Dim cboa As String = "ComboBox" & anr
    4. cboa = Replace(cboa, " ", "")
    5. Me.Name = cboa

    im formular wird der name der combobox gesendet der kommt auch in der klasse an.

    Die Klasse scdhein zu funktionieren der reader durchläuft alle vier db einträge

    aber in der Combobox des formulars kommt nix an

    was muß ich machen damit er die reader-werte auch in der combobox des formulars anzeigt

    das hier geht nicht...

    VB.NET-Quellcode

    1. Private Sub kkn_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. 'Anrede name der combobox an klasse senden
    3. Dim cbo As New multi_combo
    4. cbo.anrede(1)
    5. 'ComboBox werte anzeigen
    6. cbo.Show()
    7. 'ende weiter mit Programm

Facebook
Telefonspende