asistente de SQL

[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