VB连接数据库Access时出现问题
用VB连接数据库,“用户名”和“密码”Access里面,实现页面登陆功能,编译时一直显示“未找到方法或数据成员”,登陆页面和代码如下。新手求指点!急求,在线等!!!代码:...
用VB连接数据库,“用户名”和“密码”Access里面,实现页面登陆功能,编译时一直显示“未找到方法或数据成员”,登陆页面和代码如下。新手求指点!急求,在线等!!!
代码:
Dim i As Integer
Command1.Visible = False
Command2.Visible = False
Command3.Visible = False
Adodc1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\" & _
"FMECA系统.accdb;Persist Security Info=False" 《这里显示有问题》
Adodc1.RecordSource = "select *from 用户密码"
Adodc1.Refresh
Combo1.Clear
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
For i = 1 To Adodc1.Recordset.RecordCount
'If Adodc1.Recordset.Fields(1) <> Null Then
Combo1.AddItem Adodc1.Recordset.Fields(1)
Adodc1.Recordset.MoveNext
Next i
End If 展开
代码:
Dim i As Integer
Command1.Visible = False
Command2.Visible = False
Command3.Visible = False
Adodc1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\" & _
"FMECA系统.accdb;Persist Security Info=False" 《这里显示有问题》
Adodc1.RecordSource = "select *from 用户密码"
Adodc1.Refresh
Combo1.Clear
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
For i = 1 To Adodc1.Recordset.RecordCount
'If Adodc1.Recordset.Fields(1) <> Null Then
Combo1.AddItem Adodc1.Recordset.Fields(1)
Adodc1.Recordset.MoveNext
Next i
End If 展开
2个回答
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询