Validar un texbox

[kaliche]

Hola tengo esta duda , estoy utilizando visual basic 2008 y sql 2005

tengo un textbox de nombre txtbarra y lo que quiero hacer es que cuando el usuario ponga el codigo de barra , se busque en la base de datos en la tabla articulo

nota el query si lo ejecuto desde sql si funciona donde creo que esta el error es en la parte de la validacion


Private Sub txtbarra_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtbarra.LostFocus
Connection.Open()
Try
Dim da As SqlDataAdapter
Dim dt As New DataTable
Dim ds As New DataSet
Dim b As String
Dim s As String = "SELECT codigo_barra FROM articulo WHERE codigo_barra = '" & txtbarra.Text & "'"
da = New SqlDataAdapter(s, Connection)
da.Fill(dt)

If s = "" Then
b = CStr(1)
If txtbarra.Text <> b Then
MsgBox("no existe el articulo")
Else
MsgBox(" existe el articulo")
End If

End If

Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Connection.Close()
End Sub

saludos..!!

[kaliche]

yo quiero validar que cuando se ingrese el codigo de barra

me diga si existe en la base de datos lo hago con el evento txtbarra_lostfocus

ayuda?

Private Sub txtbarra_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtbarra.LostFocus
Connection.Open()
Try
Dim da As SqlDataAdapter
Dim dt As New DataTable
Dim ds As New DataSet
Dim b As String
Dim s As String = "SELECT codigo_barra FROM articulo WHERE codigo_barra = '" & txtbarra.Text & "'"
da = New SqlDataAdapter(s, Connection)
da.Fill(dt)

If s = "" Then
b = CStr(1)
If txtbarra.Text <> b Then
MsgBox("no existe el articulo")
Else
MsgBox(" existe el articulo")
End If

End If

Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Connection.Close()
End Sub

[David]

Mensaje transladado desde tema: http://www.forosdelweb.com/f79/codig...texbox-555606/

Es conveniente que abras un nuevo tema si tienes alguna pregunta. Así podrán ayudarte mejor.

[kaliche]

Gracias david ya abri un tema , ojala puedas ayudarme

Saludos

[David]

No me refería a que abrieras un nuevo tema para ésta pregunta.

Ésta pregunta ya está en un nuevo tema. Me refería a casos futuros, que en lugar de revivir un tema viejo, abras un nuevo tema.

[Adolfiten]

¿El código de barra qué tipo de dato es en la base de datos?

Si es numérico no llevaría comillas en la sentencia SQL.

Otra cosita, hace pila que no programo visual pero... ¿no deberías poner "da.Fill(ds)" en lugar de "da.Fill(dt)"?

Este fragmento de una librería que uso para conectar VB con SQLServer te puede servir para sacara alguna idea...

Código:

If Not CadenaConsulta = String.Empty Then
   Dim unaC As SqlConnection = Me.Conectar
   Dim unDs As New DataSet, unDA As SqlDataAdapter
   Try
      unaC.Open()
      unDA = New SqlDataAdapter(CadenaConsulta, unaC)
      Dim unCB As SqlCommandBuilder = New SqlCommandBuilder(unDA)
      unDA.Fill(unDs)
      unaC.Close()
      Return unDs
   Catch
      MessageBox.Show(Err.Description & " - " & Err.Source & " Línea: " & Err.Erl)
   End Try
End If

Eso retorna un dataset, que después podés leer para extraer los datos; vendrían a ser los resultados de la consulta en memoria, listos para usar.

Probalo y nos contás. Saludos.

[kaliche]

Gracias , te comento el tipo de dato en la BD es nvarchar por eso le pongo las comitas , hoy estuve haciendo unos cambios y siento que donde esta mal es a la hora de validar si existe o no en el if por que si en lugar de hacer la validacion con el texbox , mando a imprimir los datos a un data gridview si lo encuentra me muestra los datos y si no pues nada mas lo pone en blanco

aqui lo muestro en el datagridview

da = New SqlDataAdapter(s, cnn)
da.Fill(dt)
Me.DataGridView1.DataSource = dt

[kaliche]

Gracias ya esta solucionaado !!!!

[danieljose]

Iniciado por kaliche

Gracias ya esta solucionaado !!!!

hola a todos tengo el mismo problema que tienes tu... estoy tratando de validar un TextBox y que cuando se le escriba un numero de cedula se verifique en la base de datos y me diga si existe pero no encuentro la funcion IF correcta ninguna de las que he utilizado me funcion y tengo algo igual a lo tuyo

Private Sub CedulaMaskedTextBox_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CedulaMaskedTextBox.LostFocus
conexion.Open()
Try
Dim da As SqlDataAdapter
Dim dt As New DataTable
Dim ds As New DataSet
Dim b As String
Dim s As String = "SELECT cedula FROM profesor WHERE cedula = '" & CedulaMaskedTextBox.Text & "'"

da = New SqlDataAdapter(s, conexion)
da.Fill(dt)

If s = "" Then
b = CStr(1)
If CedulaMaskedTextBox.Text <> b Then
MsgBox("el profesor no existe")
Else
MsgBox(" si existe elprofesor quiere agregar otro registro?")
End If

End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
conexion.Close()
End Sub


AYUDA PORFAVOR....
mi email es [email protected]
gracias...