BD relacional + Adodc

[GeoAvila]

la manera que lo podes hacer es con un Shape.

aca defino un shape

Código:

'la opcion sqlsrv es mi dns de sistema para conectarme al sql2000
BasePathShape = "PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;dsn=sqlsrv;uid=;pwd=;database=FACTURACION;"

 datPrimaryRS.ConnectionString = BasePathShape ' variable hacia la db

 datPrimaryRS.RecordSource = "SHAPE {select id_cuenta_registro,no_registro,fecha_ingreso,hora_ingreso,id_huesped,id_tipo_huesped,tipo_cambio,valoriva,inguat,destino,observaciones,cancelado from pricipal_registros Where cancelado = 0 Order by no_registro} AS ParentCMD APPEND ({select id_cuenta_registro,id_habitacion as Habitacion,no_personas as 'No. Pax',fecha_ingreso As 'Ingreso',fecha_salida As 'Salida',valorhabitacion As 'Valor Hab.',Anulado,observaciones_hab As Observaciones from registro_huesped Order by id_habitacion } AS ChildCMD RELATE id_cuenta_registro TO id_cuenta_registro) AS ChildCMD"
    datPrimaryRS.Refresh ' refresco el control
    
Set grdDataGrid.DataSource = datPrimaryRS.Recordset("ChildCMD").UnderlyingValue ' aca asigno la tabla hija a un datagrid 
si te das cuenta donde dice relate unifico las dos tablas por las llaves
RELATE id_cuenta_registro TO id_cuenta_registro

nos vemos espero te sirva el ejemplo