Hola yo tengo el mismo problema !!
Quiero hacer una consulta en dos bases de datos diferentes ... en la primera consulto cuatro tablas, de las cuales obtengo el grupo,salon,capacidad y el num de empleado, este ultimo entrara como parametro en la segunda BD (tabla empleados) de la cual obtendre el nombre del maestro ......
Yo utilizo dos Data Modulos para c/ BD, en cada uno hago la conexion a la BD por medio de un Conexion String ... estoy utilizando el componente ADO ...
El problema es que no se si lo que stoy haciendo este bien, aqui esta lo que hago para obtener esos datos ...
Código Delphi
[-]
procedure ObtenerDatosMaestroGrupo(per,mpio:string);
var idmpio,reg,emp:integer;
begin
idmpio:=strToInt(muncipio(mpio));
dmprincipal.QBuscar.Close;
dmprincipal.QBuscar.SQL.Text:='Select pe.periodo, g.salon, g.grupo, g.capacidad, g.empleado as numemp '+
'From grupos g, periodos pe, materias ma, cursos cu '+
'Where pe.id_periodo=g.id_periodo and ma.clave_materia=g.clave_materia '+
'and cu.id_curso=ma.id_curso and cu.id_mpio=:idmpio and pe.periodo=: per '+
'Order by cu.id_mpio,g.grupo';
dmprincipal.QBuscar.Parameters.ParamByName('per').value:=per;
dmprincipal.QBuscar.Parameters.ParamByName('idmpio').value:=idmpio;
dmprincipal.QBuscar.Open;
reg:=dmprincipal.QBuscar.Recordset.RecordCount;
if reg>0 then
begin
emp:= dmprincipal.QBuscar.FieldByName('numemp').value;
dmrechum.QRechum.Close;
dmrechum.QRechum.SQL.Text:='Select ap_pat,ap_mat,nom_empl,num_empl from pcrhac02 where num_empl=:nemp';
dmrechum.QRechum.Parameters.ParamByName('nemp').Value:=emp;
dmrechum.QRechum.Open;
FRepgrupos.Preview;
end
else
begin
FidioConceptosyGrupos.mensaje.Caption:='No existen grupos vigentes en el periodo '+ per;
FidioConceptosyGrupos.mensaje.Visible:=true;
end;
end;
Maestro Grupo Salon Capacidad
Ricardo A1 200 10
Ricardo A2 201 10
Los valores que me arrogan son los correctos a excepcion de que el maestro me lo duplica para todos los grupos, siendo que es diferente el maestro ... No se si hay otra forma de hacerlo ... espero puedan ayudarme ..
Saludos... espero sus respuestas y/o sugerencias