Leer Datareader - escribir ?
Publicado por Loo (2 intervenciones) el 22/02/2009 11:39:33
Existiendo "datareader" con el que puedo leer e identificar si unos campos de un login (usuario y password) han sido introducidos correctamente. ¿Cómo puedo añadir una acción de escritura en el propio botón de aceptar para que al usuario seleccionado que se haya conectado a mi aplicación se le añada la cadena "conectado" en una tercera columna que se llame "estado" y que todos los usuarios de mi tabla tengan a null excepto el que se conecta?
Trabajo con VB. net 2003
Mi botón:
Private Sub BtnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAceptar.Click
Dim pos As Integer = 0
Dim m As Integer
conector.Open()
Dim cmd As New OleDbCommand("Select * from Tabla", conector)
Dim dr As OleDbDataReader = cmd.ExecuteReader
Do While dr.Read
If (dr.Item("nombre") = TextBox1.Text) Then
If (dr.Item("password") = TxtBoxPassword.Text) Then
BindingContext(midataset, "Tabla").Position = pos
If (dr.Item("nombre") = "admin") Then
f3.Show()
Me.Hide()
Else
f2.Show()
Me.Hide()
End If
End If
DataGrid1.DataSource = midataset
DataGrid1.DataMember = "Tabla"
m = 1
Else
pos = pos + 1
End If
Loop
If m = 0 Then
MsgBox("Nombre de usuario o contraseña")
End If
conector.Close()
End Sub
Trabajo con VB. net 2003
Mi botón:
Private Sub BtnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAceptar.Click
Dim pos As Integer = 0
Dim m As Integer
conector.Open()
Dim cmd As New OleDbCommand("Select * from Tabla", conector)
Dim dr As OleDbDataReader = cmd.ExecuteReader
Do While dr.Read
If (dr.Item("nombre") = TextBox1.Text) Then
If (dr.Item("password") = TxtBoxPassword.Text) Then
BindingContext(midataset, "Tabla").Position = pos
If (dr.Item("nombre") = "admin") Then
f3.Show()
Me.Hide()
Else
f2.Show()
Me.Hide()
End If
End If
DataGrid1.DataSource = midataset
DataGrid1.DataMember = "Tabla"
m = 1
Else
pos = pos + 1
End If
Loop
If m = 0 Then
MsgBox("Nombre de usuario o contraseña")
End If
conector.Close()
End Sub
Valora esta pregunta


0