在VB中连接ACCESS数据库错误

来源：百度知道 编辑：UC知道 时间：2024/05/12 20:27:49
连接数据:

1.在Visual Basic环境下，选择“工程”→“引用”命令，在随后出现的对话框中选择“Microsoft ActiveX Data Objects 2.0 Library”，然后单击“确定”按钮...(这步我做好了)

2.在程序设计的公共模块中，先定义ADO连接对象。语句如下:

Public conn As New ADODB.Connection ' 标记连接对象

然后在子程序中，用如下的语句即可打开数据库:

Dim connectionstring As String

connectionstring = "provider=Microsoft.Jet.oledb.4.0;" &_

"data source=book.mdb"

conn.Open connectionstring

在第二步我出错了,我们进入VB时,,,是选标准EXE工程,还是其它的工程,,它说:"在程序设计的公共模块中，先定义ADO连接对象"是什么意思?到底什么新建什么样的工程格式呢..我开始选择了标准的EXE工程模式,,定义了ADO连接对象,,,可是在子程序中，定义的打开数据库语句错误了..我刚刚学这东西,,有些地方不是很懂...还望各位高手指点一下..在此谢谢了..
参考资料:http://edu.itbulo.com/200609/105395.htm
我的QQ:314898909 希望愿指点的加我!谢谢...

1,你第一步最好选2.6以上Microsoft ActiveX Data Objects 2.0 Library

2,如果你Public conn As New ADODB.Connection是放在一个模块下的话，那么你最好有个sub main()这个启动过程，然后在工程》》属性》》启动对象》》选择sub main

Public Conn As New ADODB.Connection

Sub Main()
Dim ConnectionString, MyDatabase, Mypath As String
Mypath = App.Path
On Error GoTo ConnectErr
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Mypath & "\DB.mdb;Jet OLEDB:Database Password=etoliu"
With Conn
.ConnectionString = ConnectionString
.ConnectionTimeout = 0
.Open
End With
FrmLogin.Show vbModal
If Not FrmLogin.OK Then
Set Conn = Nothing
End
End If

MDIFrm.Show
Exit Sub
ConnectErr:
MsgBox "数据库移动或不存在!", vbCritical, "警告"
End Sub