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 Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #21  
Antiguo 26-01-2015
maxzama maxzama is offline
Miembro
NULL
 
Registrado: jun 2011
Posts: 126
Poder: 13
maxzama Va por buen camino
Gracias a todos, por su ayuda.

por fin:

Codigo Final(con elegancia,jaja):

begin
with Dmodulo.RegistroMadre2 do
begin
SQL.Clear ;
SQL.Add('select * from RegistroMadre ');
Open;
First;
while not Dmodulo.RegistroMadre2.Eof do
begin
with Dmodulo do
begin
Dias_Madre_I.SQL.Text:=Dmodulo.Dias_M_I.InsertSQL.Text;
Dias_Madre_I.ParamByName('CEDULA').AsString:=DMODULO.RegistroMadre2.FieldByName('Cedula').AsString;
Dias_Madre_I.ExecSQL;
Dias_Madre_I.SQL.Text:=('select * from RegistroMadre ');
SHOWMESSAGE('A sido Insertado');
end;
Dmodulo.RegistroMadre2.Next;
end;
Dmodulo.ibt.Commit;
end;
end;

Última edición por maxzama fecha: 26-01-2015 a las 20:40:43.
Responder Con Cita
  #22  
Antiguo 26-01-2015
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.022
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Recuerda poner los tags al código fuente, ejemplo:



Gracias


Código Delphi [-]
begin
    with Dmodulo.RegistroMadre2 do
      begin
          SQL.Clear ;
          SQL.Add('select * from RegistroMadre ');
          Open;
          First;
          while not Dmodulo.RegistroMadre2.Eof do
             begin
                 with Dmodulo do
                 begin
                     Dias_Madre_I.SQL.Text:=Dmodulo.Dias_M_I.InsertSQL.Text;
                     Dias_Madre_I.ParamByName('CEDULA').AsString:=DMODULO.RegistroMadre2.FieldByName('Cedula').AsString;
                     Dias_Madre_I.ExecSQL;
                     Dias_Madre_I.SQL.Text:=('select * from RegistroMadre ');
                     SHOWMESSAGE('A sido Insertado');
                 end;
              Dmodulo.RegistroMadre2.Next;
          end;
          Dmodulo.ibt.Commit;
      end;
end;
Responder Con Cita
  #23  
Antiguo 26-01-2015
maxzama maxzama is offline
Miembro
NULL
 
Registrado: jun 2011
Posts: 126
Poder: 13
maxzama Va por buen camino
No me salio la opcion de Resaltar sintaxis delphi.

Pero gracias, por decirlo...
Responder Con Cita
  #24  
Antiguo 26-01-2015
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.022
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por maxzama Ver Mensaje
No me salio la opcion de Resaltar sintaxis delphi.
Pero gracias, por decirlo...
Sí, seguramente se produjo un alineamiento de Venus con Marte y por eso no te salió
Responder Con Cita
  #25  
Antiguo 26-01-2015
maxzama maxzama is offline
Miembro
NULL
 
Registrado: jun 2011
Posts: 126
Poder: 13
maxzama Va por buen camino
jaja, si. esta bueno...

cuando le doy editar. no sale la imagen de Resaltar sintaxis delphi.
Responder Con Cita
  #26  
Antiguo 27-01-2015
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.022
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por maxzama Ver Mensaje
jaja, si. esta bueno...
cuando le doy editar. no sale la imagen de Resaltar sintaxis delphi.
Debes hacerlo cuando estás escribiendo el mensaje.
Si lo estás editando, creo que tienes el botón "Ir a avanzado"
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
error al restauarar una bases de datos en ibexpert alexglez1255 Firebird e Interbase 9 21-03-2014 01:56:13
error al crear base de datos en ibexpert martita Firebird e Interbase 9 11-06-2011 00:56:40
tipos de datos en ibexpert omitraz Conexión con bases de datos 9 24-06-2010 20:36:00
Error al crear base de datos con IBExpert pepitu Firebird e Interbase 3 04-12-2007 19:16:22
como pasar informacion de ibexpert a access Nelly Varios 1 05-04-2006 10:38:51


La franja horaria es GMT +2. Ahora son las 14:11:48.


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