Visual Basic - Hacer una consulta en un datagrid

Life is soft - evento anual de software empresarial
 
Vista:

Hacer una consulta en un datagrid

Publicado por Pedro (50 intervenciones) el 24/10/2005 17:48:10
1ero.
Deseo en un combo llenar, el nombre de los campos de una tabla
2do.
En base a un textbox filtrar los datos para presentarlos en un datagrid, teniendo en consideracion en que si se busca un nombre poder reconocer la inicial o los primeros caracteres del nombre a la hora del filtro.
3ero.
Ver el detalle en un segundo datagrid del registro seleccionado.

por ejemplo, si hago click en una fila que tiene el nombre de un cliente, en el segundo datagrid poder ver las compras que ha hecho ese cliente
Gracias por la futura acertada respuesta
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Hacer una consulta en un datagrid

Publicado por Roberto (65 intervenciones) el 25/10/2005 01:42:09
Hola <Pedro> hay te van las respuestas de tus 3 preguntas

1era Respuesta:
pon un private o public sub y luego copia este codigo
y lo pones en el load de tu form

dim a as integer
with rs
if .recordcount = 0 then
msbbox"no hay registros"
exit sub
.movefirst
for a = 0 to .recordcount -1
cbodatos.additems .fiels("nombre"),a
.movenext
next a
end if
end with

2da Respuesta:
te recomiendo utilizar el adodc y pues el data grid

primero relaciona el adodc que en este caso lo llamare datos
con el data grid que se llamara grilla

en las propiedades del "datos" donde seleccionas la tabla con la cual estas enlasando, selecciona con text. y en donde escribes la sentencia sql escribe los siguiente
select * from tabla1;

luego en el text donde ingresas los datos a buscar, en el change escirbe los siguiente

private sub text1_change()
dim criterio as string

criterio = "Select * from tabla1 where nombre (like ' " & text1 & "%' ");

datos.datasource = criterio
datos.update
' donde dice nombre en la sentencia sql pones el campo por cual quieres buscar
end sub

' con esto te hara una busqueda letra por letra asi es que cuando pongas la letra a te mandara todos los nombre que empiesen con la letra a digamos ana, arturo, ala. etc. si escribes ro te mandara todos los nombres que empiesen con ro ejem. roberto, rogelio,rosio etc

3era Pregunta

agrega otro adodc y relacionalo con otro datagrid de la misma manera que el otro
y luego escribe en el click del datagrid lo siguiente

private sub datagrid_click(blablablablablablabla)
dim id as string ' aqui lo declaras dependiendo del tipo de campo que sea el tuyo
dim criterio2 as string
id = rs.fiels("id_cliente")

criterio2 = "Select * from tabla1 where id = ' " & id & "' ";
adodc2.datasource = criterio2
adodc2.update
end if

y listo hay tienes todas tus respuestas contestadas si tienes dudas o no te funciona algo mandame un mail o haslo saber atravez de este magnifico foro

Atte. Roberto
PD: cualquier pregunta de sql mandenme mail a mi correo y si me la se les puedo ayudar con mucho gusto.....
Y PERDON POR TODO EL ROLLO..............
CD. JUAREZ CHIHUAHUA MEXICO
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar