Case Else：
OpenDatabaseX＝-l
End Select
End FunCtion
该过程以共享模式或独占模式打开一个数据库，由参数blnExclusive决定。如果blnExclusive参数为True，则数据库以独占模式打开；否则，数据库以共享模式打开。在该过程中，用错误处理程序来检测错误，并根据过程调用的执行情况返回错误代码。该过程有3个参数，分别为数据库对象变量名、数据库名(包括路径)和模式开关。为了调用这个过程，应先用Dim语句声明一个Database对象变量，然后把这个对象变量和数据库的名字(strDBPath)一起传送给OpenDatabaseX过程。在调用OpenDatabaseX的代码时，应当检查OpenDatabaseX的返回值，看是否有错误发生，然后根据发生的错误采取相应的措施。在窗体上画一个命令按钮，然后在下面的事件过程中调用过程OpenDatabaseX：
PnvateSubCommandl_Click()
Dim a As Integer
Dim MvDbs As Database
a＝OpenDatabaseX(MyDbs，"c:\Vb50\biblio.mdb"，False)
Select Case a
Case 0:
MsgBox "调用成功"
Case 3033：
MsgBoxError(3033)
Case 3343：
MsgBOxError(3343)
Case 3044：
上一页 [1] [2] [3] [4] [5] 下一页
|
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） 