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.
