dim ReadTable as new MysqlDataReader
dim cnn as new mysqlconnection
dim cadena as string = datos de conexion
dim Strsql as string
Sub Button1_Click(sender As Object, e As EventArgs)
' definimos y asigamos los datos de conexion la variable que nos permitira abrir la misma
cnn.ConnectionString = cadena
Try
' abrimos la conexion
cnn.Open()
' definimos el Query que quiera que ejecutemos
Strsql = "select * from tausers where tausername ='" & Tusuario.Text & "' and tapassword ='" & Tpass.Text & "';"
'definimos el comando de MYSQL que nos permitira ejecutar nuestro Query y donde se incluye tambien los datos de conexion
Dim comando As New MySqlCommand(Strsql, cnn)
ReadTable = comando.ExecuteReader()
'condicionamos que si cuando ReadTable lee un dato y es verdadero entonces nos lanzara un mensaje favorable si no pues no nos hemos identificado correctamente
If ReadTable.Read() = True Then
MsgBox("El usuario a iniciado sesion exitosamente, Bienvenido", vbInformation)
frmPrincipal.show()
'cerramos la conexion
cnn.Close()
cnn.Dispose()
Me.Hide()
Else
MsgBox("El nombre de usuario o la contraseña son invalidos por favor verifique sus datos", vbCritical)
Tusuario.Clear()
Tpass.Clear()
End If
Catch ex As MySqlException
MsgBox(ex.Message.ToString)
End Try
' TODO: Implement Button1_Click
End Sub
Gracias por su atencion prestada cualquier duda o inquietud por favor dejen el comentario
