asistente de SQL

[VaMPiRu]

Empezado por jachguate

Depende del motor que uses, si cumple con el estándar SQL esta información está en el diccionario de datos.

Está usando el MS Access...

La cuestión es si con dicho motor se puede conseguir lo que propone el compañero sin tener que recurrir a recorridos anidados entre los campos de las tablas seleccionadas comparando el nombre de los campos (PK y FK tienen mismo nombre) para saber si existe relación o no.

Gracias =)

PD: Datos, usando Delphi 6 SP2 (con componentes base, sin posibilidad de añadir de terceros), Access 2003, conectando con los ADO.

[jachguate]

Empezado por VaMPiRu

Está usando el MS Access...

¿de donde sacas eso?

[atrus]

El motor, como ha dicho Vampiru es Access, perdona por la falta de información, el problema es que en el asistente nos piden hacer Inner Joins y no se como hacerlo, si alguien propone una idea, lo agradeceria mucho....

[jachguate]

Podes hacer inner joins aún entre tablas que no tengan definida una relación (integridad referencial).

Por otro lado, Desconozco si access tiene un diccionario de datos accesible via sql.

Hasta luego.

[atrus]

muchas gracias jachguate, de todos modos posteo el codigo y a ver si alguien me puede ayudar, porqué no se me ocurren ideas, espero que esto esté permitido.
voy cogiendo de un combobox las tablas i de otro los campos i voy creando la sentencia.

Código Delphi [-]
procedure TP09_MENU_PRINCIPAL.cmb_taulaChange(Sender: TObject);
begin

        cmb_camp.ItemIndex:=-1;
        adoc1.GetFieldNames(cmb_taula.Items[cmb_taula.itemindex],cmb_camp.Items);  //carga los campos de las tablas al combobox
        if (icont=0) then begin//si no hay nada en la parte del from entonces insertara el primero
                sfrom := cmb_taula.Items[cmb_taula.itemindex];
        end;

        if (icont=1) then begin
                sfrom := sfrom+', '+cmb_taula.Items[cmb_taula.itemindex];
        end;
        icont:=1;

end;

procedure TP09_MENU_PRINCIPAL.cmb_campChange(Sender: TObject);
begin
        if (icont_field=0) then begin
                sselect :=cmb_camp.Items[cmb_camp.itemindex];
        end;

        if (icont_field=1) then begin
                sselect :=sselect+', '+cmb_camp.Items[cmb_camp.itemindex];
        end;

        icont_field:=1;
end;

procedure TP09_MENU_PRINCIPAL.btn3Click(Sender: TObject);
begin
        mem1.Lines.Text := 'select '+sselect+' from '+sfrom;
end;

[[Lepe]]

Para construir los SQL en tiempo de ejecución revisa este hilo, quizás te sirva.

Saludos