Visual-Basic-Forum VB-Paradise.de

Quellcode

Unable to connect to any of the specified MySQL hosts.

Visual Basic Quellcode

Imports MySql
Imports MySql.Data
Imports MySql.Data.MySqlClient
Public Class Registrieren1
    Dim con As New MySqlConnection
    Dim cmd As String
    Private Sub cmd_registrieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_registrieren.Click

        cmd = "server=localhost;uid=chris213;pwd=passwort;database=chris213_sesy;"
        con.ConnectionString = cmd

        con.Open()
    End Sub
End Class

Visual Basic Quellcode

server=localhost

Visual Basic Quellcode

Imports MySql
Imports MySql.Data
Imports MySql.Data.MySqlClient
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim conn As New MySqlConnection
        Dim myConnectionString As String
        myConnectionString = "server=rdbms.strato.de;uid=U688139;pwd=xy;database=xy; "
        conn.ConnectionString = myConnectionString
        Try
            conn.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        conn.Close()
    End Sub
End Class

Visual Basic Quellcode

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    	Dim Anzahl As Integer
    	Dim conn As New MySqlConnection
    	Dim myConnectionString As String
    	myConnectionString = "server=sydney.webhoster.ag;uid=webxxx;pwd=geheim;database=datenbankname; "
    	conn.ConnectionString = myConnectionString
    	Try
        	con.Open()
        	cmd.CommandText = "insert into datenbankname (Feld1, Feld2, Feld3, Feld4, Feld5) values (1, 1, '0', '0','n')"
        	anzahl = cmd.ExecuteNonQuery()
        	If anzahl > 0 Then MsgBox("Erfolgreich") Else MsgBox("Aktion fehlgeschlagen")
    	Catch ex As Exception
        	MsgBox(ex.Message)
    	End Try
    	con.Close()
	End Sub