Club Delphi  
    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 Temas de Hoy

Conexión con bases de datos

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 10-12-2013
Avatar de apicito
apicito apicito is offline
Miembro
 
Registrado: may 2003
Ubicación: Ourense
Posts: 341
Poder: 22
apicito Va por buen camino
Novato con DBExpress necesita entender como trabajan

He estado leyendo varios tutoriales sobre DBExpress pero no acabo de entender cual es la dinámica adecuada para trabajar con estos componentes. Sobre un ejemplo de formulario de edición real voy a explicar mis dudas haber si alguien me puede echar una mano para entenderlos.
En el formulario tengo cuatro conjuntos de componentes DBExpress, compuestos cada uno por TSQLQuery, TDataSetProvider, TClientDataset y TDataSource.
Un conjunto apuntando al registro que quiero editar "Expte" y los otros 3 para rellenar 3 DBLookupComboBox (Tipo,Zona y Estado).
En el onShow del formulario cargo los combos y dependiendo de una variable Modo [ (A) Append y (M) Edit ] edito un registro. Este es el código:
Código Delphi [-]
procedure TAveriasExpteEdit.UniFormShow(Sender: TObject);
begin

   CargaTipos;
   CargaZonas;
   CargaEstados;

   cdsExpte.Close;
   queryExpte.CommandText := 'select * from AVEAVEDIA where AVEDIA_CODIGO=:codigo';
   cdsExpte.Params.ParamByName('codigo').AsInteger := Codigo;
   cdsExpte.Open;
   case Modo of
    'A' : cdsExpte.Append;
    'M' : cdsExpte.Edit;
   end;

end;
y cargo los datos de los combos:
Código Delphi [-]
procedure TAveriasExpteEdit.CargaTipos;
begin
  cdsTipo.Close;
  queryTipo.CommandText :=  'select AVETIP_CODIGO,AVETIP_DESCRIP,AVETIP_ACTIVO '+
                   'from AVEAVETIP where AVETIP_ACTIVO=1 order by AVETIP_DESCRIP';
  cdsTipo.Open;
end;
Cuestiones:
1. Está bien que las operaciones de apertura y cierre se hagan sobre el ClientDataset?
2. El CommandText y la carga de parametros (cdsExpte.Params.ParamByName('codigo').AsInteger := Codigo;) debe aplicarse sobre el TSQLQuery o sobre el clientDataSet?
3. En definitiva, como de correcto es el código que he puesto arriba?:
Un saludo.

Última edición por ecfisa fecha: 10-12-2013 a las 14:59:59. Razón: Quitar carita de código
Responder Con Cita
 



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
Delphi, Indy, SSL Cuales versiones trabajan bien con cuales ?. Como se configuran ? rolandoj Internet 12 23-03-2014 17:07:41
¿Como entender el signo "?" en Java Script? Deiv HTML, Javascript y otros 12 15-12-2006 23:54:23
Stored Procedures, como trabajan? Carlos Hurtado Firebird e Interbase 7 29-12-2005 05:12:05
Entender una sentencia Renees Varios 5 02-09-2005 19:35:01
Novato con DBExpress Esau Conexión con bases de datos 1 06-06-2003 19:43:32


La franja horaria es GMT +2. Ahora son las 01:58:49.


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