de un texbox a un datagrid

[future89]

hola a todos, mi pregunta
como hago para que cuando ingrese el codigo del libro me aparesca automaticamente sin apretar un boton los datos en el datagrid y como hago para asignarle a la tecla f5 la pantalla consultar libro

este es el formulario


gracias
una orientación porfa

[Aquaventus]

Hola future89, aquí tienes sobre los controles de funciones(F1,F2....). Espero te sean de utilidad. Saludos!..

[future89]

ok gracias

[Aquaventus]

En donde se va a digitar el codigo del libro en el datagridview? o en el textbox donde dice "**Ingrese Producto**"?

[galletica12]

para mostrar la pantalla con el f5
crea un menustrip ponle el codigo
para mostrarte la pantalla y luego
solo relacionas el evento click del menu
con el evento click del buton para mostrar
tu pantalla

[edbc92]

Si mal no entiendo, lo que tu quieres hacer es un filtrado? Si estas trabajando con sql, y quieres, que cada vez, que vas digitando una letra aparezca en el dgv'datagridview'. Es cuestión de hacer este procedimiento que luego lo llamas en el evente textchanged del textbox. Lo 1ro creamos el procedimiento, se podría programar de una vez en el evento del textbox, pero yo lo hago por cuestión de orden, en fin:

Código:

Private sub filtrar_x()

Dim cn as new sqlconnection(strcn)------->este va ser tu variable conexión que tu ya lo debes de tener

cn.open
try

sql="select cod_libro as 'Código', nombre as 'Nombre del libro',precio as 'Precio del libro' from libros where nombre like @nombre+'%' " -->ya dependiendo de en que tabla se encuentre tus querys lo haces, capaz tus tablas son relacionadas, en este caso lo hice algo sencillo. 

Dim cmd as new sqlcomman(sql,cn)
cmd.parameters.addwithvalue("@nombre",txt_libro.text) ---> Comparas el parámetro, con tu textbox.

Dim dr as sqldatareader=cmd.executereader
dim dt as new datatable

dt.load(dr)

dgvlibro.datasource=dt

catch ex as exception
msgbox(ex.message)---> para ver posible errores
finally
cn.dispose
end try

Ahora ese procedimiento ("filtrar_x") lo invocas en el evente del textbox...txtFiltrar_TextChanged(byval..)

ahi solo lo invocas

Código:

Private Sub txtFiltrar_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtFiltrar.TextChanged
        Call filtrar()
    End Sub

En todo caso que no estes trabajando con bdd me avisas para hecharte una mano xD, saludos.

[future89]

quiero qye al digitar el codigo en el texbox me lo muestre en el datagrid los datos de la tabla libro que son codigo, nombre y el precio que necesito
edbc92 no, no necsito ingresar letras en el textbox necesito hacer una busqueda de codigo de libro en el texbox y que me muestre los resultados en el datagrid, donde despues tengo que ir sumando los precios en el textbox **total** per gracias de todos modos

[future89]

sera mejor un listview o un datagridview para mostrar?

[Aquaventus]

Si ya tienes definida un longitud para el codigo lo que podrias hacer es esto :

En el evento TextChanged de tu TextBox escribir esto :

Código vb.net:

'Por ejemplo yo defino la longitud del codigo, en este caso 
'Si llega a 13
If txtProducto.Text.Trim().Length = 13 Then
    'Que envie un enter
    SendKeys.Send("{Enter}")
End If
 

Con el codigo anterior hago esto para evitar cruces de eventos y mandar la accion al evento keypress del mismo Textbox, Esto va en el evento KeyPress y luego haces una busqueda:

Código vb.net:

'Valido que se ingrese solo numeros
If Char.IsNumber(e.KeyChar) Then
    e.Handled = False
'Valido que se presione Backspace,Enter
ElseIf Char.IsControl(e.KeyChar) Then
    e.Handled = False
'Las demas teclas quedan bloqueadas
Else
    e.Handled = True
End If
 
'Si mando un ENTER entonces que busque
If e.KeyChar = Convert.ToChar(Keys.Enter) Then
    Try
        'Aqui ya te encargas de hacer tu busqueda e insertarlo a tu gridview
        '...
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
End If
 

[future89]

pero si un codigo de libro es de 8 y otro es de 10 y otro es de 15 como le hago para que se envie el enter
aloque me refiero si tienen diferente longitudes los codigos de libro

[Aquaventus]

Entonces solo usa el bloque de codigo KEYPRESS para que al terminar de digitar, el usuario presione ENTER para que realize la busqueda.

[future89]

ok gracias

[future89]

al ejecutar el codigo que postiaste , al ingresar un codigo de libro me ejecuta el proceso varias veces , no para y al apretar la tecla pause del teclado, para y me muestra en el data grid
a que se debera eso??

[Aquaventus]

pon aqui el codigo que has hecho

[future89]

Código vb:

