Pasar parametro a una sentencia sql

[[Lepe]]

La primera forma (sin probarlo) intuyo que no funcionaría, ya que al usar Parambyname, Delphi incluirá las comillas simples al principio y fin del nombre de tabla, así que provocaría un error en ejecución.

Otra forma más es:

Código Delphi [-]
const DeleteTable = 'delete from %s %s';
begin
  query1.sql.text := Format(DeleteTable, ['NombreTabla', '']);

// o bien

  query1.sql.text := Format(DeleteTable, ['NombreTabla', 'where codigo = 3']);

  Query1.ExecSql;
end;

También puedes usar un ComboBox para elegir la tabla de la que quieres borrar, dichos nombres de tablas los puedes extraer del objeto TDatabase, que tendrá un método "GetTableNames".

Saludos

[molinero1]

El problema es que hoy es el segundo dia que utilizo delphi, como se haria lo del combobox y unirlo a la base de datos?

[[gluglu]]

El parámetro lo debes de pasar antes del ExecSQL. No puedes utilizar Open, te dará un error, ya que no estás solicitando ningún Set de Datos, sino lo que intentas es ejecutar una Sentencia SQL, que para ello se utiliza ExecSQL.

Además podrías ahorrarte la variable Param, ya que puedes pasar directamente como Parámetro el valor del TEdit.

Respecto a lo de las comillas, la verdad es que no lo he probado y no sé como va a actuar. Es cuestión de probar.

[molinero1]

Sin el query.open no me da ningun error, pero tampoco me elminina la tabla

[Neftali [Germán.Estévez]]

Empezado por molinero1

Sin el query.open no me da ningun error, pero tampoco me elminina la tabla

El Open es para consultas que devuelven resultados (SELECT); Para INSERT, DELETE, DROP,... debes utilizar el ExecSQL o Exec (no recuerdo ahora cual es).

[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?