Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: 01munrra en 1 Abril 2016, 14:06 pm



Título: BD Access, error al realizar una consulta
Publicado por: 01munrra en 1 Abril 2016, 14:06 pm
saludos!

en VB estoy haciendo un sistema, donde require de un usuario y una clave para ingresar al sistema, pero cuando ingreso el usuario y su clave, y presiono el boton Aceptar, al hacer la consulta, me esta borrando todos los registro de la tabla de la base de dtos, y no entiendo por que. Aqui el codigo:

Código
  1.    Private Sub Button_aceptar_Click(sender As Object, e As EventArgs) Handles Button_aceptar.Click
  2.  
  3.        orden = "Select * from experto where usuario = '" & Trim(TextBox_usuario_experto.Text) & "'"
  4.        t_experto.CommandText = orden
  5.        registro = t_experto.ExecuteReader
  6.  
  7.        If registro.HasRows = True Then
  8.            registro.Read()
  9.  
  10.            If registro(0) = Trim(TextBox_usuario_clave.Text) Then
  11.                'Hacer
  12.            Else
  13.                MsgBox("Datos Incorectos", MsgBoxStyle.Critical, "Error")
  14.            End If
  15.        Else
  16.            MsgBox("Datos Incorectos", MsgBoxStyle.Critical, "Error")
  17.        End If
  18.  
  19.    End Sub
  20.  

que estoy haciendo mal???


Título: Re: BD Access, error al realizar una consulta
Publicado por: Cj2009z en 21 Abril 2016, 04:22 am
que tal!, intenta colocar en la secuencia SQL esto: SELECT usuario FROM experto where=.....  en vez de seleccionar todos los registros de dicha tabla.


Título: Re: BD Access, error al realizar una consulta
Publicado por: engel lex en 21 Abril 2016, 04:26 am
que tal!, intenta colocar en la secuencia SQL esto: SELECT usuario FROM experto where=.....  en vez de seleccionar todos los registros de dicha tabla.

el que va con "=" no es el where es la columna, como el la tiene