1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
| Imports MySql.Data
Imports MySql.Data.MySqlClient
Imports MySql.Web
Imports System.IO
Public Class Form1
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim flag As Boolean = False
If (String.IsNullOrEmpty(TextBox1.Text) Or String.IsNullOrEmpty(TextBox2.Text)) Then
MessageBox.Show("username or passord missing")
Exit Sub
End If
flag = CheckUser(TextBox1.Text, TextBox2.Text)
If flag = True Then
MessageBox.Show(" Login ok")
Else
MessageBox.Show("invalid user/password")
End If
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Function CheckUser(ByVal u As String, ByVal p As String) As Boolean
Dim flag As Boolean = False
Dim cnn As New MySqlConnection
Dim cmd As New MySqlCommand
Dim reader As MySqlDataReader
cnn.ConnectionString = "Server=ip;Database=db;Uid=user';Pwd='motdepasse';"
cmd.CommandText = "select * from user where uname='" + u.Trim() + "' and upass='" + p.Trim() + "'"
cmd.Connection = cnn
cnn.Open()
reader = cmd.ExecuteReader()
If (reader.HasRows) Then
flag = True
End If
cnn.Close()
Return flag
End Function |
Partager