该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
Public constr As String '声明全局变量,用于传递数据库控件的连接字符串
Public nAdoRec As New ADODB.Recordset '声明全局变量,ADO对象模型的结果集对象
Public nAdoCon As ADODB.Connection '声明全局变量,ADO对象模型的连接对象
Public UserName As String '声明全局变量,传递登陆用户的名称
Public password As String '声明全局变量,传递登陆用户的密码
Public yhgl As Boolean '声明全局变量,传递用户的用户管理权限
Public sqzf As Boolean '声明全局变量,传递用户的申请住房权限
Public zfxx As Boolean '声明全局变量,传递用户的住户住房信息权限
Public zhgx As Boolean '声明全局变量,传递用户的住户家庭关系权限
Public Sub main()
frmFlash.Show '显示展示窗体
'设置连接字符串值
constr = "Provider=Micorosoft.Jet.OLEDB.4.0;Data Source=" & App.Path & " \教师住房系统.mdb;Persist Security info=False"
'载入其他窗体
Load frmLogin
Load frmMain
'设置ADO对象的数据
nAdoCon.ConnectionString = constr
Adodc1.RecordSource = "SELECT * FROM 教师住房系统 "
Adodc1.Refresh
nAdoCon.Open.constr , "admin" '打开ADO对象
If nAdoCon.State <> 1 Then '连接失败
MsgBox "数据库连接失败1", vbInformation + vbOKOnly, "错误" '给出错误信息
Exit Sub
End If
End Sub
这是相应代码。。
应该和代码没关系