![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
|
|
#1
|
||||
|
||||
|
He unido el hilo que has creado con este porque es el mismo asunto.
Saludos.
__________________
La otra guía de estilo | Búsquedas avanzadas | Etiquetas para código | Colabora mediante Paypal |
|
#2
|
|||
|
|||
|
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;
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. |
![]() |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
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 |
|