Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

Visual Basic - Hacer una consulta en un datagrid

Life is soft - evento anual de software empresarial
Vista:
Me gusta: Está pregunta es útil y esta clara
0
No me gusta: Está pregunta no esta clara o no es útil
 
Asunto:

Hacer una consulta en un datagrid

Autor:Pedro (41 intervenciones)
Fecha: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
Responder
información
Otras secciones de LWP con contenido similar...
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:Hacer una consulta en un datagrid

Autor:Roberto (59 intervenciones)
Fecha: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
Comentar