VB中数据控件连接数据库，数据库密码怎么打开？运行时提示密码不对！各位前辈赐教啊！

[lqtflwg718]

VB中数据控件连接数据库，数据库密码怎么打开？运行时提示密码不对！怎么解决啊?请各位快帮搞一下好吗？好急啊？十万火急啊！
是data控件啊！aceess数据库。各位前辈赐教啊！

[guangxiluye]

Dim cn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cn = New ADODB.Connection

'access 2000以上版本用oledb.4.0 access97版的用3.51
cn.Open "provider=microsoft.jet.oledb.4.0;Data source=" & App.Path & "info.mdb" & ";Jet OLEDB:Database password=123456"

[zmrok]

楼上的,你看清楚,人家问的是用数据控件!
事实上我也没有找到更好的解决办法,暂时尽量不用控件吧

[cloudtarget]

请参考
http://expert.csdn.net/Expert/topic/2710/2710006.xml?temp=8.526248E-02

[csdngoodnight]

ADO连接：


工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）

Option Explicit

Dim WithEvents adoRS As Recordset
Dim db As Connection


'提数据事件
Set db = New Connection
db.CursorLocation = adUseClient
db.Open"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\db1.mdb;Jet OLEDB:Database Password=1234;"
' ##########################################
'打开密码是1234的Access2000数据库db1.mdb
'不需要密码，就把Jet OLEDB:Database Password=1234;这段去掉

Set adoRS = New Recordset

adoRS.Open "SELECT * FROM 表", db, adOpenStatic, adLockOptimistic
'赋值给 DataGrid 表
Set DataGrid1.DataSource = adoRS
'表刷新
DataGrid1.Refresh

'如果要绑定TextBox(数组)：
'Text1(0).DataField = 字段1
'Text1(1).DataField = 字段2
'.........
Dim oText As TextBox 'TextBox
For Each oText In Me.Text1
Set oText.DataSource = adoRS
Next




'添加事件和保存
adoRS.AddNew
'保存
adoRS![字段a] = text1.Text
adoRS![字段b] = text2.Text
adoRS.UpdateBatch adAffectAll

'删除
adoRS.Delete
'重新赋值给表
adoRS.Requery
Set DataGrid1.DataSource = adoRS
DataGrid1.Refresh

'其他相关操作：
'上一条
If Not adoRS.BOF Then adoRS.MovePrevious
If adoRS.BOF And adoRS.RecordCount > 0 Then
'已到最后返回
adoRS.MoveFirst
End If
'下一条
If Not adoRS.EOF Then adoRS.MoveNext '下一条
If adoRS.EOF And adoRS.RecordCount > 0 Then
'已到最后返回
adoRS.MoveLast
End If
'第一条
If Not adoRS.BOF Then adoRS.MoveFirst
'最末
If Not adoRS.EOF Then adoRS.MoveLast