急! 请教VB与Access数据库连接的问题

显示全部楼层 · 2010-7-29 08:42:18

Public ADOcn As New ADODB.Connection
'全局变量声明
Public Sub main()
'建立与ACCESS数据库连接

Dim strAccess As String
'相对路径

strAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=电子听诊器用户数据.mdb;Persist Security Info=False"

ADOcn.Open strAcccess
'建立程序到数据库通道

FrmHead.Show

End Sub
测试的时候能连接但运行时提示未找到数据源和驱动

千问 · 2010-7-29 08:42:18

strAcccess=iif(right(app.path,1)="\","","\") & "电子听诊器用户数据.mdb"Ado.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& strAccess &";Persist Security Info=False"
ADOcn.Open

千问 · 2010-7-29 08:42:18

建议不要用中文文件名