Dobrý den, s VB.NET 2010 začínám a potřeboval bych poradit s připojením ke vzdálenému serveru MySQL. Používám tento connector: http://dev.mysql.com/downloads/connector... Na localhostu mi vše funguje jak má, ale pokud se snažím připojit třeba k Forpsi.cz kde hostuji můj web (dbserver-d175um.forpsi.com), tak se zobrazí chyba, že spojení nebylo navázáno. Kde by mohl být problém? Chyba: Unable to connect to any of the specified MYSQL host Tady je zdrojový kód programu, který jsem si napsal na test připojení:
Imports MySql.Data.MySqlClient
Public Class Form1
Dim MysqlConn As MySqlConnection
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim readServer = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\MysqlTest", "server", Nothing)
Dim readLogin = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\MysqlTest", "login", Nothing)
Dim readPassword = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\MysqlTest", "password", Nothing)
Dim readDatabase = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\MysqlTest", "database", Nothing)
Dim readPort = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\MysqlTest", "port", Nothing)
server.Text = readServer
login.Text = readLogin
password.Text = readPassword
database.Text = readDatabase
port.Text = readPort
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim server1 As String = CStr(server.Text)
Dim login1 As String = CStr(login.Text)
Dim password1 As String = CStr(password.Text)
Dim database1 As String = CStr(database.Text)
Dim port1 As String = CStr(port.Text)
If (server1 = "") Or (login1 = "") Then
MsgBox("Nevyplnil jste všechny údaje!")
Else
' Jestli jsou data vyplnena, ulozim jej do registru pro pozdejsi nacteni
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\MysqlTest", "server", server1)
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\MysqlTest", "login", login1)
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\MysqlTest", "password", password1)
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\MysqlTest", "database", database1)
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\MysqlTest", "port", port1)
MysqlConn = New MySqlConnection()
MysqlConn.ConnectionString = "server=" & server.Text & ";" _
& "user id=" & login.Text & ";" _
& "password=" & password.Text & ";" _
& "database=" & database.Text & ";" _
& "port=" & port.Text & ""
Try
MysqlConn.Open()
Dim ok As String
ok = "Připojení navázáno!"
statustext.Text = ok
MessageBox.Show("Připojení bylo úspěšně navázano!")
MysqlConn.Close()
Catch myerror As MySqlException
MessageBox.Show("Nastala chyba v připojení: " & myerror.Message)
Finally
MysqlConn.Dispose()
End Try
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Application.Exit()
End Sub
End Class
Tady je project se vším všudy ve vb.net 2010: http://ulozto.cz/xLaYABk/windowsapplicat... Děkuji za každou odpověď, radu k vyřešení mého problému.
|