Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 29-01-2006
Fita Fita is offline
Miembro
 
Registrado: jul 2003
Ubicación: Pilar - Argentina
Posts: 218
Poder: 23
Fita Va por buen camino
Thumbs up

Bueno, crear un Stored Procedure es fácil... aqui va el código

CREATE PROCEDURE TOT_FAMILY
RETURNS (
NTOTAL INTEGER)
AS

begin
SELECT COUNT(*) FROM FAM000 where marcabaja = 'A' INTO nTotal;
end

Este procedimiento devuelve el total de familias activas (marcabaja = 'A') que lo guarda en la variable nTotal
En tu form pegas un componente IBTransction y un Componente IBStoredProcedure. Enlazas este último a la transaccion.
En la propiedad StoredProcedureName pones eso, el nombre del procedimiento, en este ejemplo Tot_Family

Para ejecutar el Stored Procedure haces esto en algun ciclo de tu programa:

IBStoredProc1.ExecProc; // ejecutas el procedure en el servidor
nRows := IBStoredProc1.Params.Items[0].Value;

La variable nRows recibe el total de registros que conto el Stored Procedure.
Si el Stored Procedure tuviese mas variables las sentecias que traen los datos serian así:
nRows := IBStoredProc1.Params.Items[0].Value;
nRows2 := IBStoredProc1.Params.Items[1].Value;
nRows3 := IBStoredProc1.Params.Items[2].Value;

Para mantener la base de datos te recomiendo usar (si es que no utilizas) un administrador de bases de datos ya que la creacion de Procedures, Tablas, Vistas, es es visual. Hay muchos y muy buenos, a saber:

IBWorkbench, IBAdmin, EMS Interbase & Firebird Manager (son pagos) y una buena cantidad de uso libre y Open Source.

En mi caso uso el EMS que es muy completo y ademas soporta Firebird al que pienso migrar en el futuro.

Espero que te sirva como punto de partida.
Saludos
Responder Con Cita
  #2  
Antiguo 30-01-2006
Avatar de sierraja
sierraja sierraja is offline
Miembro
 
Registrado: sep 2004
Posts: 281
Poder: 22
sierraja Va por buen camino
Smile Buen punto de partida

Hola FITA, realmente para mi es un muy buen punto de partida, realmente muchísimas gracias.
Responder Con Cita
  #3  
Antiguo 01-02-2006
Avatar de sierraja
sierraja sierraja is offline
Miembro
 
Registrado: sep 2004
Posts: 281
Poder: 22
sierraja Va por buen camino
Todo Perfecto

Buenos días, la verdad es que me ha costado bastante ya que es mi primera aplicacion de este tipo, lógicamente me tocó aprender primero el manejador IBExpert luego todos sus procesos principales y bastante SQL, hasta que por fin conseguí hacer la recomendación de FITA y funcionó perfectamente. FITA Muchas Gracias
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
IBDataSet no asigna valores a las variables de campo gendelphi Conexión con bases de datos 2 31-01-2006 02:23:11
Que Le Pasa Al Dbgrid JULIPO MySQL 3 25-01-2006 16:45:15
Como Ligar Dbgrid A Ibdataset? ibuser Firebird e Interbase 5 26-08-2004 18:07:05
Relacion de tablas con DBGrid TONIAM Conexión con bases de datos 0 15-04-2004 11:46:49
diferencia entre un DBGrid y un DBCtrlGrid ronson OOP 4 18-02-2004 21:03:39


La franja horaria es GMT +2. Ahora son las 19:00:15.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi