我用adoquery.sql查到多条纪录,想从access库中把记录导出到软盘上,文件格式不限。再拿到另一台机器上导入到同样的access库,请问怎样实现?????
最好能实例说明一下!!!多谢了!!!
最好能实例说明一下!!!多谢了!!!
解决方案 »
- AdvStringGrid中点cell时出现文本框,离开就没了
- 超菜问题:关于使用Idftp的传输类型TransferType问题
- 懂ms-agent的朋友,请进。。。。。。问题解决后,即送300分,在线等,。。。。。
- 大侠救命:请问怎么去掉DBGrid的水平滚动条?
- 有谁有UltraEdit-32的注册吗?
- 求教,如何避免弹出错误框?
- 如何把EXCEL表导入到ACCESS数据库中?
- listview和dbgrid怎么将里面选中的记录复制到剪贴板中?谢谢,在线等
- 如何在系统找一个进程。加急!!!100分
- 急!如何将DBImage中的图片(.bmp)读到一个OleVariant类型变量中?(我会再加分的)
- 关于动态调用DLL文件出错的问题!
- 服务端怎样才能主动断开客户端连接,SOCKET连接(急急急)
我给你答案
我实现了以下俩个功能 :
1。数据库导出为excel表 (数据库不限,前提是你使用dbgrid 显示出;来 )
2。excle表导入为数据库,目前效率方面还存在着一点问题,
但是保证能够调试通过
当然里面我有的变量你需要自己……如果不懂,给我 留言,我来……http://expert.csdn.net/Expert/topic/1855/1855520.xml?temp=.8836328
uses Comobj;
procedure Tform1.Click(Sender: TObject);
Var new_mdb:OleVariant;
begin
try
new_mdb:= CreateOleObject('Access.Application');
new_mdb.NewCurrentDatabase('c:\new.mdb');
new_mdb.Application.DoCmd.TransferDatabase($00000000,'Microsoft Access','c:\old.mdb',0,'源表名','目的表名',false{true为只复制表结构});
finally
new_mdb.Quit;
new_mdb:= null;
end;
end;