miércoles, 17 de julio de 2013

Poner valor en un Textbox con un Query o Consulta - Visual Basic

Nota: Antes que todo debe existir un origen de datos o Data Source (una conexión a la base de datos).
  • Deben asegurarse que cuentan con la herramienta "Mostrar origenes de datos" ó "Show Data Source".


  •  Una vez que hayan abierto la herramienta se verán las tablas y campos contenidos en su DataSet.


  •  Luego lo que se debe de hacer es arrastrar uno de los campo que está en el "Origen de datos" a un Textbox. El campo puede ser cualquiera pero debe pertenecer a la tabla de la cual queremos obtener el valor. como se muestra en la siguiente imagen:


  •  Eso permitira que se creen el "DataSet", "BindingSource", "TableAdapter" y el "TableAdapterManager" en el formulario (Form1).


  • Una vez que ya se han creado dichos recursos, se eliminará el textbox donde pusimos el campo del "Origen de datos" y será reemplazado por uno que no este enlazado con la base de datos. 
  • Una vez hecho lo anterior, podemos iniciar a programar. Pueden poner el siguiente codigo en un boton:
           'La variable Query contiene la definición de la consulta, no los resultados de ejecutarla.
            Dim Query = From Empleado In BasedeDatosEmpleadosDataSet.Jefe
                    Where Empleado.EmpleadoID = TextBox1.Text
                    Select Empleado

            'Un mecanismo habitual para ejecutar una consulta es un bucle For Each. Se tiene acceso a cada 
            'elemento de la secuencia devuelta a través de la variable de iteración del bucle.
            For Each Record In Query
                TextBox2.Text = Record.NomEmp
                TextBox3.Text = Record.PuestoEmp
            Next

No hay comentarios:

Publicar un comentario

Deprecated: mysql_select_db(): The mysql extension is deprecated and will be removed in the future: use mysqli or PDO instead in

¿Les ha sucedido que intentan, hacer un query de conexión y les sale un mensaje de que la extensión que están usando es obsoleta? Les pon...