Question

vb中ADO连接数据库

Private Sub Form_Load()
If CN.State Then CN.Close
CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database.mdb;Persist Security Info=False"
CN.Open
miCount = 0

Ok = False
txtUserName.Text = GetSetting(App.Title, "Settings", "user_name", "")
End Sub
啥意思？怎么陈述？

Answer 1

Private Sub Form_Load()
If CN.State Then CN.Close
如果CN打开了则关闭
CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database.mdb;Persist Security Info=False"
声明数据库的类型及数据库位置和名称

CN.Open
打开CN

miCount = 0
计算数置零

Ok = False
OK置否
txtUserName.Text = GetSetting(App.Title, "Settings", "user_name", "")
用户名文本框值设为注册表中的用户名
End Sub