Главная | Контакты | Настройки

СМЕНИТЬ ПАЛИТРУ:

Пример использования Excel для внесения данных в MySQL

Вот пример использования RDO, для загрузки ФИО из БД врачей.
На лист бросаешь кнопку даешь ей имя cmdLoad.
А дальше дело простое читаешь как использовать RDO.
Практически аналогично можно использовать ADO (что тебе ближе). Для подключения библиотеки Используй в меню Tools|References


Dim dbCn As rdoConnection

Private Sub cmdLoad_Click()
Set dbCn = New rdoConnection

Dim rs As rdoResultset
dbCn.Connect = "DSN=doc;"

On Error GoTo Err_handler
dbCn.EstablishConnection
On Error GoTo 0

execSQL "SET NAMES 'cp1251'"
Dim SQL
SQL = "select * from DOCTOR order by SURNAME, NAME, PATRONYMIC"
Set rs = dbCn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)

qRec = rs.RowCount
Dim nRow As Integer
nRow = 1
While (Not rs.EOF())
Worksheets("Лист1").Range("A" & nRow).Value = rs!SURNAME
Worksheets("Лист1").Range("B" & nRow).Value = rs!Name
Worksheets("Лист1").Range("C" & nRow).Value = rs!PATRONYMIC
rs.MoveNext
nRow = nRow + 1
Wend
rs.Close
dbCn.Close
End
Err_handler:
MsgBox "Ошибка установки соединения с Базой данных! (" & Err.Number & ")" & Chr(13) & Err.Description, vbCritical
End
End Sub

Public Function execSQL(pSQL As String)
On Error GoTo Err_handler
dbCn.Execute pSQL
On Error GoTo 0
Exit Function
Err_handler:
MsgBox "Ошибка исполнения SQL! (" & Err.Number & ")" & Chr(13) & Err.Description & pSQL & Chr(13), vbCritical
End
End Function