- Код: Выделить всё
Public Sub Connect2DB()
Dim wrkODBC As Workspace
Dim MyCon As Connection
Dim MyRec As Recordset
Dim ConnStr As String
ConnStr = "ODBC;DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & UserHost & ";DATABASE=" & UserDb & ";UID=;PWD=" & UserPass & ";USER=" & UserName & ";DSN=localhost"
Set wrkODBC = CreateWorkspace("NewOBDCWorkspace", "admin", "", dbUseODBC)
wrkODBC.DefaultCursorDriver = dbUseODBCCursor
Set MyCon = wrkODBC.OpenConnection("MyConnect", dbDriverNoPrompt, , ConnStr)
Set MyRec = MyCon.OpenRecordset("SELECT * FROM " & UserTable, dbOpenDynaset)
Range("A11").CopyFromRecordset MyRec
MyRec.Close
Set MyRec = Nothing
MyCon.Close
wrkODBC.Close
End Sub
На машине c 97 Excel-ем все ок, а на машине с 2002-ым вместо текста получаю квадратики. В чем моя ошибка подскажите плиз?