VB语言

本类阅读TOP10

·Visual Basic 安装程序的制作!!
·VB中使用EXCEL输出
·一个简单的MP3播放器
·VB程序实现WindowsXP效果的界面!!
·VB打造超酷个性化菜单(六)
·透明位图
·平铺与拉伸MDI窗口的背景图 ~!~
·对《VB程序实现WindowsXP效果的界面》一文的补遗
·从Windows资源管理器中拖动文件
·VB打造超酷个性化菜单(一)

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
以Oracle为例说明如何通过ODBC将数据库中的指定表导出到MDB数据库。

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

原理:
    先在MDB文件中建立目标表的Link表,然后用本地操作MDB数据库的方式复制一个表的全部或者部分,删除Link表。
    至此,已经完成数据库的备份,此方法不通过循环,速度还算理想。

实现:
    首先假设ODBC中设置了一个Oracle的数据源,其数据库服务名为LinkDataBase,DSN为ORAODBC,用户名是Administrator,密码Password,把表Oracle_Table导入到C:\Temp.mdb的MDB_DATABASE,中间步骤链接表的名称为TempLink

    Dim DB As DAO.Database         '数据库对象,DAO3.6
    Dim tbLink As DAO.TableDef     '表对象
    ' 打开备份目标MDB
    Set DB = OpenDatabase("C:\Temp.mdb")
    ' 以下开始创建Link表
    Set tbLink = DB.CreateTableDef("TempLink")
    ' 设置连结字符串
    tbLink.Connect = "ODBC;DATABASE=LinkDataBase;UID=Administrator;PWD=Password;DSN=ORAODBC"
    tbLink.SourceTableName = "LinkDataBase.Oracle_Table"
    DB.TableDefs.Append tbLink
    ' 复制表(可加条件)
    DB.Execute "select * into MDB_DATABASE from TempLink"
    ' 删除链接表
    DB.TableDefs.Delete TempLink


至此完成




相关文章

相关软件