|
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 - 20/03/2007 - 22:55:11
Subject:Excel+MySQL ADO
-----------------
Тотже пример с ADO
Dim dbCn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub cmdLoad_Click()
Dim SQL
Set dbCn = New ADODB.Connection
On Error GoTo Err_handler
dbCn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=127.0.0.1;DATABASE=bp;UID=root;PWD=123456"
On Error GoTo 0
Set rs = New ADODB.Recordset
execSQL "SET NAMES 'cp1251'"
SQL = "select * from DOCTOR order by SURNAME, NAME, PATRONYMIC"
rs.Open SQL, dbCn
qRec = rs.RecordCount
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
'==================================================
' Èñïîëíåíèå çàïðîñà SQL
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 & Chr(13) & pSQL & Chr(13), vbCritical
End
End Function
[Это сообщение - спам!]
Последние сообщения из форума
Уважаемые посетители форума MySQL.RU!
Убедительная просьба, прежде чем задавать свой вопрос в этом форуме, обратите внимание на разделы:
- ответы на наиболее часто задаваемые вопросы - FAQ
- раздел документация
- раздел поиск по сообщениям форума и документации
Также, старайтесь наиболее подробно указывать свою ситуацию (версию операционной системы, версию MySQL,
версию программного обеспечения, по которому возникает вопрос, текст возникающих ошибок, и др.)
Помните, чем конкретнее Вы опишете ситуацию, тем больше шансов получить реальную помощь.
31089
|
|
