我的excel中的数据导入进access再转换成interbase的数据库,进行控制?

xiaopan 2001-10-08 09:59:26
怎样将excel中的数据导入进access再转换成interbase的数据库,进行控制?
我是先用access打开excel,再用odbc连接,但是只有数据库,不能形成表格进行控制,怎么办?请指教
...全文
34 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
xiaopan 2001-10-08
up
回复
lizhenjia 2001-10-08
用ole,假设excel文件中有3列
var
eapp,workbook,worksheet:variant;
i,j:integer;
begin
eapp:=createoleobject('excel.application');
eapp.workbooks.open('c:\lzj.xls');
eapp.visible:=false;
workBook:=msexcel.activeworkbook;
worksheet:=workBook.worksheets[1];
for i=1 to worksheet.UsedRange.Rows.Count do
begin
query1.fields[0].value:=worksheet.cells[i,1].value
query1.fields[1].value:=worksheet.cells[i,2].value
query1.fields[2].value:=worksheet.cells[i,3].value
query1.next;
end;
workbook.close;
eapp.quit;
eapp:=unassigned;
end;
随便写的,不一定准确,但意思是对的.
回复
相关推荐
发帖
数据库相关
创建于2007-08-02

2456

社区成员

Delphi 数据库相关
申请成为版主
帖子事件
创建了帖子
2001-10-08 09:59
社区公告
暂无公告