Imports System.Data.SqlClient
Public Class VentaLibros
    Private myConn As New SqlConnection
    Private myCmd As New SqlCommand
    Private myReader As SqlDataReader
    Private results As String
    Dim adaptor As New SqlClient.SqlDataAdapter
    Dim dataset As New DataSet
    Private Sub VentaLibros_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub TbProducto_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TbProducto.KeyPress
        'Valido que se ingrese solo numeros
 
        If Char.IsNumber(e.KeyChar) Then
            e.Handled = False
            'Valido que se presione Backspace,Enter
            'ElseIf Char.IsControl(e.KeyChar) Then
            '  e.Handled = False
            'Las demas teclas quedan bloqueadas
        Else
            e.Handled = True
        End If
 
        'Si mando un ENTER entonces que busque
        If e.KeyChar = Convert.ToChar(Keys.Enter) Then
 
            'Aqui ya te encargas de hacer tu busqueda e insertarlo a tu gridview
            myConn = New SqlConnection("Initial Catalog=libroteka;Data Source=localhost;Integrated Security=SSPI;")
            'Crear un objeto Command.
            myCmd = myConn.CreateCommand
            myCmd.CommandText = "SELECT * FROM libros WHERE cod_libro ='" & TbProducto.Text & "' "
            myConn.Open()
            myReader = myCmd.ExecuteReader()
            'Ltver.View = View.Details
            'Ltver.Items.Clear()
            Dim j = 0
            Do While myReader.Read()
                Ltver.Items.Add(Str(myReader.Item("cod_libro")), 0)
                Ltver.Items(j).SubItems.Add(myReader.Item("nombre_libro"))
                Ltver.Items(j).SubItems.Add(myReader.Item("precio"))
                'j = j + 1
            Loop
 
 
            ' Dim j = 0
 
            ' j = Ltver.Items.Contains
 
 
            'Ltver.Items.Add(TbProducto.Text, "cod_libro")
            'Ltver.Items.SubItems.Add("nombre_libro").ToString()
            'Ltver.Items.SubItems.Add("precio").ToString()
            myReader.Close()
            myConn.Close()
            'Ltver.Sort()
        End If
    End Sub
 
    Private Sub TbProducto_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbProducto.TextChanged
        'Por ejemplo yo defino la longitud del codigo, en este caso
        'Si llega a 13
        If TbProducto.Text.Trim().Length = 13 Then
            'Que envie un enter
            SendKeys.Send("{Enter}")
        End If
    End Sub
End Class
 

el primer codigo de libro que ingreso y se ingresa bien pero no puedo borrar el codigo en el texbox por que las teclas estan bloqueadas creo.

If Char.IsNumber(e.KeyChar) Then
e.Handled = False
'Valido que se presione Backspace,Enter
'ElseIf Char.IsControl(e.KeyChar) Then
' e.Handled = False
'Las demas teclas quedan bloqueadas
Else
e.Handled = True
End If

este codigo lo tengo asi porque si le saco los comentarios al ingresar un codigo de libro en el textbox empiesa a generar varias filas en el listview y no para sigue corriendo

tambien comotengo ese codigo no me agrega otra fila de otro libro
lo inetnto y solo me agrega el codigo del libro pero no el nombre y el precio

en todo eso estoy estancado he buscado pero nada, alomejor sera una palabara que agregar o cambiar? ....

[Aquaventus]

a simple vista vi tu error, Comenta todo lo que esta dentro del TextChanged, porque cada vez que digites va a mandar un "enter" y eso es lo que te ingresaba a cada rato a tu listview, y descomenta la validacion de las teclas, entonces te quedaria así :

Código vb.net:

Imports System.Data.SqlClient
Public Class VentaLibros
    Private myConn As New SqlConnection
    Private myCmd As New SqlCommand
    Private myReader As SqlDataReader
    Private results As String
    Dim adaptor As New SqlClient.SqlDataAdapter
    Dim dataset As New DataSet
    Private Sub VentaLibros_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub TbProducto_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TbProducto.KeyPress
        'Valido que se ingrese solo numeros
 
        If Char.IsNumber(e.KeyChar) Then
            e.Handled = False
            'Valido que se presione Backspace,Enter
        ElseIf Char.IsControl(e.KeyChar) Then
            e.Handled = False
            'Las demas teclas quedan bloqueadas
        Else
            e.Handled = True
        End If
 
        'Si mando un ENTER entonces que busque
        If e.KeyChar = Convert.ToChar(Keys.Enter) Then
 
            'Aqui ya te encargas de hacer tu busqueda e insertarlo a tu gridview
            myConn = New SqlConnection("Initial Catalog=libroteka;Data Source=localhost;Integrated Security=SSPI;")
            'Crear un objeto Command.
            myCmd = myConn.CreateCommand
            myCmd.CommandText = "SELECT * FROM libros WHERE cod_libro ='" & TbProducto.Text & "' "
            myConn.Open()
            myReader = myCmd.ExecuteReader()
            'Ltver.View = View.Details
            'Ltver.Items.Clear()
            Dim j = 0
            Do While myReader.Read()
                Ltver.Items.Add(Str(myReader.Item("cod_libro")), 0)
                Ltver.Items(j).SubItems.Add(myReader.Item("nombre_libro"))
                Ltver.Items(j).SubItems.Add(myReader.Item("precio"))
                'j = j + 1
            Loop
 
 
            ' Dim j = 0
 
            ' j = Ltver.Items.Contains
 
 
            'Ltver.Items.Add(TbProducto.Text, "cod_libro")
            'Ltver.Items.SubItems.Add("nombre_libro").ToString()
            'Ltver.Items.SubItems.Add("precio").ToString()
            myReader.Close()
            myConn.Close()
            'Ltver.Sort()
        End If
    End Sub
 
    Private Sub TbProducto_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbProducto.TextChanged
        'Por ejemplo yo defino la longitud del codigo, en este caso
        'Si llega a 13
        'If TbProducto.Text.Trim().Length = 13 Then
        '    'Que envie un enter
        '    SendKeys.Send("{Enter}")
        'End If
    End Sub
End Class
 

Espero haberte ayudado. Saludos!..

[future89]

ok, me funciona bien gracias por todo, pero volvere jaja todavia me quedan cosas que no he podido hacer, pero claro seroan nuevos temas....

[Aquaventus]

Me alegra haberte ayudado, cualquier otro problema postealo... estaremos siempre para ayudar. Saludos!.