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

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 20-01-2006
alfil123 alfil123 is offline
Miembro
 
Registrado: nov 2005
Posts: 116
Poder: 21
alfil123 Va por buen camino
re

si comento todo el evento no se pruduce el error,


esta es la consulta para guardar

Código Delphi [-]
procedure TMantenimiento_Docente.ToolButton2Click(Sender: TObject);
begin
  inherited;
  if (LabeledEdit2.text='') or (LabeledEdit3.text='') or (LabeledEdit4.text='') or (LabeledEdit5.text='') or (LabeledEdit6.text='') or (LabeledEdit7.text='') or (LabeledEdit8.text='')or (LabeledEdit9.text='')
  then
  begin
  showmessage('le falta completar los campos');
  exit;
       end;
ADOQuery1.Close;
ADOQuery1.sql.Clear;
ADOQuery1.SQL.Add('select *');
ADOQuery1.SQL.Add('from Docente');
ADOQuery1.open;
  ADOQuery1.Append;
  // ADOQuery1.FieldByName('id_Docente').asstring:= LabeledEdit1.text;
ADOQuery1.FieldByName('Nombres').asString:= LabeledEdit2.text;
ADOQuery1.fieldbyname('ap').asString:= LabeledEdit3.text;
ADOQuery1.fieldbyname('am').asString:= LabeledEdit4.text;
ADOQuery1.fieldbyname('Dni').asstring:= LabeledEdit5.text;
ADOQuery1.fieldbyname('direccion').asString:= LabeledEdit6.text;
ADOQuery1.fieldbyname('telefono').asString:= LabeledEdit7.text;
ADOQuery1.fieldbyname('Especialidad').asString:= LabeledEdit8.text;
ADOQuery1.fieldbyname('Area').asString:= LabeledEdit9.text
    ADOQuery1.post;
         ADOQuery1.close;
         LabeledEdit2.text:='';
         LabeledEdit3.text:='';
         LabeledEdit4.text:='';
         LabeledEdit5.text:='';
         LabeledEdit6.text:='';
         LabeledEdit7.text:='';
         LabeledEdit8.text:='';
         LabeledEdit9.text:='';
         showmessage('sea agregado un nuevo docente ');

end;

y esta es la consulta de creacion del form

Código Delphi [-]
procedure TMantenimiento_Docente.FormShow(Sender: TObject);
begin
  inherited;
ADOQuery1.close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.add('Select* from DOCENTE');
   ADOQuery1.Open;
end;
procedure TMantenimiento_Docente.Formcreate(Sender: TObject);
begin
  inherited;
ADOQuery1.close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.add('Select* from DOCENTE');
   ADOQuery1.Open;
end;
grasias por su tiempo

Última edición por delphi.com.ar fecha: 20-01-2006 a las 19:19:00. Razón: Agregué las etiquetas [DELPHI]
Responder Con Cita
 


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
Problemas con Base de Datos i_gauss C++ Builder 2 16-01-2006 11:02:50
Como conectar base de datos SQL SERVER con Delphi 5 olbeup Conexión con bases de datos 4 05-08-2005 14:38:45
Problemas al restaurar Base de Datos JMOTON Firebird e Interbase 1 25-02-2004 17:46:01
seleccion de base de datos sebas Conexión con bases de datos 2 12-07-2003 22:52:59
problemas con la base de datos superhopi Conexión con bases de datos 1 19-05-2003 09:47:58


La franja horaria es GMT +2. Ahora son las 05:42:08.


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