大对象的插入: INSERT INTO BLOBTes (BLOBName, BLOBData) SELECT 'First test file', BulkColumn FROM OPENROWSET( Bulk 'D:\test.jpg', SINGLE_BLOB) AS BLOB
delphi example: var MS: TMemoryStream; begin if not (ClientDataSet1.State in [dsInsert, dsEdit]) then ClientDataSet1.Insert; MS := TMemoryStream.Create(); try Image1.Picture.Bitmap.SaveToStream(MS); ClientDataSet1Images.LoadFromStream(MS); finally MS.Free; end; ClientDataSet1.Post; ... var MS: TMemoryStream; begin MS := TMemoryStream.Create; try SQLDataSet1Images.SaveToStream(MS); Image1.Picture.Bitmap.LoadFromStream(MS); finally MS.Free; end; end;
INSERT INTO BLOBTes (BLOBName, BLOBData)
SELECT 'First test file', BulkColumn
FROM OPENROWSET(
Bulk 'D:\test.jpg', SINGLE_BLOB) AS BLOB
delphi example:
var
MS: TMemoryStream;
begin
if not (ClientDataSet1.State in [dsInsert, dsEdit]) then
ClientDataSet1.Insert;
MS := TMemoryStream.Create();
try
Image1.Picture.Bitmap.SaveToStream(MS);
ClientDataSet1Images.LoadFromStream(MS);
finally
MS.Free;
end;
ClientDataSet1.Post;
...
var
MS: TMemoryStream;
begin
MS := TMemoryStream.Create;
try
SQLDataSet1Images.SaveToStream(MS);
Image1.Picture.Bitmap.LoadFromStream(MS);
finally
MS.Free;
end;
end;