Excel VBA: запись в базу данных mysql
Я хотел бы написать макрос в Excel, который будет записываться в базу данных mysql. Может кто-нибудь, пожалуйста, заставьте меня начать с этого?
- Excel VBA - удаление пустых строк
- Сортировка словаря по ключу в VBA
- VBA: использование WithEvents в UserForms
- расплавить / переделать в excel с помощью VBA?
- Возrotation регулярного выражения в VBA (excel)
- Как вы запускаете .exe с параметрами с помощью оболочки vba ()?
- Сохраните вложения в папку и переименуйте их
- Продолжить цикл
Вы можете подключиться к MySQL с помощью строки подключения и ADO:
''http://support.microsoft.com/kb/246335 Set cn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") strCon = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=MyDB;" _ & "User=root;Password=pw;Option=3;" cn.Open strCon Вы также можете использовать DSN с подключением к Excel с помощью драйвера Jet:
Dim cn As ADODB.Connection ''Not the best way to get the name, just convenient for notes strFile = Workbooks(1).FullName strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile _ & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";" Set cn = CreateObject("ADODB.Connection") ''For this to work, you must create a DSN and use the name in place of ''DSNName strSQL = "INSERT INTO [ODBC;DSN=DSNName;].NameOfMySQLTable " _ & "Select AnyField As NameOfMySQLField FROM [Sheet1$];" cn.Execute strSQL
Запись в базу данных mysql ничем не отличается от записи в любую другую базу данных.
Вы должны создать объект ADODB.Connection, открыть его с соответствующей строкой соединения и использовать метод .Execute (или ADODB.Command) для выполнения sql.
См. http://msdn.microsoft.com/en-us/library/ms807027.aspx для получения дополнительной информации.
Вы должны иметь установленный драйвер доступа mysql (ODBC или OLEDB) и ссылаться на Microsoft ActiveX Data Objects 2.8 из вашего проекта vba.