Ejecutar varias SQL en una sola llamada

[erian96]

Hola buen día a todos.

Estoy desarrollando una aplicación Delphi/Zeos 6.5.1-alpha/MySQL 5.0.22 - mis componentes Zeos tienen los ultimos parches para esa versíon (permiten la ejecución de SP's) -

Necesito ejecutar varias sentencias en una sola llamada al servidor, ¿alguien sabe como hacerlo?

Por ej., en este momento lo hago de la siguiente forma:

Código Delphi [-]
 
qSQL.SQL.Text := 'CALL calcular_siguiente_folio_movimiento_inventario(@folio)';
qSQL.ExecSQL;
qSQL.SQL.Text := 'SELECT @folio';
qSQL.Open;

y lo que quisiera hacer es ejecutar la primera instrucción y la tercera en una sola llamada.

Gracias.

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

Sé que hay componentes (por ejemplo ADO -que vienen con Delphi-) que permiten lanzar un SQL cque devuelva varios Recordsets; Una vez que la has ejecutado puedes "moverte" (NextRecordSet) entre los distintos Recorsets que has obtenido. El redimiento es sensiblemente superior a si los ejecutas por separado.

Tal vez deberías mirar los componentes que utilizas para ver si poseen algo similar. Tal vez alguien que conozca Zeos pueda decirnos si poseen alguna característica similar a ésta.

[erian96]

Que tal Neftali, gracias por tu ayuda. Solo un ultimo favor, me podrías postear un ejemplo de como lo haces tú y si me puedes decir sobre que DBMS lo ejecutas.

Gracias.

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

Empezado por erian96

...me podrías postear un ejemplo de como lo haces tú y si me puedes decir sobre que DBMS lo ejecutas.

Yo en mi caso he utilizado ADO con SQL Server. Depende del proveedor, por ejemplo ADO con MDB (Jet4) no permite esta característica.
Alado una sentencia del estilo a esta:

Código SQL [-]
select * from tabla1
select * from tabla2
select * from tabla3

Para ejecutarla se hace normal:

Código Delphi [-]
  ADOQuery1.Open;

Para cambiar al siguiente DataSet (por ejemplo si lo estás viendo en un Grid) serñía así:

Código Delphi [-]
var
  n:Integer;
begin
  // Creas un nuevo recordset
  FRecordSet := TADODataSet.Create(nil);
  // Pasas al siguiente
  FRecordSet.Recordset := ADOQuery1.NextRecordSet(n);
  // cambias la fuente de datos del DBGrid
  DBGrid1.DataSource.DataSet := FRecordSet;
  // ...

[erian96]

Neftali, muchas gracias por tu última respuesta. Trataré de adecuar tu solución a mi problema.

He leido por ahí de un componente TSQLProcessor del mismo paquete Zeos probaré con él aunque creo q no me será de mucha ayuda debido a que mis sentencias son llamadas a procedimientos almacenados y de selección de datos.

Gracias de nuevo.

[[AzidRain]]

El ZSQLProcessor te sirve mas que nada para correr scripts SQL, es decir, series de sentencias que no precisamente regresan datos. Por otro lado Tienes
ZSQLStoredProc, que precisamente ejecuta procedimientos almacenados. Este componente se comporta como un Dataset y puedes manipularlo casi igual. Para el ejemplo que pusiste yo creo que si te sirve...revisalo