none
Formulario para iniciar una búsqueda en base de datos utilizando access 2007 RRS feed

  • Debate general

  • buenas

    compañeros aquí les traigo un ejercicio de visual studio 2010 

    funciona completo instrucciones : abrir vb.net 2010 dar en nuevo proyecto indicar que se trata de windows application

    al formulario que nos aparece de primero agregados los siguientes componentes  

    2 GroupBox1 uno para los textos a buscar y otros para la descripciones de busquedas

    2 texboxt 

    1 datagriview 

    2 radio button o mas 

    o mas si lo que necesitas buscar de mas elementos  configurados para la búsqueda de datos consultas 

    cuanto tengamos el formulario pre diseñado--

    agregamos el siguiente código y sus funciones de consultas 

    consulta de datos mediante checkbox utilizando ado.net- oledb ---access 2007

    teniendo el siguiente formulario agregamos el siguiente código a a nuestra aplicación para darle vida 

    pueden agregar mas controles de búsquedas par atener un amplio esquema de búsquedas para generar consultas  utilizando visual estudio 2010

    aquí les dejo este ejercicio para que lo complementes con sus estudios y les sea e utilidad en un futuro  

    continuamos ahora nos encargamos de configurar todos los componentes insertados 

    1 )

    importamos el tipo de conexión de datos es 

    Imports System.Data
    Imports System.Data.OleDb


    declaramos y  utilizamos las variables y parámetros 

     Inherits System.Windows.Forms.Form
        Dim cnn As New OleDbConnection
        Dim da_ As New OleDbDataAdapter

    en el evento changed de los componentes de radio button

    Try
                cnn = New OleDbConnection(cnnstr)
                cnn.Open()
                Dim sql As String = "select * from tabla1 where Id_=ci"
                Dim da1 As New OleDbCommand(sql, cnn)
                da1.Parameters.AddWithValue("ci", TextBox1.Text)
                Dim da As New OleDbDataAdapter(da1)
                Dim dt As New DataTable
                da.Fill(dt)
                If dt.Rows.Count > 0 Then
                    Dim row As DataRow = dt.Rows(0)
                    TextBox2.Text = CStr(row("descrip"))
                    Me.DataGridView1.DataSource = dt
                End If

            Catch ex As Exception

    y complementando esta aplicación y darle vida mas dinámica y atractiva agregamos  el siguientes código utilizando el 2 radiobutton  en el evento recuerden que dándole doble click para acceder a el código completo 

     Try
                cnn = New OleDbConnection(cnnstr)
                cnn.Open()
                Dim sql As String = "select * from tabla2 where id=ci"
                Dim da1 As New OleDbCommand(sql, cnn)
                da1.Parameters.AddWithValue("ci", TextBox1.Text)
                Dim da As New OleDbDataAdapter(da1)
                Dim dt As New DataTable
                da.Fill(dt)
                If dt.Rows.Count > 0 Then
                    Dim row As DataRow = dt.Rows(0)
                    TextBox2.Text = CStr(row("nombre"))
                    Me.DataGridView1.DataSource = dt
                End If

            Catch ex As Exception

            End Try

     y para terminar le damos ejecutar  y simple presionamos  f5 y comenzaremos a iniciar una búsqueda en dos tablas de nuestras base de datos  que esteremos y utilizando y espesar a ser creativos les servirá de mucho se los garantido 

    muchos éxitos

     has la próxima

    • Cambiado Enrique M. Montejo domingo, 16 de agosto de 2015 15:13 Debate relacionada con el acceso a datos.
    domingo, 13 de octubre de 2013 1:29

Todas las respuestas

  • este ejemplo es para  llenar el datagridview de un form en vb.net


    private sub llenarmidatagrid

    try

    dim dr as new datatable 

    dim conexion as string="server=localhost;database=ejemplo1;user id=a1;password=sa01s"

    dim da_adpter as new sqldataadpter("select * from tblmitabla",conexion)

    da_adpter.fill(dt)

    me.datagridview.datasource=dt

    catch ex as exception

    end try

    end sub 

    end class


    jueves, 13 de agosto de 2015 16:56