¿Como relacionar formularior en VB6?

[Amarok]

Hola, estoy haciendo un programa y necesito llamar desde el form(Clientes), con CommandButton, al form Empleados pero que muestre los registros asociados(Relacionados) al clientes que esta seleccionado en el form(Clientes).
Desde ya Muchas Gracias...

Saludos!

[MeXiCaN]

Te recomiendo que hagas una base de datos relacionada para esto, te será más práctico, cómodo y fiable.

Una vez tengas las tablas creadas de cliente y empleados, solo debes hacer una sentencia que te muestre los empleados que tengan como cliente el que tu seleccionaste o relacionarlos por el ide.

[jc_moty]

Eso lo podes lograr con un SQL.
con DAO:

Código:

Dim bd as DataBase
Set bd = OpenDataBase(ruta)
Set Data1.RecordSet = bd.OpenRecordSet("SELECT * FROM empleados WHERE codigocliente LIKE '" Text1 "'")

con ADO

Código:

RecordSet.Open("SELECT * FROM empleados WHERE codigocliente LIKE '" Text1 "'")

¿Que usas ADO o DAO?.

Saludos

[Amarok]

Estoy trabajando con ADO, tengo todas las relaciones hechas y las consultas, pero cuando hago click en el boton llamar al frmEmpleados este muestra toda la información solicitada, el problema que la muestra para todos los clientes.

Gracias por responder tan rapido!

[Amarok]

Iniciado por jc_moty

Eso lo podes lograr con un SQL.
con DAO:

Código:

Dim bd as DataBase
Set bd = OpenDataBase(ruta)
Set Data1.RecordSet = bd.OpenRecordSet("SELECT * FROM empleados WHERE codigocliente LIKE '" Text1 "'")

con ADO

Código:

RecordSet.Open("SELECT * FROM empleados WHERE codigocliente LIKE '" Text1 "'")

¿Que usas ADO o DAO?.

Saludos

Hola JC_MOTY

Trabajo con ADO, tus ejemplos estan muy bien, pero lo que necesito es que cuando doy click en el botón empleados, del formulario clientes este llame al Formulario empledos, seleccionando solamente los registro del clientes seleccionado, esto en Access sería como un subformulario relacionado.

Desde ya gracias por tu tiempo...

[Hager]

creo que entendi tu idea...
Mira, en tu formulario principal tienes una consulta ya generada, en tu formulario secundario tienes una subconslta de resultados, lo que quieres e que al elegir un item del formulario principal se habra el formulario segundario con los otros datos, (los cuales estan relacionados entre si), entonces seria algo asi:

form1:
sub el_evento()
dim x as form2
set x = new form2
x.parametro_de_busqueda =midato_en_comun
x.load
x.show
end sub

form2
dim parametro_de_busqueda as string
sub form2_load
' aqui colocas tu metodo de busqueda
sql="select * from mi_tabla where dato_comp=" & parametro_de_busqueda
'adicionas esta selección a tu coponente ado o adob y listo
end sub

[Amarok]

Iniciado por Hager

creo que entendi tu idea...
Mira, en tu formulario principal tienes una consulta ya generada, en tu formulario secundario tienes una subconslta de resultados, lo que quieres e que al elegir un item del formulario principal se habra el formulario segundario con los otros datos, (los cuales estan relacionados entre si), entonces seria algo asi:

form1:
sub el_evento()
dim x as form2
set x = new form2
x.parametro_de_busqueda =midato_en_comun
x.load
x.show
end sub

form2
dim parametro_de_busqueda as string
sub form2_load
' aqui colocas tu metodo de busqueda
sql="select * from mi_tabla where dato_comp=" & parametro_de_busqueda
'adicionas esta selección a tu coponente ado o adob y listo
end sub

Estimado:

Hola, agradezco sus comentarios, pero no puedo hacer funcionar el boton que llama al subformulario en este caso empleados, desde el formulario Clientes. Podrias ser tan amable y darme un ejemplo como lo harias tu, el dato en común es el Cod_Clientes, yo hice todo lo anterior y no pasa nada.

Desde ya gracias.

[lop7]

hola...
seria algo asi...
bueno has el filtro que te dijeron

cargas el formulario de empleados
actualiza tu recordset
RecordSet.Open("SELECT * FROM empleados WHERE codigocliente LIKE '" Text1 "'")
puedes usar una variable global para que la pases en la consulta en ves de Text1

esa es toda la idea... deberia funcionar

saludos..