Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > MS SQL Server
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 24-08-2017
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.048
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
He unido el hilo que has creado con este porque es el mismo asunto.
Saludos.
Responder Con Cita
  #2  
Antiguo 25-08-2017
LIGERO LIGERO is offline
Miembro
 
Registrado: jun 2007
Posts: 42
Poder: 0
LIGERO Va por buen camino
He reestructurado un poco el diseño, no por nada sino por dejarlo todo mas ordenado.
He creado un DataModule y en el procedimiento donde aplico cambios he cerrado y abierto conexión.

Código:
procedure TDM.Aplicar;
begin
  SQLConnection1.Close;
  SQLConnection1.Open;
  if not (ClientDataSet1.State = dsInsert) then
        ClientDataSet1.Edit;
  ClientDataSet1.Post;
  if (ClientDataSet1.ChangeCount > 0) then
        ClientDataSet1.ApplyUpdates(-1);
  ClientDataSet1.Close;
  ClientDataSet1.Open;
end;
Primero localizo el registro y lo muestro.
A partir de ahí, busco la imagen y la cargo en el dbimage

Código:
procedure TForm1.CargarImageClick(Sender: TObject);
begin
  IrARegistroClick(Sender);
  if OpenPictureDialog1.Execute then
  begin
    if not (DM.ClientDataSet1.State = dsInsert) then
        DM.ClientDataSet1.Edit;

    if (ANSIUpperCase(ExtractFileExt(OpenPictureDialog1.FileName)) = '.JPG')
        or (ANSIUpperCase(ExtractFileExt(OpenPictureDialog1.FileName)) = '.JPEG') then

      dbImage1.Picture.Bitmap := ConvertJPG2BMP(OpenPictureDialog1.FileName )

    else
      dbImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
  end;
end;

Y ahora ya si puedo aplicar los cambios sin que se produzca el error
Gracias a los que habéis contestado o seguido este hilo.
Lo doy por cerrado.
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
Grabar DVD de datos jandro Varios 10 01-04-2012 13:21:32
Grabar datos a tablas access Aprendiendo Varios 8 24-01-2007 15:07:04
No se actualizan los datos al grabar marcial Conexión con bases de datos 4 25-05-2006 11:04:29
grabar datos de un memo @-Soft Conexión con bases de datos 8 16-08-2003 10:01:49
grabar datos en visual dbase botones67 Varios 1 19-07-2003 08:40:42


La franja horaria es GMT +2. Ahora son las 02:15:28.


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