Hallo zusammen.
Ich habe versucht, eine MySQL-Datenbankverbindung nach dieser Video-Anleitung zu erstellen.
Meine Codes sehen also folgendermaßen aus:
app.config
...
start_vars.vb
Form1.vb
Wenn ich nun auf den Button klicke, kommt die Fehlermeldung:
Allerdings finde ich keinen Fehler, nachdem ich nun auch schon mehrere Forenbeiträge durchsucht habe.
Könnt Ihr mir da helfen?
Grüße, Patrick!
Ich habe versucht, eine MySQL-Datenbankverbindung nach dieser Video-Anleitung zu erstellen.
Meine Codes sehen also folgendermaßen aus:
app.config
...
start_vars.vb
VB.NET-Quellcode
- Public Class start_vars
- Private Shared aSettingsReader As New System.Configuration.AppSettingsReader
- Public Shared server As String = CStr(aSettingsReader.GetValue("server", GetType(String)))
- Public Shared username As String = CStr(aSettingsReader.GetValue("username", GetType(String)))
- Public Shared passwort As String = CStr(aSettingsReader.GetValue("passwort", GetType(String)))
- Public Shared datenbank As String = CStr(aSettingsReader.GetValue("datenbank", GetType(String)))
- Public Shared port As Integer = CInt(aSettingsReader.GetValue("port", GetType(Integer)))
- Public Shared myConnectionString As String = "server=" & server & ";port=" & port & ";database=" & datenbank & ";uid=" & username & ";pwd=" & passwort
- End Class
Form1.vb
VB.NET-Quellcode
- Imports ***.start_vars
- Imports MySql.Data.MySqlClient
- Public Class Form1
- Public Shared conn As New MySql.Data.MySqlClient.MySqlConnection
- Public Shared da As Common.DbDataAdapter
- Dim sql As String
- Public Shared Sub abfrage_ausfuehren_starm_form(ByVal dieser_sql As String)
- Try
- conn.ConnectionString = myConnectionString
- conn.Open()
- da = New MySqlDataAdapter(dieser_sql, conn)
- Dim dt As New DataTable
- da.Fill(dt)
- Form1.Datas_GridView.DataSource = dt
- conn.Close()
- Catch ex As MySql.Data.MySqlClient.MySqlException
- MessageBox.Show(ex.Message)
- End Try
- End Sub
- Private Sub ShowSeries_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShowSeries.Click
- sql = "SELECT * FROM series"
- abfrage_ausfuehren_starm_form(sql)
- End Sub
- End Class
Wenn ich nun auf den Button klicke, kommt die Fehlermeldung:
Unable to connect to any of the specified MySQL hosts.
Allerdings finde ich keinen Fehler, nachdem ich nun auch schon mehrere Forenbeiträge durchsucht habe.
Könnt Ihr mir da helfen?
Grüße, Patrick!