Pasar parametro a una sentencia sql

[molinero1]

Me da error en la sentencia sql DROP TABLE :tabla
line 1, char 12

[[gluglu]]

He realizado la prueba y ciertamente pasándolo como parámetro me da error a mi también. Será por lo que se comentó anteriormente con respecto a las comillas que se incluyen al pasarlo como parámetro.

La solución que expuso Neftalí funciona perfectamente :

Código SQL [-]
with IBQuery1 do begin
  SelectSQL.Clear;
  SelectSQL.Add('DROP TABLE ' + Edit1.Text);
  Prepare;
  ExecSQL;
end;

[molinero1]

Al poner las lineas dentro del Query, me da un error ya en el 1º char, osea, en el with, o sera xq tengo q qitar el parambyname?

[[gluglu]]

El código que te he expuesto anteriormente no es para que lo uses directamente dentro del Query.

Es código que deberías incluir en el evento OnClick del botón que vayas a utilizar, o en la parte de código que utilices para borrar esa tabla.

[[gluglu]]

Según tu post anterior

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
begin
  with Query3 do begin
    SelectSQL.Clear;
    SelectSQL.Add('DROP TABLE ' + Edit1.Text);
    Prepare;
    ExecSQL;
  end;
end;

[molinero1]

Me da un error en la linea de SelectSQL.Clear
[Error] Unit2.pas(65): Undeclared identifier: 'SelectSQL'
Otra cosa, entonces dentro del Query3 tengo q poner DROP TABLE :tabla, no? gracias

[[gluglu]]

Se supone que tienes un componente TQuery o TIBQuery (u otro parecido), en tu Form.

En ese elemento TQuery no tienes que poner nada.

Por otro lado, según entiendo, tienes un TEdit y un TButton en tu form.

En el evento OnClick del TButton (en tu caso Button3) debes de poner el código tal y como lo he detallado.

Ese hará que cuando hagas click en el Button3, se ejecute el código expuesto, borre la sentencia SQL del Query3 (mediante SelectSQL.Clear), introduzca mediante código una nueva línea en el Query (SelectSQL.Add ...) y finalmente con ExecSQL te ejecute el Query y te borre la tabla que hayas indicado en el Edit1 de tu form.

Otra cosa muy diferente sería hacer las comprobaciones pertinentes de si esa tabla existe o no en tu base de datos, ya que en el caso de que no exista la ejecución del Query te dará error.

[[kuan-yiu]]

Dentro de la query que uses para la consulta no pongas NADA.
En el botón o donde sea que lanzes el borrado debes poner tal cual el codigo que te ha puesto gluglu, bueno, la parte que está entre el begin y el end. En lugar de "Query3" pon el nombre del componente TQuery que uses para el borrado.

[[Lepe]]

molinero1, perdona si te estamos mareando un poco, las neuronas parecen que anda algo revueltas ... igual que el tiempo atmosférico.

Empezado por gluglu

Según tu post anterior

Salvando el error de que un TQuery no tiene la propiedad SELECTSQL, sino que se llama SQL (para ser exactos y un poco pejiguera ).

El código debe quedar así:

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
begin
  with Query3 do begin
    SQL.Text := 'DROP TABLE ' + Edit1.Text;
    ExecSQL;
  end;
end;

No tiene sentido preparar el Query ya que cada vez que se ejecute se está modificando el sql sin parámetros, por tanto, no se obtendrá eficiencia alguna con prepare.

PD:Por otra parte, como solo se trata de una línea, he obviado el uso de las líneas:

Código Delphi [-]
sql.Clear;
sql.Add(....)

ya que son 2 líneas de código y al asignar sql.Text, ya hace internamente un sql.Clear

Saludos

[molinero1]

Ahora ya me pasa el error de antes, xo me da uno nuevo:
'Table1: missing TableName propierty'
Y perdonad vosotros, q soy yo el q va dando problemas x aqui :P.