如何将OLEVariant用ADO保存到SQL数据库 ( 积分: 50 )

B

BusinessPower

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-04

• #1

如何将OLEVariant用ADO保存到SQL数据库???

 

B

BusinessPower

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-04

• #2

如何将OLEVariant用ADO保存到SQL数据库???

 

G

gooodlife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-04

• #3

http://www.delphibbs.com/delphibbs/dispq.asp?lid=3154452

看看这个连接.. 可不可以解决你的问题了..........

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-04

• #4

ClientDataSet1.Data := OLEVariant;
While Not ClientDataSet1.Eof do ...

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-04

• #5

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1797955
在delphi中怎样使用ADO的AppendChunk写SQL Server BLOB字段
看看这个吧？？？

 

C

chenybin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-06

• #6

var
v: OleVariant;
begin
adoquery1.FieldByName('xxx').AsVariant := v;
end;

看看行不行，你在更新的时候

 

B

BusinessPower

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-08

• #7

TO:chenybin
之前我用的就是这个方法!存储的结果不正确,

 

C

chenybin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-08

• #8

存的结果不正确还是你读取不正确？

你把完整的代码贴出来看看

 

C

chenybin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-08

• #9

你是想存WORD的内容什么的吗？

 

H

hboh1981

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-08

• #10

你想保存成什么类型的?字符的可用vartostr 这个函数转换一下

 

B

BusinessPower

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-08

• #11

TVarData(globalvt).VType := varByRef or varByte;
if (not (TVarData(gLobalvt).VPointer = nil)) then
begin
FreeMem(TVarData(globalvt).VPointer);
TVarData(globalvt).VPointer := nil;
end;

gDocSize := OC.DocSize;
TVarData(globalvt).VPointer := AllocMem(gDocSize);
OC.SaveToVariant(globalvt);

OC是打开WORD文件的控件,
他有方法将文件存到globalvt中
gLobalvt: OLEVariant;
gDocSize: Longint;
我如何将gLobalvt这个变量的内容存到数据库的FIEL(IMAGE字段格式) 中!!!
救 命啊......................

 

C

chenybin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-08

• #12

我觉得还是直接通过流的方式

oc.savetostream(ms)

adoblobstream

 

C

chenybin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-08

• #13

保存：

var
str:TMemoryStream;
begin
str:=TMemoryStream.Create();
table1.edit;
OleContainer1.SaveToStream(str);
TBlobField(table1.fieldbyname('f4')).LoadFromStream(str);
table1.Post;
str.Free;
end;

装入：

var
str:TBlobStream;
begin
str:=TBlobStream.Create(TBlobField(table1.fieldbyname('f4')),bmRead);
OleContainer1.LoadfromStream(str);
str.Free;
end;

 

B

BusinessPower

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-08

• #14

oc.savetostream 没有这个方法

 

C

chenybin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-08

• #15

OleContainer1.SaveToStream();