Parametro en consultas

[carlosegs11]

Buenos días. Estoy utilizando consultas SQL en Tablas tipo .dbf

Cuando utilizo la siguiente consulta me funciona perfectamente:

Código Delphi [-]
  Query.SQL.Clear;
  Query.SQL.Add('SELECT : pCedula');
  Query.SQL.Add('FROM Tercero.dbf');
  Query.ParamByName('pCedula').AsString := Edit1.Text;
  Query.SQL.Open;

Pero si lo que necesito es pasar el nombre de la tabla como parámetro lo hago de la siguiente manera y no me funciona:

Código Delphi [-]
  Query.SQL.Clear;
  Query.SQL.Add('SELECT Cedula');
  Query.SQL.Add('FROM : pTabla');
  Query.ParamByName('pTabla').AsString := 'Tercero.dbf';
  Query.SQL.Open;

Alguien sabe cual es la forma correcta de hacerlo?

De antemano muchas gracias.

Carlos E.

//Lo edite para que vieras que la ultima etiqueta delphi no es con \ si no con /...

[carlosegs11]

Perdon... esta es la forma correcta del mensaje.....

****************************

Buenos días. Estoy utilizando consultas SQL en Tablas tipo .dbf

Cuando utilizo la siguiente consulta me funciona perfectamente:

Código Delphi [-]
Query.SQL.Clear;
Query.SQL.Add('SELECT : pCedula');
Query.SQL.Add('FROM Tercero.dbf');
Query.ParamByName('pCedula').AsString := Edit1.Text;
Query.SQL.Open;

Pero si lo que necesito es pasar el nombre de la tabla como parámetro lo hago de la siguiente manera y no me funciona:

Código Delphi [-]
Query.SQL.Clear;
Query.SQL.Add('SELECT Cedula');
Query.SQL.Add('FROM : pTabla');
Query.ParamByName('pTabla').AsString := 'Tercero.dbf';
Query.SQL.Open;

Alguien sabe cual es la forma correcta de hacerlo?

De antemano muchas gracias.

Carlos E.

[[maeyanes]]

Hola...

Para usar el nombre de tabla como "parámetro", tienes que usar variables en Delphi. Un pequeño ejemplo:

Código Delphi [-]
procedure Form1.OpenQuery(TableName: string);
begin
  with Query do
  begin
    Close;
    SQL.Clear;
    SQL.Text := Format('select Cedula from %s', [TableName]);
    Open
  end
end;

Saludos...

[carlosegs11]

Muchas gracias. Lo utilicé de la siguiente forma y me funcionó muy bien:

Código Delphi [-]
with Query do
begin
  SQL.Clear;
  SQL.Text := Format('SELECT * FROM %s ORDER BY Cedula', [sNombre+'.dbf']);
  Open;
end;