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()
Edit by der_Kurt:
- falsches Unterforum
--> Beitrag verschoben
nun bekomme ich folgende Fehlermeldung :
Access denied for user ''@'localhost' (using password: NO) -> bei der zeile mit : reader = cmd.ExecuteReader()
VB.NET-Quellcode
- Imports System
- Imports System.Collections.Generic
- Imports System.Text
- Imports System.Windows.Forms
- Imports System.ComponentModel
- Imports System.Drawing
- Imports System.Globalization
- Public Class multi_combo
- Inherits ComboBox
- Dim con As New MySqlConnection
- Dim sql As String
- Dim cmd As New MySqlCommand(sql, con)
- Dim myAdapter As New MySqlDataAdapter
- Dim ConnectionString = "server=localhost;" _
- & "uid=root;" _
- & "pwd=slotmachine;" _
- & "database=lenz"
- Dim ComboBox As New Control
- Public Sub anrede(ByVal anr As Integer)
- Dim cboa = "ComboBox" & anr
- cboa = Replace(cboa, " ", "")
- ComboBox.Name = cboa
- With ComboBox
- Me.Items.Clear()
- Me.Text = ""
- sql = "select * from hanrede order by anrede desc"
- Dim reader As MySqlDataReader
- con.Open()
- reader = cmd.ExecuteReader()
- Do While reader.Read() 'Jede Reihe durchlaufen
- Me.Items.Add(reader("anrede") & " / " _
- & reader("geschlecht"))
- Loop
- reader.Close() 'Reader schliesen
- con.Close() 'Connection schliesen
- End With
- End Sub
- End Class
Edit by der_Kurt:
- falsches Unterforum
--> Beitrag verschoben
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „der_Kurt“ ()