怎么才能把一个*.db文件转换成Excel文档
7个回答
展开全部
你点击重命名,就可以。或者你新建一个文件命名成xxx.db,在吧里面的内容复制进去。db是数据库里的文件,什么plsql,oracl的编辑的
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
var
xlapp, sheet : variant;
i :integer;
try
xlapp := createoleobject('excel.application');
except
showmessage('not found excel in your system, so can not create file!');
exit;
end;
filename :='tmp.xls';
xlapp.workbooks.add;
sheet := xlapp.workbooks[1].worksheets[1];
i :=1;
while not qry_Rep.Eof do
begin
sheet.cells[i,1].value :=qry_Rep.FieldValues['id'];
sheet.cells[i,2].value :=qry_Rep.FieldValues['name'];
sheet.cells[i,3].value :=qry_Rep.FieldValues['info'];
sheet.cells[i,4].value :=qry_Rep.FieldValues['directory'];
sheet.cells[i,5].value :=qry_Rep.FieldValues['id'];
sheet.cells[i,6].value :=qry_Rep.FieldValues['parentid'];
i :=i+1;
qry_Rep.Next;
end;
xlapp.Columns.AutoFit;
sheet.Saveas(filename);
xlapp.quit;
xlapp:=unassigned;
其中:qry_rep是查询的数据集(query)
xlapp, sheet : variant;
i :integer;
try
xlapp := createoleobject('excel.application');
except
showmessage('not found excel in your system, so can not create file!');
exit;
end;
filename :='tmp.xls';
xlapp.workbooks.add;
sheet := xlapp.workbooks[1].worksheets[1];
i :=1;
while not qry_Rep.Eof do
begin
sheet.cells[i,1].value :=qry_Rep.FieldValues['id'];
sheet.cells[i,2].value :=qry_Rep.FieldValues['name'];
sheet.cells[i,3].value :=qry_Rep.FieldValues['info'];
sheet.cells[i,4].value :=qry_Rep.FieldValues['directory'];
sheet.cells[i,5].value :=qry_Rep.FieldValues['id'];
sheet.cells[i,6].value :=qry_Rep.FieldValues['parentid'];
i :=i+1;
qry_Rep.Next;
end;
xlapp.Columns.AutoFit;
sheet.Saveas(filename);
xlapp.quit;
xlapp:=unassigned;
其中:qry_rep是查询的数据集(query)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询