编写一个Function过程，调用该过程，可以根据需要用共享模式或独占模式打开数据库。过程如下：
Function OPenDatabaseX(dbs As Database,strDBPath As _
String，blnExclusive As Boolean) As Integer ’关闭错误捕获
On Error Resume Next ’打开strDBPath所指定的数据库。如果blnExclusive为True，则以独占模式打开数据库：否则，以共享模式打开数据库
Set dbs＝OpenDatabase(strDBPath，blnExclusiVe)
Select Case Err
CaSe 0:
OPenDatabaseX＝0
Case 3033：
OpenDatabaseX＝3033
Case 3343：
OpenDatabaseX＝3343
Case 3044：
OpenDatabaseX＝3044
Case 3024：
OpenDatabaseX＝3024
上一页 [1] [2] [3] [4] [5] 下一页
|
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） 