Новости
Документация
Download
Webboard
Поиск
FAQ/ЧаВо
Обратная связь




MySQL.RU - Webboard



Вернуться
Excel+MySQL (GiorgiCH) 16/03/2007 - 12:21:42
      Re: Excel+MySQL (bac) 16/03/2007 - 14:27:10
      Re: Excel+MySQL (Giorgich) 16/03/2007 - 15:51:09
      Re: Excel+MySQL (bac) 16/03/2007 - 18:28:29
      Re: Excel+MySQL (GIORGICH) 16/03/2007 - 20:26:55
      Re: Excel+MySQL (bac) 18/03/2007 - 23:58:41
      Re: Excel+MySQL (GiorgiCH) 19/03/2007 - 09:28:14
      Re: Excel+MySQL to Bac (GiorgiCH) 20/03/2007 - 13:22:13
      Re: Excel+MySQL ADO (bac) 20/03/2007 - 22:55:11
      Re: Excel+MySQL (bac) 20/03/2007 - 22:59:16
      Re: Excel+MySQL TO BAC (GiorgiCH) 21/03/2007 - 13:34:17
      Re: Excel+MySQL TO BAC (bac) 22/03/2007 - 01:44:15
      Re: Excel+MySQL TO BAC (GiorgiCh) 22/03/2007 - 09:36:43
      Re: Excel+MySQL TO BAC (bac) 22/03/2007 - 09:52:28
      Re: Excel+MySQL TO BAC (GiorgiCH) 22/03/2007 - 13:13:39
      Re: Excel+MySQL TO BAC (bac) 22/03/2007 - 13:53:45
      Re: Excel+MySQL To Bac (Giorgich) 22/03/2007 - 14:58:13
      Re: Excel+MySQL To Bac (bac) 22/03/2007 - 16:16:21
      Re: Excel+MySQL To Bac OK! (GiorgiCH) 22/03/2007 - 16:25:12

> Original message text:
> From: GiorgiCH - 16/03/2007 - 12:21:42
> Subject:Excel+MySQL
> -----------------
> Привет!
> Кто может подсказать как работать с Mysql через Excel. т.е. создать базу на сервере Mysql, с помощью макросов Excel-а работать с базой.
> Я искал ответ в разных форумах но подходящего ответа не получил.
>


From: bac - 18/03/2007 - 23:58:41
Subject: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



[Это сообщение - спам!]

Последние сообщения из форума

Уважаемые посетители форума MySQL.RU!
Убедительная просьба, прежде чем задавать свой вопрос в этом форуме, обратите внимание на разделы:
- ответы на наиболее часто задаваемые вопросы - FAQ
- раздел документация
- раздел поиск по сообщениям форума и документации
Также, старайтесь наиболее подробно указывать свою ситуацию (версию операционной системы, версию MySQL, версию программного обеспечения, по которому возникает вопрос, текст возникающих ошибок, и др.)
Помните, чем конкретнее Вы опишете ситуацию, тем больше шансов получить реальную помощь.
 Имя:
 E-mail:
 Тема:
 Текст:
Код подтверждения отправки: Code
31089



РЕКЛАМА НА САЙТЕ
  Создание сайтов | |