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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 28-07-2010
stand stand is offline
Registrado
 
Registrado: jul 2010
Posts: 1
Poder: 0
stand Va por buen camino
actualizar registros

Hola, disculpen estoy haciendo una pequeña aplicacion que esta conectada a una base de datos, en el que la actualizacion de resgristros es la siguiente

Código SQL [-]
with DataModule2.query1.SQL do
          begin

            DataModule2.query1.SQL.Clear;
            DataModule2.query1.SQL.Add ('UPDATE Cliente  SET Nombre_cliente=:nc,Apellidos_cliente=:ac,Direccion_cliente=:dc,Telefono_cliente=:tc');
            DataModule2.query1.SQL.Add ('WHERE Id_cliente=:ic');

         
                DataModule2.query1.ParamBYName('ic').AsInteger := StrToInt(edit1.text);
             
            DataModule2.query1.ParamByName('nc').AsString := edit2.text;
            DataModule2.query1.ParamBYNAme('ac').AsString := edit3.text;
        DataModule2.query1.ParamByname('tc').AsInteger := StrToInt(edit4.text);        
            DataModule2.query1.ParamByName('dc').AsString :=edit5.text;
          
           
            DataModule2.query1.ExecSQL;
      
       end


aqui se actualizan los campos de nombre cliente, apellido,telefono, y direccion, con el id del cliente. Al momento de la ejecucion me sale un error interno de automatizacion Ole, me podrian decir que es lo que esta mal, estan mal las sentencias?
Responder Con Cita
  #2  
Antiguo 28-07-2010
Avatar de olbeup
olbeup olbeup is offline
Miembro
 
Registrado: jul 2005
Ubicación: Santiago de la Ribera (España)
Posts: 685
Poder: 20
olbeup Va camino a la fama
para que quiere poner el DataModule2 dentro de un with sino lo utilizas para nada.
Cita:
with DataModule2.query1.SQL do
begin

DataModule2.query1.SQL.Clear;
DataModule2.query1.SQL.Add ('UPDATE Cliente SET Nombre_cliente=:nc,Apellidos_cliente=:ac,Direccion_cliente=:dc,Telefono_cliente=:tc');
DataModule2.query1.SQL.Add ('WHERE Id_cliente=:ic');


DataModule2.query1.ParamBYName('ic').AsInteger := StrToInt(edit1.text);

DataModule2.query1.ParamByName('nc').AsString := edit2.text;
DataModule2.query1.ParamBYNAme('ac').AsString := edit3.text;
DataModule2.query1.ParamByname('tc').AsInteger := StrToInt(edit4.text);
DataModule2.query1.ParamByName('dc').AsString :=edit5.text;


DataModule2.query1.ExecSQL;

end
Mira esto si esta mejor, y si no te funciona es por que algo tiene mal anterior a esto.
Código Delphi [-]
with DataModule2.Query1 do
begin
  SQL.Clear;

  SQL.Add ('UPDATE Cliente');
  SQL.Add ('  SET');
  SQL.Add ('    Nombre_cliente     = :nc');
  SQL.Add ('    ,Apellidos_cliente = :ac');
  SQL.Add ('    ,Direccion_cliente = :dc');
  SQL.Add ('    ,Telefono_cliente  = :tc');
  SQL.Add ('  WHERE Id_cliente = :ic');

  ParamByName('ic').AsInteger := StrToInt(Edit1.Text);
  ParamByName('nc').AsString  := Edit2.Text;
  ParamByName('tc').AsInteger := StrToInt(Edit4.Text);
  ParamByName('dc').AsString  := Edit5.Text;

  ExecSQL;
end;
Un saludo.

P.D.: La belleza de escribir código delphi es que se entienda lo que escribes y saber por donde te has quedado.
Responder Con Cita
  #3  
Antiguo 29-07-2010
Avatar de Axel_Tech
Axel_Tech Axel_Tech is offline
Miembro
 
Registrado: nov 2008
Ubicación: lugar en que está ubicado algo.
Posts: 85
Poder: 16
Axel_Tech Va por buen camino
También por si acaso asegúrate que los tipos de datos de los parámetros son iguales que los campos de la tabla que le haces el update.
__________________
No hope, no dreams, no love, my only escape is Underground
Responder Con Cita
Respuesta



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
actualizar registros pabloloustau Conexión con bases de datos 3 19-06-2010 21:40:39
Actualizar registros de dos tablas lKinGl Conexión con bases de datos 31 01-04-2008 21:09:58
actualizar 100 registros al tiempo Camilo Varios 2 22-06-2007 20:08:29
Actualizar Registros drkvergil Firebird e Interbase 3 12-09-2006 19:33:54
Eliminar y actualizar registros con SQL Jheysson13 SQL 3 28-07-2006 23:32:01


La franja horaria es GMT +2. Ahora son las 00:55:23.


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