none
como realizar una consulta con datagridview RRS feed

  • Pregunta

  • Hola, actualmente me estoy iniciando en la programacion con vb2015 comunity, pero esta es trial por 30 dias y necesito descargar una version anterior que no sea trial y que funcione bien.

    Tambien estoy iniciando a programar una consulta.

    comento el inicio:

    1.- usando una tabla de excel 2007 lo pase a una base de datos de acces 2007.

    2.- abri vb2015 comunity y seleccione nuevo proyecto

    3.- en el form uso el datagridview

    4.- ya puse el bindingsource, base de datos dataset, la hoja tableadapter, binding navegator, y por ultimo esto

    1.- use fill normal para llenar el datagridview pero vi que solo me aparece todo conforma al indice principal (numerico)

    2.- despues ordene usando un query los campos alfabeticos necesarios(apellido paterno, apellido materno, nombres) y en el form load me puso esto, y funciona bien

    Me.Hoja1TableAdapter.newquery(Me.Base_de_datos1DataSet.Hoja1)

    5.- coloque un textbox un boton "buscar", dos label para mostrar algo de los campos localizados y luego en el textbox  introducir el nombre del apellido a BUSCAR y buscando aqui en el foro encontre algo que me podia ayudar, pero solo me muestra el indice.

    pongo la programacion siguiente:

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Dim iniciar As Integer = 0

            Dim Index As Integer

            Dim bln As Boolean = Integer.TryParse(TextBox1.Text, Index)

                    If (bln) Then

                        If (Index > DataGridView1.Rows.Count - 1) Then
                            ' Nos movemos a la última fila
                            DataGridView1.CurrentCell = DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(0)

                        Else
                            'Establecemos la nueva celda actual
                            DataGridView1.CurrentCell = DataGridView1.Rows(Index - 1).Cells(0)
                            Label1.Text = DataGridView1.Rows(TextBox1.Text - 1).Cells(0).Value
                            Label2.Text = DataGridView1.Rows(TextBox1.Text - 1).Cells(1).Value.ToString

                         End If

                End If

        End Sub y esto es todo, continuo estudiando haber si encuentro la solucion. Agradezco de antemano toda la ayuda. Saludos.
    viernes, 14 de octubre de 2016 1:56