Pasar parametro a una sentencia sql

[molinero1]

Queria hacer una instruccion para eliminar tablas en un tquery, xo no se como pasar el parametro del TEdit, creo q es DROP TABLE :tabla o algo parecido, gracias.

[[gluglu]]

A cualquier sentencia SQL se le puede pasar un parámetro.

La forma es :

Código SQL [-]
SelectSQL.Clear;
SelectSQL.Add('DROP TABLE :Param1');
ParamByName('Param1').AsString := Edit1.Text;
ExecSQL;

Saludos

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

Puedes usar el parámetro:

Código Delphi [-]
  SQL := 'DROP TABLE :NombreTabla';
  // Luego deberás sustituir el parámetro por el valor
  Query1.ParamByName('NombreTable').AsString := Edit1.Text;

O concatenarlo manualmente:

Código Delphi [-]
  SQL := 'DROP TABLE' + Edit1.Text;

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

dentro del tquery tengo: DROP TABLE :tabla
y luego en delphi:
procedure TForm1.Button3Click(Sender: TObject);
begin
query3.open;
param := tablaeliminar.Text;
query3.parambyname('tabla').value := param;
Así tendria q irme? o q debo cambiar? gracias