看不懂呀,谁能帮我翻译翻译,谢谢!
Option ExplicitPublic dbConnection As Connection
Public cntMIS As ADODB.Connection
Public QueryItem As Integer '查询数据判定变量
Public ConnWZ As ADODB.Connection
Sub Main()
On Error GoTo LogoError
Set ConnWZ = New ADODB.Connection '? 什么意思呀,
ConnWZ.Open "DSN=RS;" '? 什么意思呀,
ConnWZ.CursorLocation = adUseClient '? 什么意思呀,
Set db = New Connection '? 什么意思呀,
db.CursorLocation = adUseClient '? 什么意思呀,
db.Open "DSN=RS;" '? 什么意思呀,
'二维表的数据库连接
Set db1 = New Connection
db1.CursorLocation = adUseClient
db1.Open "PROVIDER=MSDataShape;DSN=RS;"
MsgTitle = "提示"
RSGL.Show
LogoOK:
Exit Sub
LogoError:
Beep
MsgBox "网络故障或没有与网络进行连接,请检查计算机的网络连接或与网络管理员联系。", vbOKOnly + vbQuestion, "人事信息管理系统"
End Sub