Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

Imports MySql.Data.MySqlClient

Visual Basic Quellcode

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim conn As MySqlConnection
        conn = New MySqlConnection
        conn.ConnectionString = "server=SERVERNAME/HOST;" & "user id=USERNAME;" & "password=PASSWORT;" & "database=DBNAME"

        Dim name As String = (txt_name.Text)
        Dim nachname As String = (txt_nachname.Text)

        Dim myAdapter As New MySqlDataAdapter
        Dim SQLAbfrage As String = "SELECT * FROM benutzer WHERE Name='" + Replace(name, " ", "") + "' AND Nachname='" & Replace(nachname, " ", "") & "'"
        Dim myCommand As New MySqlCommand
        myCommand.Connection = conn
        myCommand.CommandText = SQLAbfrage

        txt_name.Text = SQLAbfrage("SELECT * FROM benutzer WHERE Name")
        txt_nachname.Text = SQLAbfrage("SELECT * FROM benutzer WHERE Nachname")

        myAdapter.SelectCommand = myCommand
        Dim myData As MySqlDataReader
        myData = myCommand.ExecuteReader()
        If myData.HasRows Then
            conn.Close()
            conn.Open()

        Else
            'Nichts
        End If
    End Sub

Visual Basic Quellcode

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim conn As MySqlConnection
        conn = New MySqlConnection
        conn.ConnectionString = "server=SERVERNAME/HOST;" & "user id=USERNAME;" & "password=PASSWORT;" & "database=DBNAME"
        Try
            conn.Open()
        Catch myerror As MySqlException
            'Nichts
        End Try

        Dim myAdapter As New MySqlDataAdapter
        Dim SQLAbfrage As String = "SELECT * FROM benutzer WHERE Name='" + txt_name.Text + "'"
        Dim myCommand As New MySqlCommand
        myCommand.Connection = conn
        myCommand.CommandText = SQLAbfrage

        myAdapter.SelectCommand = myCommand
        Dim myData As MySqlDataReader
        myData = myCommand.ExecuteReader()

        If myData.HasRows = 0 Then
            conn.Close()
            conn.Open()
            Dim registerfinal As New MySqlDataAdapter
            Dim name As String = (txt_name.Text)
            Dim nachname As String = (txt_nachname.Text)
            myCommand.CommandText = "INSERT INTO benutzer(Name, Nachname)" _
                                 & "VALUES('" & name & "','" & nachname & "')"
            myCommand.ExecuteNonQuery()
            conn.Close()
        Else
            'Nichts
        End If
    End Sub

SQL-Abfrage(n)

DROP TABLE IF EXISTS `benutzer`;CREATE TABLE `benutzer` (
  `ID` int(5) NOT NULL auto_increment,
  `Name` varchar(255) default NULL,
  `Nachname` varchar(255) default NULL,
  PRIMARY KEY  (`ID`)
) ENGINE=MyISAM AUTO_INCREMENT=9 DEFAULT CHARSET=latin

Visual Basic Quellcode

Imports System.Security.Cryptography
Imports System.Text

Module md5

    Public Function MD5StringHash(ByVal strString As String) As String
        Dim MD5 As New MD5CryptoServiceProvider
        Dim Data As Byte()
        Dim Result As Byte()
        Dim Res As String = ""
        Dim Tmp As String = ""

        Data = Encoding.ASCII.GetBytes(strString)
        Result = MD5.ComputeHash(Data)
        For i As Integer = 0 To Result.Length - 1
            Tmp = Hex(Result(i))
            If Len(Tmp) = 1 Then Tmp = "0" & Tmp
            Res += Tmp
        Next
        Return Res
    End Function

End Module

Visual Basic Quellcode

Dim name As String = MD5StringHash(txt_name.Text)
        Dim nachname As String = MD5StringHash(txt_nachname.Text)