Lenguaje: Pascal ( Delphi 7)

Este es un procedimiento que muestra la forma en la que se llama precisamente un procedimiento almacenado en MySQL 5 y se invoca sin los componentes habituales para aprovechar una conexión ADO

(Nota: utilice un DataModule, con un componente de conexion en ADO pero tambien se puede naturalmente realizar al vuelo)

procedure tprincipal.actualiza_importe_impuestos(oficina:string);

var sqlBorrar,sqlInsertarImporte,conexion,c:string;

borrar:TADOQuery;

begin

c:='''';

sqlInsertarImpo:=' CALL basededatos.Genera_Impuestos("'+oficina+'",sysdate()); ';

CONEXION := 'Provider=MSDASQL.1;Extended Properties="DRIVER={MySQL ODBC 5.1 Driver};DESC=;DATABASE=basededatos;SERVER=localhost;UID=elusuario;PASSWORD=tupassword;PORT=;SOCKET=;OPTION=16427;STMT=;"';

dm.adocon.connected:=false;

 dm.adocon.connectionString:=CONEXION;

 dm.adocon.connected:=true;

Borrar:= TADOQuery.Create(nil);

   Borrar.Connection:=dm.adocon;

      Borrar.SQL.Text := sqlInsertarImpo;

      Borrar.execSQL;

      Borrar.Close;

      Borrar.Free;

dm.adocon.connected:=false;

/* Despues de esto hago mas cosas que no publique :P*/

end;