module2.bas

帮别人写的VB实现递归 且操作数据库的例子程序 上传以供大家下载学习

Attribute VB_Name = "Module2"
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public isconn As Boolean


'连接数据库
Public Function ConnectDB(strDb As String) As String
On Error GoTo ErrH:
If isconn = True Then Exit Function

With cn
If .State <> adStateClosed Then .Close
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDb & ";"
.ConnectionTimeout = 30
.CursorLocation = adUseClient
.Open
End With
isconn = True
Exit Function
ErrH:
ConnectDB = "连接数据库失败:" & Err.Description
End Function

'程序启动函数
Sub Main()
Dim strResult As String
Dim strDatabase As String '数据库路径
strDatabase = App.Path & "/" & "db.mdb"
strResult = ConnectDB(strDatabase) '连接数据库
If strResult <> "" Then
MsgBox strResult, vbCritical
End
End If
End Sub