高分求oracle数据和文件之间的互转的详细源码！急！(200分)

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #21

其实难易程度是 1 3 2这样排的，2是最麻烦的一种办法
如果觉得用IMP EXP不爽的话，那你就用本地数据库文件吧
直接用SQL从ORACLE中取得数据，再插入到你的本地数据库中
也是一样达到了你的备份目的，肯定比你自己写文件来得简单。

 

V

victornb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #22

可是不行呀！一定要是第二种方法！文件我要传到网络上的另一台机的！
不仅仅是备份的问题！

 

Y

yeath

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #23

你是先存到本地数据库上，这跟你自己写文件不是一样的，自己写文件更麻烦。
这是最方便的、在你的本地数据库文件中放多个表。

 

V

victornb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #24

不行，已经确定要用这种方式了！[]

 

V

victornb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #25

[][][]分还不多吗？

 

Y

yeath

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #26

说了，用本地数据库，实现的效果不是一样，有简单方法不用，偏要走。。。。。
随你吧!

 

特

特尔斐

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #27

应该不难吧！自定义一个文件格式，用流进行读写就行了。只是老兄只要源码，恐怕没时间
写那吗多啊。上面诸位已经讲得够多了，综合一下，自己编吧。[8D]

 

V

victornb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #28

只是需要Varchar2、Date、blob、Number、..转换成二进制写文件和读回数据库的例子，
还望指教！
不能转成本地库！我是要用来网络传输的！

 

Y

yeath

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #29

哎，你这个人真是死脑筋，你存成本地数据库，照样是一个文件，照样可以转啊!!!
I 服了 YOU

 

V

victornb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #30

哈哈，早说呀，贴些代码看看，如何导入和导出，分就全是你的啦！！[]

 

张

张鸿林

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #31

真麻烦，用TBacthMove不就得了

 

V

victornb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #32

不能贴些代码出来吗？[]

 

Y

yangzhengling

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-12

• #33

type
JG=record
A:string[10];
B:integer;
C:TDateTime;
D:String[10];
//c:TblobStream;
//C:TStream;
end;
var
m:tfilestream;
i:JG;
begin
try
i.a := 'abcdefg';
i.b := 200000;
i.C := NOW;
i.D := 'xxx.jpg';
m:=tfilestream.create('xxx.dat',fmOpenWrite);//fmCreate);//fmopenread);
m.seek(80,0);
m.write(i,sizeof(JG));
showMessage(IntToStr(Sizeof(JG)));


finally
m.Free;
end;

 

Y

yangzhengling

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-12

• #34

var
A:TJPEGImage;
B:TStream;
m:TFileStream;
begin
a.Create;
a.LoadFromFile('');
a.SaveToStream(b);
m.Write(b,Sizeof(B));

 

V

victornb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-12

• #35

多人接受答案了。