VB中数据控件连接数据库,数据库密码怎么打开?运行时提示密码不对!怎么解决啊?请各位快帮搞一下好吗?好急啊?十万火急啊! 是access数据库库啊!十万火急啊!十万火急啊!十万火急啊!十万火急啊!十万火急啊!刚才那们老兄说的方法好像不太有用啊我是在form_load下写上你那行代码啊好像不行啊 , 是这样子的:
Private Sub Form_Load()
Me.Data1.Connect = "ms access2000:pwd=888"
Data1.DatabaseName = App.Path & "\lqtflwg.mdb"
Data1.RecordSource = "csdn"
'Data1.Refresh
Command6.Visible = False
Command7.Visible = False
End Sub
Private Sub Form_Load()
Me.Data1.Connect = "ms access2000:pwd=888"
Data1.DatabaseName = App.Path & "\lqtflwg.mdb"
Data1.RecordSource = "csdn"
'Data1.Refresh
Command6.Visible = False
Command7.Visible = False
End Sub
解决方案 »
- 窗体慢慢消失
- 关于vb远程访问数据库的新问题,希望高手能给出高论
- 满屏显示
- 现在窗口上有五个顶层菜单.请问如何才能让1,2,3,4显示在标题栏左边,第5个显示在标题栏右边呢?
- 如何测试远程数据库是否可以连接
- 帮忙解决一下:用代码从文件的详细地址中把文件名称取出,如e:\hyt\1\2.txt中得到2.txt,立即结分
- 二百分求,VB程序中一条select语句的提速与优化方法!!
- 请问各位大虾我如何实现MSHFlexGrid的折叠功能?
- 如何注册字体。
- 《vb 与美女》 请问有会vb 美女吗?
- VB中数据控件连接数据库,数据库密码怎么打开?运行时提示密码不对!各位前辈赐教啊!
- *******请问ActiveReport有没有子报表的功能?*******
http://expert.csdn.net/Expert/topic/2710/2710006.xml?temp=8.526248E-02
工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)Option ExplicitDim 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