Foro de programacion

programacion
RegistrateNewsletter
zonas:adsl:area-flash:area-php:area-asp:area-vb:area-photoshop:area-Vfox:area-Soft:area.:Mas
+ de 45.000 registrados
Secciones: Manuales-Diseño-Trucos-Recursos-Foros/Comunidad-Software-CodigoFuente-compras
AñadenosFavoritos
Secciones: Herramientas-Libros-Webmasters/Google-Noticias -Biblioteca-Cursos--Directorio-EmpleoN
Foros de Programacion - Cominidad de Programadores
 
Foros de programacion
es una web de ayuda a los programadores y webmasters, la buena utilizacion del foro sera el premio que tendremos para q este elemento sea util para los usuarios.

Colaborar: Si deseais ser moderadores de alguno de los foros estaremos encantados en que nos presteis esa ayuda , tan solo es necesario tener algun conocimiento
del tema que trata el foro y tener ganas ganas de colaborar para ser moderador mandar un mail indicando de que foro deseais ser moderador

Deseais que pongamos algun nuevo foro de programacion? ¿quieres crear un nuevo foro y ser su moderador? ponte en contacto con nosotros

Retroceder   Foros > Programacion > visual basic

Respuesta
 
LinkBack Herramientas Desplegado
  #1 (permalink)  
Antiguo 22 de febrero,2009, 10:45
loo loo está desconectado
Junior Member
Nivel basico por msg
 
Fecha de Ingreso: feb 2009
Mensajes: 1
Predeterminado boton con datareader (para leer)...como hago para escribir?

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 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
Responder Citando
  #2 (permalink)  
Antiguo 24 de febrero,2009, 14:29
Member
Nivel Experto por Msg
 
Fecha de Ingreso: feb 2009
Mensajes: 66
Predeterminado

Hola,

mirá este ejemplo, está muy completo: Update Access data table through OleDbConnection : Access Data UpdateDatabase ADO.netVB.Net

Ahí se actualiza el campo FIRST NAME de la tabla EMPLOYEE.
Organizó todo en funciones que se conectan a la base y muestran información, excepto la actualización que esta en el Main.

Espero que te sirva. Saludos.
Responder Citando
Respuesta

Herramientas
Desplegado

Normas de Publicación
No puedes crear nuevos temas
No puedes responder temas
No puedes subir archivos adjuntos
No puedes editar tus mensajes

BB code is Activado
Las caritas están Activado
El codigo [IMG] está Activado
Código HTML está Desactivado
Trackbacks are Activado
Pingbacks are Activado
Refbacks are Activado
Ir al Foro

Programacion : LWPI Solorecursos I programacion I abcdatos I TrucosTecnicos I servicios gratisI ofertas de ADSL Ipueblos20
Areas exclusivas:cursosIofertasIadslIwebtutoriales ISMSareaItutorialesItrucos de windows IgooglemaniaI programatium.netIcompras
noticias: SaludIOcio/cineIMusicaIMotorIDeportes IJuegos I FinanzasIMovilesIEnergiaIEcologiaITech-yIMujerIMACISaludIViajes-Pueblos
site programatium.com : site1 - site2 - site3 - site4 - site5 - site6 - site7 - site8
manuales Sugiere un manual para esta seccion
who's online
Linkanos
www.programatium.com© 1999 - web esta optimizada para Microsoft explorer 6.0
tutoriales

Content Relevant URLs by vBSEO 3.2.0