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;

[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

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

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

[molinero1]

Query3 es el nombre de mi TQuery, ya lo tengo tal cual habeis dicho pero me da el error en SelectSQL.Clear, me dice q [Error] Unit2.pas(65): Undeclared identifier: 'SelectSQL' tengo q declarar el SelectSQL?

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