Validacion de usuario con wamp!
Publicado por Alfonso (7 intervenciones) el 20/08/2016 03:48:27
hola buen dia, tengo un proyecto que vi en la red sobre como validar un usuario con mysql y .net, la estrustura viene de 2 textbox y un boton
dejo el codigo del form principal,
el problema es que no abre la conexion , se traba en la linea" oConexion.open()"
ahi y ano hace nada, ojala me puedan apoyar con algo gracias !!
dejo el codigo del form principal,
el problema es que no abre la conexion , se traba en la linea" oConexion.open()"
ahi y ano hace nada, ojala me puedan apoyar con algo gracias !!
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
45
46
47
48
Imports MySql.Data.MySqlClient
Public Class Form1
Private Sub btningresar_Click(sender As System.Object, e As System.EventArgs) Handles btningresar.Click
If (existeusuario(txtusuario.Text, txtpassword.Text)) Then
Me.Hide()
FrmPrincipal.Show()
End If
End Sub
Function existeusuario(ByVal usuario As String, ByVal password As String) As Boolean
Dim oConexion As New MySqlConnection
Dim oDataAdapter As MySqlDataAdapter
Dim oDataSet As New DataSet
Dim sSql As String
Dim sw As Boolean = FalseTry
oConexion.ConnectionString = "server=localhost;database=dbsistema;user id=root password='admin';"
sSql = "SELECT * FROM usuarios WHERE Nombre='" & usuario & "'and Password ='" & password & "'"
oConexion.Open()
MessageBox.Show("hasta aqui")
oDataAdapter = New MySqlDataAdapter(sSql, oConexion)
oDataSet.Clear()
oDataAdapter.Fill(oDataSet, "Usuarios")
If (oDataSet.Tables("Usuarios").Rows.Count() <> 0) Then
MessageBox.Show("Binevenido al sistema", "Sistema")
sw = TrueElse
MessageBox.Show("Usuario no encontrado", "Sistema")
End If
Catch ex As Exception
End Try
Return (sw)
End Function
Valora esta pregunta
0
