Obtener el nombre de la tabla

[jzginez]

Hola amigos nuevamente solicitando su valiaza ayuda, espero que este hilo este en el foro que le corresponde, les explico estoy trabajando con delphi 7, firebird 1.5 las fibplus para conectarme, en mi base de datos tengo dos tablas:

Tabla: Clientes
Estructura:
ID - Autonumerico
Nombre - VarChar(90)
id_Clasificacion - Entero
etc - (Demas campos del expediente)

Tabla: ClasifClientes
Estructura
ID - Autonumerico
Descripcion - (Bueno, Malo, Regular, No se factura, etc)

ya en delphi uso un pFIBDataSet (al caso igual que un IBDataSet) donde escribo la siguiente consulta

Código SQL [-]
Select 
 Clientes.ID,
 Clientes.Nombre,
 ClasifClientes.Descripcion
From Clientes
 inner join ClasifClientes on (ClasifClientes.id = lientes.id_ClasifClientes)

muestro los datos en un dbgrid y todo funciona bien, ahora lo que estoy haciendo es una forma para agregar un filtro a esta sentencia select, a grandez rasgos leo el listados de campos de pFIBDataSet y el nombre del campo lo agrego a un combobox, con otro combobox selecciono la condición a aplicar y en un edit el valor a buscar quedando mi condición de la siguiente forma

Código SQL [-]
 where nombre = 'JUAN'

agrego esta linea a mi sentencia sql y funciona bien, tanto para el campo Nombre como Descripcion, el problema es con el campo ID pues mi condición queda:

Código SQL [-]
 Where id = 1

y al agregar la linea a mi sentencia y activar el pFIBDataSet me indica error de ambiguedad ( creo que asi se escribe) debido a que tanto la tabla Clientes como ClasifClientes tienen un campo ID.
alguien me podria asesorar en como lograr saber el nombre de la tabla de la que estoy tomando el campo en mi sentencia SQL.

ya probe intentando escribir la siguiente sentencia:

Código SQL [-]
Select 
 Clientes.ID c_id,
 Clientes.Nombre c_nombre,
 ClasifClientes.Descripcion descripcion
From Clientes
 inner join ClasifClientes on (ClasifClientes.id = lientes.id_ClasifClientes)
where c_id = 1

y como era de esperar me indica que el campo c_id no existe

gracias

[jzginez]

Bueno amigos pa variar creo que no me explique muy bien pero de todas formas gracias ya logre solucionar mi problema, es a través de una función que como parametro le envio la sentencia sql de la consulta que quiero condicionar, el componente mome deporsi lo tengo para mostrar al usuario la condición que esta por aplicar, así que lo aprobeche para obtener los nombres de los campos con todo y tabla y al final lo borro para que el usuario ni se entere:

Código Delphi [-]
procedure TFrmEditaFiltro.PonCondicion(Inicial: String);
Var
  i, r: Integer;
  Campo: String;
Begin
  Memo1.Lines.Clear;
  Memo1.Lines.Append(Inicial);
  ComboBoxMultiple2.Items.Clear;
  ComboBoxMultiple2.Items.Add('(Seleccione)|||');
  for i:= 0 to DataSource1.DataSet.FieldCount - 1 do
    Begin
      For r:= 0 to Memo1.Lines.Count do
        Begin
         Campo:= Memo1.Lines.Strings[r];
         if (pos('.'+UpperCase(DataSource1.DataSet.Fields.Fields[i].FullName),UpperCase(Campo)) <> 0) or (pos(' '+UpperCase(DataSource1.DataSet.Fields.Fields[i].FullName),UpperCase(Campo)) <> 0)
          Then Begin
            Campo:= TrimLeft(Campo);
            If (pos('.'+UpperCase(DataSource1.DataSet.Fields.Fields[i].FullName),UpperCase(Campo)) <> 0)
              Then Delete(campo,pos(',',campo),255)
              Else Delete(campo,pos(' ',campo),255);
            Break;
          End;
         End;
      if DataSource1.DataSet.Fields.Fields[i].DataType in ([ftString, ftFixedChar, ftWideString])
        Then ComboBoxMultiple2.Items.Add(DataSource1.DataSet.Fields.Fields[i].DisplayName+'|'+Campo+'|'+'Cadena'+'|'); //DataSource1.DataSet.Fields.Fields[i].FullName
      if DataSource1.DataSet.Fields.Fields[i].DataType in ([ftSmallint, ftInteger, ftWord, ftAutoInc, ftLargeint])
        Then ComboBoxMultiple2.Items.Add(DataSource1.DataSet.Fields.Fields[i].DisplayName+'|'+Campo+'|'+'Entero'+'|'); //DataSource1.DataSet.Fields.Fields[i].FullName
      if DataSource1.DataSet.Fields.Fields[i].DataType in ([ftFloat, ftCurrency, ftBCD])
        Then ComboBoxMultiple2.Items.Add(DataSource1.DataSet.Fields.Fields[i].DisplayName+'|'+Campo+'|'+'Real'+'|'); //DataSource1.DataSet.Fields.Fields[i].FullName
      if DataSource1.DataSet.Fields.Fields[i].DataType in ([ftDate, ftTime, ftDateTime, ftTimeStamp])
        Then ComboBoxMultiple2.Items.Add(DataSource1.DataSet.Fields.Fields[i].DisplayName+'|'+Campo+'|'+'Fecha'+'|'); //DataSource1.DataSet.Fields.Fields[i].FullName
      if DataSource1.DataSet.Fields.Fields[i].DataType in ([ftBoolean])
        Then ComboBoxMultiple2.Items.Add(DataSource1.DataSet.Fields.Fields[i].DisplayName+'|'+Campo+'|'+'Logico'+'|'); //DataSource1.DataSet.Fields.Fields[i].FullName
    End;
  Memo1.Lines.Clear;
  InicializaForma;
End;