Отчёт в Excel, для получения информации из БД

@Garik_1993 · Регистрация: 02.06.2016

Author24 — интернет-сервис помощи студентам

Доброго времени суток.
Необходимо в листе Excel создать некие поля с входной информацией и кнопку, по нажатии которой будет запускаться хранимая процедура, созданная в MySQL. Полученные данные из БД должны отобразиться в виде таблицы на листе Excel. Прошу расписать синтаксис кода в VBA для этой кнопки.

Добавлено через 23 часа 5 минут
Нашёл нечто такое:

Visual Basic

Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
 
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = cn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = 'sp_Name'
 
cmd.Parameters('@Parametr').Value =Variable
Set rs = cmd.Execute()

Ничего не ясно (тут что-то заменить надо?). Кто-нибудь может пояснить как подключиться к определённой базе данных (точнее к её хранимой процедуре) с помощью VBA.

Добавлено через 1 час 45 минут
Вот такое ещё нашёл. Тут для начала не ясно как указывать путь к базе; что писать в провайдере, если у меня MySQL. Сама база у меня в корневом каталоге диска D и имеет формат Workshop.mdf, а не *.mdb. Что такое объект Recordset?

Visual Basic

Private Sub CommandButton1_Click()
Dim nEmpId As Integer
Dim sLastName As String
Dim sFirstName As String
Dim sTitle As String
 
'Получаем от пользователя номер сотрудника
nEmpId = CInt(InputBox("Введите номер сотрудника:"))
 
' Создаем и настраиваем объект Connection
Dim cn As New ADODB.Connection
 
'У вас путь к файлу Борей.mdb может быть другим
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Program Files\Microsoft Office\OFFICE11\SAMPLES\Борей.mdb"
cn.Open
 
'Создаем и настраиваем объект Recordset
Dim rs As New ADODB.Recordset
 
'Обеспечиваем возможность передвижения в любом направлении
rs.CursorType = adOpenStatic
 
'Открываем Recordset на основе запроса
rs.Open " SELECT [КодСотрудника], [Имя], [Фамилия], [Должность] " & _
"FROM [Сотрудники] WHERE [КодСотрудника] = " & nEmpId, cn
 
'Проверяем, не пустой ли Recordset
If rs.EOF = True And rs.BOF = True Then
 
MsgBox "Сотрудник с таким номером не обнаружен"
Exit Sub
End If
 
'Присваиваем значения из найденной записи в таблице
sLastName = rs.Fields("Фамилия")
sFirstName = rs.Fields("Имя")
sTitle = rs.Fields("Должность")
 
ThisDocument.Activate
ThisDocument.Bookmarks("Bookmark1").Select
Selection.TypeText nEmpId & " " & sLastName & " " & sFirstName & _
" " & vbTab & sTitle & vbCrLf
 
End Sub

	03.06.2016, 12:12