usuario y contraseña
Publicado por Juan Carlos (4 intervenciones) el 15/06/2006 01:27:24
Saludos
Resientemente estoy tratando de entender vb.net. tengo el siguiente problema, quieri logiarme desde un formulario windows utilizando los registros de una base de datos como son el usuario y contraseña, tengo algo de codigo se los muestro espero me puedan ayudar.
Dim conn As OleDb.OleDbConnection
Dim orden As OleDb.OleDbCommand
Dim cons As String
conn = New OleDb.OleDbConnection("Provider=Microsoft.jet.OLEDB.4.0; Data Source=C:\Documents and Settings\carlos\Mis documentos\Visual Studio 2005\Projects\pruebax\pruebax\base.mdb")
'command
Dim nombre, contraseña
nombre = TextBox1.Text
contraseña = TextBox2.Text
cons = "SELECT nombre,contraseña FROM datos WHERE nombre=@nombre AND contraseña=@contraseña"
orden = New OleDb.OleDbCommand(cons, conn)
'para el nombre
orden.Parameters.Add(New OleDb.OleDbParameter("@nombre", OleDb.OleDbType.WChar))
orden.Parameters("@nombre").Value = nombre
'para la contraseña
orden.Parameters.Add(New OleDb.OleDbParameter("@telefono", OleDb.OleDbType.Numeric))
orden.Parameters("@contraseña").Value = contraseña
orden.Connection.Open()
// APARTIR DE AQUI NO TENGO NI IDEA QUE HACER, CREO ES UNA CONDICION PERO NO SE QUE HACER
resul = orden.ExecuteNonQuery()
If orden.ExecuteNonQuery() Then
Dim objFmrlogin As New Form1()
Dim objForm1 As New Form2()
objForm1.Visible = False
objFmrlogin.ShowDialog()
Else
Label1.Enabled = True
End If
orden.Connection.Close()
End Sub
ESPERANDO SU AYUDA
MUCHAS GRACIAS
Resientemente estoy tratando de entender vb.net. tengo el siguiente problema, quieri logiarme desde un formulario windows utilizando los registros de una base de datos como son el usuario y contraseña, tengo algo de codigo se los muestro espero me puedan ayudar.
Dim conn As OleDb.OleDbConnection
Dim orden As OleDb.OleDbCommand
Dim cons As String
conn = New OleDb.OleDbConnection("Provider=Microsoft.jet.OLEDB.4.0; Data Source=C:\Documents and Settings\carlos\Mis documentos\Visual Studio 2005\Projects\pruebax\pruebax\base.mdb")
'command
Dim nombre, contraseña
nombre = TextBox1.Text
contraseña = TextBox2.Text
cons = "SELECT nombre,contraseña FROM datos WHERE nombre=@nombre AND contraseña=@contraseña"
orden = New OleDb.OleDbCommand(cons, conn)
'para el nombre
orden.Parameters.Add(New OleDb.OleDbParameter("@nombre", OleDb.OleDbType.WChar))
orden.Parameters("@nombre").Value = nombre
'para la contraseña
orden.Parameters.Add(New OleDb.OleDbParameter("@telefono", OleDb.OleDbType.Numeric))
orden.Parameters("@contraseña").Value = contraseña
orden.Connection.Open()
// APARTIR DE AQUI NO TENGO NI IDEA QUE HACER, CREO ES UNA CONDICION PERO NO SE QUE HACER
resul = orden.ExecuteNonQuery()
If orden.ExecuteNonQuery() Then
Dim objFmrlogin As New Form1()
Dim objForm1 As New Form2()
objForm1.Visible = False
objFmrlogin.ShowDialog()
Else
Label1.Enabled = True
End If
orden.Connection.Close()
End Sub
ESPERANDO SU AYUDA
MUCHAS GRACIAS
Valora esta pregunta


0