本机运行成功后,打包,发给另外一方,出现,运行程序“3706错误,未找到提供程序,或程序安装不正确” 把原来的Provider = "Microsoft.Jet.OLEDB.3.15" 改为
Provider = "Microsoft.Jet.OLEDB.4.0"还是运行不了
以下是我模块的代码是否有所不对 请高手给予意见 谢谢
Public cntt1 As New ADODB.Connection
Public rstt2 As New ADODB.RecordsetPublic Function dataopen(oconn As Connection) As Boolean
oconn.CursorLocation = adUseClient
oconn.ConnectionString = connectstring()
oconn.Mode = adModeReadWrite
oconn.Open
dataopen = True
End Function
Public Function connectstring() As String
connectstring = "Provider=Microsoft.Jet.OLEDB.4.0 ;Persist Security Info=False;Data Source=" & App.Path & "\phone.mdb"
End Function
Provider = "Microsoft.Jet.OLEDB.4.0"还是运行不了
以下是我模块的代码是否有所不对 请高手给予意见 谢谢
Public cntt1 As New ADODB.Connection
Public rstt2 As New ADODB.RecordsetPublic Function dataopen(oconn As Connection) As Boolean
oconn.CursorLocation = adUseClient
oconn.ConnectionString = connectstring()
oconn.Mode = adModeReadWrite
oconn.Open
dataopen = True
End Function
Public Function connectstring() As String
connectstring = "Provider=Microsoft.Jet.OLEDB.4.0 ;Persist Security Info=False;Data Source=" & App.Path & "\phone.mdb"
End Function
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货