L
liu9536
Unregistered / Unconfirmed
GUEST, unregistred user!
代码:
Stream := TMemoryStream.Create;
Jpg := TJpegImage.Create;
Jpg.LoadFromFile(OpenDialog1.FileName);
Jpg.SaveToStream(Stream);
dmDataProd.tblMIGraphic.Insert;
dmDataProd.tblMIGraphic.FieldByName('rkey').AsInteger := GetNextUniqueNumber('seq0040');
dmDataProd.tblMIGraphic.FieldByName('dept_ptr').AsInteger := 0;
dmDataProd.tblMIGraphic.FieldByName('File_Name').AsString := OpenDialog1.Filename;
dmDataProd.tblMIGraphic.FieldByName('Source_pointer').AsInteger := dmDataPublic.qryMgrPNA.FieldByName('rkey').AsInteger;
tmpg := TBlobStream.Create(TBlobField(dmDataProd.tblMIGraphic.FieldbyName('layup_mi')), bmWrite);
Stream.Seek(0, soFromBeginning);
tmpg.CopyFrom(Stream, Stream.Size);
dmDataProd.tblMIGraphic.Post;
出现错误码如下:
“LOB Locators cannot span transactions"
请告诉如何解决!!!!后台是ORACLE
Stream := TMemoryStream.Create;
Jpg := TJpegImage.Create;
Jpg.LoadFromFile(OpenDialog1.FileName);
Jpg.SaveToStream(Stream);
dmDataProd.tblMIGraphic.Insert;
dmDataProd.tblMIGraphic.FieldByName('rkey').AsInteger := GetNextUniqueNumber('seq0040');
dmDataProd.tblMIGraphic.FieldByName('dept_ptr').AsInteger := 0;
dmDataProd.tblMIGraphic.FieldByName('File_Name').AsString := OpenDialog1.Filename;
dmDataProd.tblMIGraphic.FieldByName('Source_pointer').AsInteger := dmDataPublic.qryMgrPNA.FieldByName('rkey').AsInteger;
tmpg := TBlobStream.Create(TBlobField(dmDataProd.tblMIGraphic.FieldbyName('layup_mi')), bmWrite);
Stream.Seek(0, soFromBeginning);
tmpg.CopyFrom(Stream, Stream.Size);
dmDataProd.tblMIGraphic.Post;
出现错误码如下:
“LOB Locators cannot span transactions"
请告诉如何解决!!!!后台是ORACLE