ADO -> Access. ¿Como distingo una tabla de un query?

[Kaopectate]

Hola a todos.

Estoy trabajando en Delphi leyendo información de una base de datos Access para convertirla. Para ello estoy usando ADO (desde Delphi). Pues bien, mi problema es que con la conección puedo tener la lista completa de las tablas de la B.D. pero al importar, no logro diferenciar entre las tablas propiamente dichas y los querys. Todos me los reconoce como tablas.

¿Que puedo hacer?

[Kaopectate]

Desde Delphi tengo acceso a la lista de propiedades del objeto recordset, sin embargo, comparo una a una las propiedades de un recordset asociado a un query Vs las propiedades asociadas a una tabla y no veo nada que me ayude.

¿Alguna idea?

[yguevara]

Hola mira aqui te dejo algo sobre el uso del OpenSchema en delphi ...
espero te ayude sin mas

Código:

procedure TForm1.Button1Click(Sender: TObject);
var
TypeField,
NameField: TField;
TableType: string;
DataSet: TADODataSet;
ADOConnection:tADOConnection ;
data:string;
begin
data:=’C:\Program Files\lbi for windows\data\LBU200805.mdb‘; //Database access
// create ado connection
ADOConnection:=tADOConnection.create(nil);
ADOConnection.ConnectionString:=’Provider=Microsoft.Jet.OLEDB.4.0;Data Source=’+
data+’;Persist Security Info=False’;

// create dataset
DataSet := TADODataSet.Create(nil);
try
ADOConnection.OpenSchema(siTables, EmptyParam, EmptyParam, DataSet);
TypeField := DataSet.FieldByName(’TABLE_TYPE’);
NameField := DataSet.FieldByName(’TABLE_NAME’);

try
ListBox1.Clear;
ComboBox1.Clear;

// input tables name to combobox and listbox
while not DataSet.EOF do
begin
TableType := TypeField.AsString;
if (TableType = ‘TABLE’) or (TableType = ‘VIEW’) then
ListBox1.items.Add(NameField.AsString);
ComboBox1.items.Add(NameField.AsString);
DataSet.Next;
end;
finally
end;
finally
DataSet.Free;
end;