VB连接数据库的方法1
[
2007年1月27日星期日 20:11 | by 九天狼 | 出处：本站原创 ]
2007年1月27日星期日 20:11 | by 九天狼 | 出处：本站原创 ]
Public connSTR As String '定义一个公用变量
Public Function CData() '连接数据库,
On Error GoTo errEnd
dbName = App.Path
If Right(dbName, 1) <> "\" Then dbName = dbName + "\"
dbName = dbName + "Data.mdb"
connSTR = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbName & ";Persist Security Info=False"
Exit Sub
errEnd:
MsgBox err.Description, vbOKOnly + vbExclamation, "打开数据库出错"
End Function
