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

Conexión con bases de datos

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 29-06-2005
(VIH)Lestat (VIH)Lestat is offline
Miembro
 
Registrado: abr 2005
Posts: 95
Poder: 22
(VIH)Lestat Va por buen camino
jajaj ok roman aqui te pongo el codigo que utilizo para almacenar los 2 datos en una tabla llamada IBTgrupos_al..

[CODE delphi]
procedure Tcrear_grupo.alumnosDblClick(Sender: TObject);

var nombre_grupo:string;


begin

nombre_grupo:=crear_grupo.clave_grupo.Text; //Asigna el nombre del Grupo a la variable

if nombre_grupo<>'' then //Compara si el nombre del grupo fue proporcionado
begin
//pasa los parametros desde el DBGrid y almacena los datos

ModuloSID.IBQalm_grupos.Params[0].AsString:=nombre_grupo;
ModuloSID.IBQalm_grupos.Params[1].AsString:=alumnos.Fields[0].AsString;
ModuloSID.IBQalm_grupos.ExecSQL;

application.CreateForm(Tinfo_grupo, info_grupo); //Abre el mensage para indicar que el alumno ha sido almacenado en el grupo
info_grupo.label1.Caption:='El alumno con la Matricula ' + alumnos.Fields[0].AsString + ' ha sido inscrito en el Grupo ' + crear_grupo.clave_grupo.Text;

//Se limpia el registro que fue almacenado
alumnos.EditorMode:=true;
alumnos.Fields[0].AsString:='';
alumnos.Fields[1].AsString:='';
alumnos.Fields[2].AsString:='';
alumnos.Fields[3].AsString:='';
alumnos.Fields[4].AsString:='';
alumnos.Fields[5].AsVariant:='';
alumnos.Fields[6].AsString:='';
alumnos.Refresh; //se actualiza el DBGRid

end
else
begin
showMessage('Necesita indicar el nombre del Grupo');
ModuloSID.IBQsel_alum.Cancel;
end;

//Se cierra y abre la tabla para actualizar valores

ModuloSID.IBTgrupos_al.Close;
ModuloSID.IBTgrupos_al.Open;

ModuloSID.IBQalm_grupos.Close;


end;
[/code]
en donde nombre_grupo es la variable que almacena el nombre del grupo el cual va a hacer insertado en la tabla "IBTgrupos_al", "IBQalm_grupos" es el SQL que almacena los 2 valores en la tabla estos 2 valores los estoy pasando por parametros.... "MODULOSID" es el modulo de datos,

El error que me sale dice: "Not in EDIT MODE" pero no me dice que componente no esta en modo de edicion.. sera el DBgrid???'
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


La franja horaria es GMT +2. Ahora son las 16:45:01.


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