那位大侠能告诉我vb和access连接的方法呀?十万火急!

来源：百度知道编辑：UC知道时间：2024/06/03 21:26:41

和数据库连接不上怎么办呀?这种对象的连接我不会呀 !求各位了,给我帮个忙吧.
Option Explicit
Private Counts As Byte
Private Sub cmdcancel_Click()
'//结束
End
End Sub
Private Sub CmdLogin_Click()
Dim StrSQL As String
UserName = CStr(Trim(TxtUserName.Text)) '//将文本框内的值赋给定义好的全局变量
PassWord = CStr(Trim(TxtPassword.Text))
If UserName <> Empty And PassWord <> Empty Then '//用户名与密码是否为空
StrSQL = "select 用户名称,用户口令,用户权限 from 管理用户 where 用户名称= '" & UserName & "'and 用户口令 ='" & PassWord & "'"

If RsLoginCheck.State = adStateClosed Then
RsLoginCheck.Open StrSQL, DBCON, adOpenKeyset, adLockPessimistic, adCmdText '//打开记录集

Group = RsLoginCheck.Fields(2).Value

Frmmdimain.Show '//显示主窗

ElseIf Counts < 2 Then
MsgBox "用户名域密码错误", vbExclamation + vbOKOnly, "登录失败"
RsLoginC

你代码缺少ADO数据对象与数据库的连接语句
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\hxrkgl.mdb;Persist Security Info=False"
请参考下列代码:
Private Sub Form_Load()
Dim strConn As String
Dim pubConn As New ADODB.Connection
Dim rsTable As New ADODB.Recordset
Dim strSQL As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\hxrkgl.mdb;Persist Security Info=False"
pubConn.Open strConn
rsTable.CursorLocation = adUseClient
StrSQL = "select 用户名称,用户口令,用户权限 from 管理用户 where 用户名称= '" & UserName & "' and 用户口令 ='" & PassWord & "'"
rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rsTable
End Sub

那位大侠能告诉我vb和access连接的方法呀?十万火急! 那位大侠能告诉我那位大侠告诉我冬天总是爱冻手和脚，那位大侠能告诉我比较好的方法，谢谢了请问那位大侠能告告诉我什么叫网络IP和主机IP，谢谢那位大侠告诉我吃什么能长胖点？？那位大侠能告诉我OUTLOOK EXPRESS如何建立账户那位大侠能告诉我，qq怎么下载 rm是什么格式的，那位大侠能告诉我那位大侠能告诉我什么是乐康系列疗法？