relacionar dos tablas y mostrar en un grid
Publicado por Carmen (2 intervenciones) el 28/10/2008 19:17:33
hola soy nueva queria hacer una consulta sobre dataenvironment y dos tablas relacionadas.. empleados que consta de (id_empleado, nombre, apellido, sueldo) y la otra hijos (id_hijo, nombre, apellido, id_empleado), bueno las dos tablas estan relacionadas por el campo id_empleado, necesito que al seleccionar un empleado de un combo box me muestre en un grid la informacion de los hijos
yo hice un dataenvironment y a continuacion coloco el codigo para q vean y por favor me puedan ayudar
al parecer no esta ejecutando el sql, si en esa opcion DeHijos.rsCmHijos.Open sql le quito el sql muestra q todos los empleados tienen hijos y si le coloco de vuelta ningun empleado tiene hijos.. help!!!
Private Sub CmdMostrarHijos_Click()
configurar_grilla
Dim sql As String
If CboEmpleados.ListIndex <> -1 Then
sql = "select * from hijos where id_empleado=" & CboEmpleados.ItemData(CboEmpleados.ListIndex)
DeHijos.rsCmHijos.Open sql
If DeHijos.rsCmHijos.EOF Then
MsgBox "El empleado no tiene hijos"
DeHijos.rsCmHijos.Close
Else
DeHijos.rsCmHijos.MoveFirst
While Not DeHijos.rsCmHijos.EOF
Grid1.AddItem DeHijos.rsCmHijos.Fields("apellido") & vbTab & DeHijos.rsCmHijos.Fields("nombre") & vbTab & DeHijos.rsCmHijos.Fields("edad")
DeHijos.rsCmHijos.MoveNext
Wend
DeHijos.rsCmHijos.Close
End If
End If
configurar_grilla
End Sub
desde ya miles de gracias
yo hice un dataenvironment y a continuacion coloco el codigo para q vean y por favor me puedan ayudar
al parecer no esta ejecutando el sql, si en esa opcion DeHijos.rsCmHijos.Open sql le quito el sql muestra q todos los empleados tienen hijos y si le coloco de vuelta ningun empleado tiene hijos.. help!!!
Private Sub CmdMostrarHijos_Click()
configurar_grilla
Dim sql As String
If CboEmpleados.ListIndex <> -1 Then
sql = "select * from hijos where id_empleado=" & CboEmpleados.ItemData(CboEmpleados.ListIndex)
DeHijos.rsCmHijos.Open sql
If DeHijos.rsCmHijos.EOF Then
MsgBox "El empleado no tiene hijos"
DeHijos.rsCmHijos.Close
Else
DeHijos.rsCmHijos.MoveFirst
While Not DeHijos.rsCmHijos.EOF
Grid1.AddItem DeHijos.rsCmHijos.Fields("apellido") & vbTab & DeHijos.rsCmHijos.Fields("nombre") & vbTab & DeHijos.rsCmHijos.Fields("edad")
DeHijos.rsCmHijos.MoveNext
Wend
DeHijos.rsCmHijos.Close
End If
End If
configurar_grilla
End Sub
desde ya miles de gracias
Valora esta pregunta


0