.dat呀,就是文件操作也可以完成的呀; Unit... interface uses ... type //在这里定义你的存放房屋的记录,如果你知道数据库的结构就不用定义了; pro... var f:textfile of TYourrecord; begin query1.close; query1.sql.clear; query1.sql.add('..'); query1.sql.open; assingfile(f,'userdat.dat') reset(f); try while not eof (f) do begin query1.append;//query1.inster; query1.fieldbyname('a1').asstring:=Yourrecord.a1//与a1对应的 .... query1.post; end; finally closefile(f) end; end;] 这样就可以取出记录到库里边了,不过,你先要配好BDE别名或是ADO连接; 试一试,文件没有损坏,应该能读出来 //如果你知道文件的信息结构,用这种方法; //如果你只知道数据库的结构信息,试着用另一种方法(不用记录就可以了)
如果能连接上,出来的是乱码的话:
可能是你读的结构和.dat的结构不一样;
再者就是加密了
如果这样没有办法,我就不知道;
那么,还要请高手看一看;
我先UP
Unit...
interface
uses
...
type
//在这里定义你的存放房屋的记录,如果你知道数据库的结构就不用定义了;
pro...
var
f:textfile of TYourrecord;
begin
query1.close;
query1.sql.clear;
query1.sql.add('..');
query1.sql.open;
assingfile(f,'userdat.dat')
reset(f);
try
while not eof (f) do
begin
query1.append;//query1.inster;
query1.fieldbyname('a1').asstring:=Yourrecord.a1//与a1对应的
....
query1.post;
end;
finally
closefile(f)
end;
end;]
这样就可以取出记录到库里边了,不过,你先要配好BDE别名或是ADO连接;
试一试,文件没有损坏,应该能读出来
//如果你知道文件的信息结构,用这种方法;
//如果你只知道数据库的结构信息,试着用另一种方法(不用记录就可以了)