Ejecutando procedimiento almacenado desde Delphi

Para ejecutar un determinado procedimiento almacenado desde Delphi podemos usar la componente ADOStoreProcedure, que en mi opinión es la mejor opción.

Simplemente tenemos un ADOStoreProcedure en el cual podemos llenar la propiedad ConnectionString directamente con la conexión a la BD ó simplemente en la propiedad Connection le especificamos el ADOConnection que estemos usando, después en la propiedad ProcedureName ponemos el procedimiento almacenado que queremos ejecutar, el cual debe estar previamente programado en la BD.

Ya en tiempo de ejecución en el lugar donde queremos llamar a dicho procedimiento, llenamos los parámetros en caso de que necesite parámetros de entrada de la siguiente manera:

Nombre del ADOStoreProcedure.Parameters [número del parámetro].Value: = Un Valor

Y después lo mandamos a ejecutar:

Nombre del ADOStoreProcedure.ExecProc

En Parameters[0] ó @RETURN_VALUE devuelve:

0: Si se ejecutó correctamente.

Podemos acceder a los parámetros de salida del procedimiento igual que los parámetros de entrada solamente especificando el número del parámetro deseado.

Si solamente estamos interesados en acceder a los parámetros que devuelve nuestro procedimiento podemos simplemente llamar al método Open ó poner la propiedad Active en Trae en vez de llamar al procedimiento ExecProc.

Blogalaxia Tags: Delphi
SQLServer

Redondear numero real en Delphi

Esta es una función para redondear un número real a la cantidad de cifras significativas especificadas al llamar la función, espero les sirva.

function Redondear(numero : real ; cifrasSig : integer) : real;

var

p10 : extended;

begin

{ siendo 2 el caso más frecuente }

if (cifrasSig = 2) then

result := round(numero * 100) / 100

else

begin

p10 := Power(10, cifrasSig);

result := round(numero * p10) / p10;

end;

end;

Blogalaxia Tags: Delphi

Llenando un DBLookupComboBox en Delphi 7

EL DBLookupComboBox nos permite cargar un determinado campo de una tabla como si fuera un ComboBox normal, para esto necesitamos establecer la conexión con la base de datos mediante un ADOConnection, estableciendo los parámetros necesarios para la conexión, además tenemos que utilizar un DataSource y un DBLookupComboBox.

En la propiedad “Connection” del ADOTable especificamos el nombre del ADOConnection creado y en “TableName” el nombre de la tabla de donde queremos recuperar los datos; en la propiedad “DataSet” del DataSource especificamos el nombre del ADOTable que estamos utilizando. Ya en las propiedades del DBLookupComboBox ponemos en “ListSource” el DataSource empleado, en “ListField” el campo que queremos mostrar y en “KeyField” la llave de la tabla de donde sacamos los datos. Por último ponemos la propiedad “Active” del ADOTable en TRUE y tenemos un Combobox con datos recuperados de una tabla de la base de datos.

Blogalaxia Tags: DBLookupComboBox
Delphi

Recuperar datos de BD en Delphi 7

En Delphi usualmente tenemos la necesidad de acceder a los datos que tenemos almacenados en una base de datos, ya sea en Access, en MySql, SQLServer, etc., en este articulo hablaremos de como podemos hacer la recuperación de los datos mediante los componentes de Delphi, tanto una tabla como una consulta previamente definida en la base de datos.

En todos los casos lo primero que hay que crear es la conexión con la BD, esto se logra a través del componente: ADOConnection que esta en la paleta ADO, en la propiedad “ConecctionString” construimos la cadena de conexión para acceder a la BD, definimos aspectos como: servidor donde se encuentra la BD, clave de acceso a la BD y la BD a la cual queremos acceder.

Cargando una tabla en DBGrid

Tendremos que usar los siguientes componentes: ADOTable, DataSource y DBGrid que se encuentran en la paleta: ADO, DataAccess y DataControls respectivamente.

En la propiedad “Conecction” del ADOTable especificamos el ADOConecction que habíamos configurado anteriormente y en “TableName” ponemos el nombre de la tabla que queremos mostrar, en la propiedad “DataSet” del DataSource ponemos el nombre del ADOTable, en la propiedad “DataSourse” del DBGrid ponemos el nombre del DataSource; por ultimo ponemos el “Active” del ADOTable en TRUE.

Cargando una consulta en DBGrid

Lo único que cambia con respecto a lo anterior es que en vez de usar un ADOTable usaremos un ADOQuery, igualmente especificamos el ADOConecction en la propiedad “Conecction” y en la propiedad “Sql” especificamos el código SQL de la consulta que queremos cargar; en la propiedad “DataSet” del DataSource ponemos el nombre del ADOQuery en la propiedad “DataSourse” del DBGrid ponemos el nombre del DataSource y por último ponemos el “Active” del ADOQuery en TRUE.

Agregando un DBNavigator al DBGrid

Para lograr esto solo tenemos que especificar en la propiedad “Datasource” del DBNavigator el mismo nombre del DataSource que usa el DBGrid y ya tenemos un componente para navegar por las filas del DBGrid.

Blogalaxia Tags: Delphi