Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 09-04-2008
Dark_RavenM Dark_RavenM is offline
Miembro
 
Registrado: dic 2007
Posts: 25
Poder: 0
Dark_RavenM Va por buen camino
ERROR lob locators cannot span transactions

Hola a todos tengo este codigo en delphi 6

procedure TForm1.Button1Click(Sender: TObject);
var
cont:integer;
begin
query1.Close;
IF OpenPictureDialog1.Execute THEN
begin
IF NOT QUERY1.Active THEN QUERY1.Open;
if QUERY1.State in [dsBrowse] then
begin
QUERY1.Insert;
QUERY3.Close;
QUERY3.sql.Clear;
QUERY3.SQL.Add('SELECT COUNT(*) CONT FROM IMAGENES');
QUERY3.OPEN;
cont:=QUERY3.FieldByName('CONT').AsInteger;
QUERY1NOIMAGEN.AsInteger :=cont+1;
QUERY1IMAGEN.LoadFromFile(OpenPictureDialog1.FileName);
QUERY1NUMPARTE.AsString:='Prueba'+IntToStr(cont+1);
QUERY1.Post;
QUERY1.ApplyUpdates;
end;
end
ELSE
SHOWMESSAGE('Se Cancelo Carga de Archivo');
end;

lo que hace es insertar una imagen a una tabla llamada imagenes en un campo blob de oracle 8i y me marca este error lob locators cannot span transactions

lo que hice fue
procedure TForm1.Button1Click(Sender: TObject);
var
cont:integer;
begin
query1.Close;
IF OpenPictureDialog1.Execute THEN
begin
IF NOT QUERY1.Active THEN QUERY1.Open;
if QUERY1.State in [dsBrowse] then
begin
Database1.StartTransaction;
QUERY1.Insert;
QUERY3.Close;
QUERY3.sql.Clear;
QUERY3.SQL.Add('SELECT COUNT(*) CONT FROM IMAGENES');
QUERY3.OPEN;
cont:=QUERY3.FieldByName('CONT').AsInteger;
QUERY1NOIMAGEN.AsInteger :=cont+1;
QUERY1IMAGEN.LoadFromFile(OpenPictureDialog1.FileName);
QUERY1NUMPARTE.AsString:='Prueba'+IntToStr(cont+1);
QUERY1.Post;
QUERY1.ApplyUpdates;
Database1.Commit;
end;
end
ELSE
SHOWMESSAGE('Se Cancelo Carga de Archivo');
end;

agregarle que empesara una transaccion y que le diera commit y ya no marca el error pero solo puedo insertar 1 registro y los demas se insertan pero sin la imagen que estoy seleccionando, alguien tiene alguna idea de como hacerlo?
Responder Con Cita
Respuesta


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
Hacer Transactions con ADO+MyODBC ? tcp_ip_es MySQL 1 19-12-2007 10:42:55
dbexpress ADO Transactions JOTAAB Conexión con bases de datos 0 28-04-2006 18:37:30
Transactions Firebird Abel Garcia Firebird e Interbase 2 31-01-2006 22:46:57
wait transactions con DBE Ivanzinho Firebird e Interbase 3 15-10-2005 17:03:52


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


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