asistente de SQL
 

Hola a todos,
estoy haciendo un asistente automatico de consultas sql como el que tiene el acces, pero no se me aocurre como hacerlo en delphi, mi pregunta es si para hacer inner joins automaticos hay alguna manera de detectar las relaciones que hau entre tablas con el delphi?
tengo dos listbox con multiselect, uno con las tablas y el otro con los fields de estas, y voy montando la consulta a medida que se va pulsando en ellas, no se si es el mejor planteamiento pero es lo que se me ha ocurrido.

graicas a todos por vuestro tiempo.

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

No puedo dar mas información, porque desconozco los datos mínimos para hacerlo.

Hasta luego.

;)

Está usando el MS Access... :rolleyes:

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.

:confused: ¿de donde sacas eso? :confused:

asistente SQL
 

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....

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.

;)

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;

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

Saludos