Не получается скриптом подключить библиотеку для работы с MySQL
Код |
---|
Dim s As String
s = "C:\Program Files\Common Files\System\ado\msado15.dll"
ThisWorkbook.VBProject.References.AddFromFile s
Dim oConn As Object
Set oConn = New ADODB.Connection
oConn.Open "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=localhost;" & _
"DATABASE=pprint;" & _
"UID=root;" & _
"PASSWORD=;" & _
"PORT:3306;" & _
"charset=cp1251;" & _
"Option=3;"
'Ïîëó÷åíèå äàííûõ èç áàçû äàííûõ
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
Dim rec As ADODB.Recordset
Set rec = New ADODB.Recordset
Set cmd.ActiveConnection = oConn
cmd.CommandText = "SELECT * FROM tools WHERE IDCUT= '" & mstr & "'"
cmd.CommandType = adCmdText
cmd.Execute
rec.Open cmd
With rec
Distorsia = Replace(.Fields("HDist").Value, ",", ".")
Zub = .Fields("zub").Value
DPrint = Replace(.Fields("HPrint").Value, ",", ".")
Polimer = Replace(.Fields("HPolimer").Value, ",", ".")
'äëÿ ïîëèìåðà 1.7
Polimer17 = Replace(.Fields("Hpolimer_17").Value, ",", ".")
Distorsia17 = Replace(.Fields("Hdist_17").Value, ",", ".")
Vsheet = Replace(.Fields("Vsheet").Value, ",", ".")
HCountItem = .Fields("HCountItem").Value
VCountItem = .Fields("VCountItem").Value
End With
|
Пробую напрямую dll добавить.
Код |
---|
Dim s As String
s = "C:\Program Files\Common Files\System\ado\msado15.dll"
ThisWorkbook.VBProject.References.AddFromFile s |
Где ошибка?