Hallo !
Ich möchte auf meine Mysql Datenbank Zugreifen, daran bin ich jedoch gescheitert.
Nach längerer suche habe ich herausgefunden das bei meinem Anbieter der remotezugriff gesperrt ist.
Nun habe ich auf der suche nach einer Lösung diesen Thread Gefunden: MySQL Connection over SSH
Zum Testen habe ich den Code Kopiert. (Ich kopiere gern Code und verändere ihn ,bis ich ihn so weit verstanden habe sodass ich damit arbeiten kann. Meine art zu Lernen )
Er Funktioniert aber noch nicht.
Der Fehler Tritt in Zeile 40 auf.
Fehler:
Ich möchte auf meine Mysql Datenbank Zugreifen, daran bin ich jedoch gescheitert.
Nach längerer suche habe ich herausgefunden das bei meinem Anbieter der remotezugriff gesperrt ist.
Nun habe ich auf der suche nach einer Lösung diesen Thread Gefunden: MySQL Connection over SSH
Zum Testen habe ich den Code Kopiert. (Ich kopiere gern Code und verändere ihn ,bis ich ihn so weit verstanden habe sodass ich damit arbeiten kann. Meine art zu Lernen )
Er Funktioniert aber noch nicht.
Der Fehler Tritt in Zeile 40 auf.
Quellcode
- Imports MySql.Data.MySqlClient
- Imports Renci
- Public Class Form1
- Public Shared uconnection As New MySql.Data.MySqlClient.MySqlConnection
- Public Shared dat As Common.DataAdapter
- Public Shared DB_SSH_SERVER As String
- Public Shared DB_SSH_USER As String
- Public Shared DB_SSH_PASSWORD As String
- Public Shared DB_MYSQL_SERVER As String
- Public Shared DB_MYSQL_DATABASE As String
- Public Shared DB_MYSQL_USER As String
- Public Shared DB_MYSQL_PASSWORD As String
- Public Shared BASE_NAME As String
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- DB_SSH_SERVER = "*****"
- DB_SSH_USER = "*****"
- DB_SSH_PASSWORD = "*****"
- DB_MYSQL_SERVER ="*****"
- DB_MYSQL_DATABASE ="*****"
- DB_MYSQL_USER = "*****"
- DB_MYSQL_PASSWORD = "*****"
- BASE_NAME = "*****"
- End Sub
- Public Sub openConnection()
- Dim connInfo As New Renci.SshNet.PasswordConnectionInfo(DB_SSH_SERVER, DB_SSH_USER, DB_SSH_PASSWORD)
- 'Using
- Dim sshClient As New Renci.SshNet.SshClient(connInfo)
- sshClient.Connect()
- If sshClient.IsConnected Then
- Dim port As New Renci.SshNet.ForwardedPortLocal(DB_MYSQL_SERVER, 3306, DB_MYSQL_SERVER, 3306)
- sshClient.AddForwardedPort(port)
- port.Start()
- MsgBox("ssh tunnle opened")
- Dim strConnStr As String
- uconnection = New MySqlConnection
- strConnStr = "Server=" & DB_MYSQL_SERVER
- strConnStr &= ";Database=" & DB_MYSQL_DATABASE
- strConnStr &= ";UserID=" & DB_MYSQL_USER
- strConnStr &= ";Password=" & DB_MYSQL_PASSWORD
- uconnection.ConnectionString = strConnStr
- Try
- uconnection.Open()
- Catch exOpenConnection As Exception
- MsgBox("error open connection" & exOpenConnection.Message, MsgBoxStyle.Information, BASE_NAME)
- End Try
- End If
- ' End Using
- MsgBox("mysql connection opened")
- sub_end:
- End Sub
Fehler:
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „VBob“ ()