Jamie Brunton

Imports MySql.Data.mysqlclient

Public Class Form1

Private Sub cmdsend_Click( ByVal sender As System.Object,  ByVal e As System.EventArgs) Handles cmdsend.Click
        Dim conn As MySqlConnection
        'connect to DB
        conn = New MySqlConnection()
        conn.ConnectionString = "server=192.168.1.50; user id=root; password=jamierocks; database=relog"
        'see if connection failed.
        Try
            conn.Open()
        Catch myerror As MySqlException
            lblstatus.Text = "Error connecting to database"
        End Try
        'sql query
        Dim myAdapter As New MySqlDataAdapter

        Dim sqlquery = Txtstring.text
        Dim myCommand As New MySqlCommand()
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        'start query
        myAdapter.SelectCommand = myCommand
        Dim myData As MySqlDataReader
        myData = myCommand.ExecuteReader()
        'see if user exits.
        If myData.HasRows = 0 Then
            txtoutput.Text = "Invalid Authkey"
        Else
            txtoutput.Text = "Authentication Key accepted!"
        End If
End Sub
End Class