UC知道vb中ADO连接数据库
来源：百度知道 编辑：UC知道 时间：2024/05/27 18:02:07
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
啥意思？怎么陈述？
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
啥意思？怎么陈述？
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