Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-01-2012
Avatar de AzidRain
[AzidRain] AzidRain is offline
Miembro Premium
 
Registrado: sep 2005
Ubicación: Córdoba, Veracruz, México
Posts: 2.914
Poder: 21
AzidRain Va camino a la fama
De MySQL a FB (emebebido)

Resulta que por mero trabajo Pro-Bono, estoy haciendo una pequeña aplicación de control de caja para la escuela que dirige mi esposa, nada del otro mundo, solo pasar un libro donde registran lo que ingresa y lo que sale. Como no se necesita gran cosa de recursos pense en usar y ya meterme de una vez a conocer FB, esta vez en su version embebida, pues la idea es que sea portable. Ya he conseguido crear las tablas acostumbrarle a los generadores para los campo autoincrementados y otras cosas que FB usa y que en MySQL daba por sentado.

Uso Zeos para conectarme ya que ya los conozco bastante bien y nunca he tenido problema, el detalle es que de vez en vez me aparecen errores que para un bisogno en FB resulta críptico pero para alguno de los tantos expertos que tenemos por aquí, es algo de risa, ya hasta a pense mejor usar MySQL embebido pero es pago (ya hubiera acabado sin duda).

Os pongo un código y explico mi problema:

Código Delphi [-]
rocedure TFEditarMovimiento.Action1Execute(Sender: TObject);
begin
   with Datos.ZMovimiento do
   begin
     Post;
     Datos.ZMovimiento.CommitUpdates;
   end;
   Close;
end;

procedure TFEditarMovimiento.Action2Execute(Sender: TObject);
begin
  with Datos.ZMovimiento do
   begin
     CancelUpdates;
   end;
   Close;
end;

Function TFEditarMovimiento.Editar(fecha: TDateTime; num_nota: Integer):boolean;
begin
  //Esto esta pendiente por hacer
end;

Function TFEditarMovimiento.Nuevo(tipo: Char):Boolean;
begin


  with Datos.ZMovimiento Do
  Begin
    Open;
    Append;
    if tipo='E' then
    Begin
      Caption := 'Capturar Nuevo Egreso';
      Datos.ZConceptos.ParamByName('tipo').AsString := 'E';
      Datos.ZConceptos.Open;
    End
    else
    Begin
      Caption := 'Capturar Nuevo Ingreso';
      Datos.ZConceptos.ParamByName('tipo').AsString := 'I';
    End;
    Datos.ZConceptos.Open;
    ShowModal;
    Datos.ZConceptos.Close;
    Datos.ZMovimiento.Close;
  End;
  Result := ModalResult = mrOk;
end;

No puse la cabecera dela unidad pq es solo una ventana que abre o agrega un registro de una tabla y los botones (aceptar y cancelar [que disparan Action1 y Action2] son los que en teoría guardan o descartan lo capturado. Utilizo una tabla auxiliar conceptos para mostrar un lookupcombo y elegir de una lista.

El form que llama a su vez a esta solamente espera si le contesta si se modificó o agregó el registro para actualizar una tabla y que aparezca cualquier cambio.

El problema que tengo es que si lo ejecuto digamos "Nuevo" una vez me muestra el form y todo en orden, pero posteriormente si trato de volverlo a ejecutar me aparece "convertion error" justo al momento de ejecutar ZMovimiento.Open. El código con algunos cambios (los commits y eso) lo copie de otro que tengo con MySQL que uso como platilla. A ver si alguien me echa una luz..
__________________
AKA "El animalito" ||Cordobés a mucha honra||
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
C++ y MySQL aams01 C++ Builder 1 27-04-2011 11:34:41
MySQL & Append (Componente DAC MySQL) Bruce MySQL 0 04-03-2011 14:47:30
Sincronizar BD MySQL Hosting con BD MySQL servidor local ivantech MySQL 3 09-03-2010 19:01:07
MySql en la web Carlos Arevalo MySQL 3 05-07-2005 00:11:10
como conectarme remotamente mysql a mysql sakuragi MySQL 14 11-11-2004 15:04:46


La franja horaria es GMT +2. Ahora son las 14:40:15.


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