您的位置: 首页 > 软件教程 > VB.NET教程专题 > VB.Net透过JRO修复Access MDB

VB.Net透过JRO修复Access MDB

7.7分
出处:网络 时间:2011-06-28

您可能感兴趣的话题: VB.NET  

核心提示:包含本机或远端建立物件型别的方法,或者取得对现有远端物件的参考

  Imports System
Imports System.IO

  Public Class Form1

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' 将C:\db1.mdb 做Compact / Repair
If Compact_MDB("C:\db1.mdb") Then MessageBox.Show("OK !")
End Sub

  Private Function Compact_MDB(ByVal strFile As String) As Boolean

  ' Jet Access (MDB) 连线字串; Jet ( Joint Engine Technology )
Dim strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0}"

  ' 或"Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0};Jet OLEDB:Engine Type=5"

  ' Path.GetTempFileName 方法: 在磁碟上建立具命之零位元组的唯一暂存档案,
' 然後传回该档案的完整路径。
Dim strTmpFile As String = Path.GetTempFileName.Replace(".tmp", ".mdb") ' 把tmp 副档名改成mdb

  ' 建立物件阵列存放引数(参数) , 来源, 目的
Dim objPara As Object() = New Object() {String.Format(strCn, strFile), String.Format(strCn, strTmpFile)}

  ' Activator 成员: 包含本机或远端建立物件型别的方法,或者取得对现有远端物件的参考。
' Activator.CreateInstance 方法(Type) : 使用最符合指定参数的建构函式,建立指定型别的执行个体。
Dim objJRO As Object = Activator.CreateInstance(Type.GetTypeFromProgID("JRO.JetEngine"))
' Type.GetTypeFromProgID 方法: 取得与指定的程式识别项(ProgID) 关联的型别;
' 如果在载入Type 时发生错误,则传回null。
' JRO.JetEngine 为Microsoft Jet and Replication Objects X.X library

  ' Type.InvokeMember 方法
' Type.InvokeMember (String, BindingFlags, Binder, Object, Object[])
objJRO.GetType.InvokeMember("CompactDatabase", Reflection.BindingFlags.InvokeMethod, _
Nothing, objJRO, objPara)

  ' 使用指定的系结条件约束并符合指定的引数清单,来叫用指定的成员。
' BindingFlags 列举型别,InvokeMethod 指定要叫用方法。

  File.Delete(strFile) ' File.Delete 方法: 删除Compact 前之mdb 档
File.Move(strTmpFile, strFile) ' File.Move 方法: 将Compact 过的mdb 档改成(回)正确档名

  ' Marshal.ReleaseComObject 方法释放JRO COM 物件
Runtime.InteropServices.Marshal.ReleaseComObject(objJRO)
objJRO = Nothing

  Return True

  End Function

  End Class

网友评论
精品软件课程
更多 >
C++是一种静态数据类型检查的,支持多重编程... [详细]
Java,是由Sun Microsystem... [详细]
C语言是一种面向过程的计算机程序设计语言。多... [详细]
Visual Basic是一种由微软公司开发... [详细]
Oracle Database,又名Orac... [详细]
Visual C++微软公司的C++开发工具... [详细]