VBA出现程序可能未安装错误,也许对你是小问题,我找了半天资料还是无法解决
在我的电脑上可以运行,拿到别人电脑上就出现了程序可能未安装错误,记调试。我怀疑是Provider=SQLOLEDB.1;这个驱动程序没有找到在其它电脑,查了下ADO关于Provider的资料,如下描述:
Provider 代码 Provider
ADSDSOObject Active Directory Services
Microsoft.Jet.OLEDB.4.0 Microsoft Jet databases
MSDAIPP.DSO.1 Microsoft Internet Publishing
MSDAORA Oracle databases
MSDAOSP Simple text files
MSDASQL Microsoft OLE DB provider for ODBC
MSDataShape Microsoft Data Shape
MSPersist Locally saved files
SQLOLEDB Microsoft SQL Server
我想知道我的程序里的Provider=SQLOLEDB.1其中比资料里多出来的.1是版本的意思吗?
我的计算机安装了sql2005是不是才会有SQLOLEDB这个驱动,其它计算机没有安装sql2005就不能用这程序了?我试了下用Provider=Microsoft.Jet.OLEDB.4.0在那台计算机上也不行,有没有谁清楚这个Provider=到底应该填什么好?填什么最通用呢?我怎么知道哪台计算机上用什么驱动好呢?也许对你是小问题,我找了半天资料还是无法解决,帮帮我,谢谢。
Sub writedata()
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
connstr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=*;PWD=*;Initial Catalog=*;Data Source=*"
cn.Open connstr //调试时这行是黄颜色的
For i = startnumber To endnumber Step 1
cn.Execute "INSERT INTO binguan.dbo.caiwuke VALUES (" & Worksheets("write").Cells(i + 1, 1) & ", '" & Worksheets("write").Cells(i + 1, 2) & "', '" & Worksheets("write").Cells(i + 1, 3) & "', '" & Worksheets("write").Cells(i + 1, 4) & "', '" & Worksheets("write").Cells(i + 1, 5) & "', " & Worksheets("write").Cells(i + 1, 6) & ", " & Worksheets("write").Cells(i + 1, 7) & ", " & Worksheets("write").Cells(i + 1, 8) & ");"
Next i
cn.Close
End Sub
[解决办法]
安装MDAC28和MDAC28_SP1?
[解决办法]