Как подключить базу данных MySQL, используя VBA?

Question

Опция Явная

Sub excelmysql () Переменные соединения Dim Conn As New ADODB.Connection Dim Server_Name As String Dim Database_Name As String Dim User_ID As String Dim Password As String Переменные действия таблицы Dim I As Long 'счетчик Dim strSQL As String 'SQL для выполнения различных действий Dim table1 As String Dim field1 As String, field2 As String Dim rs As ADODB.Recordset Dim vtype As Variant

Server_Name = "localhost" 'Введите здесь имя вашего сервера - при запуске с локального компьютера используйте 127.0.0.1

Database_Name = "PRMJIRA" 'Введите здесь имя вашей базы данных

User_ID = "root" 'введите свой идентификатор пользователя здесь

Password = "Pradee @ 1234" 'Введите свой пароль здесь

Set conn = New ADODB.Connection

conn.Open "DRIVER={MySQL ODBC 8.0 Unicode Driver}" _
          & ";SERVER=" & Server_Name _
          & ";DATABASE=" & Database_Name _
          & ";UID=" & User_ID _
          & ";PWD=" & Password _
          & ";OPTION=16427"

'conn.Open


vtype = Array("varchar(255)", "Text", "LongText", "Int(10)", "Float", "Double", "Date", "Time")    ' array of commonly used MySQL variable types
table1 = "P" & Range("H1").Value

field1 = "field1text"

field2 = "field2text"

strSQL = "CREATE TABLE `" & table1 & "` (`" _
         & field1 & "` " & vtype(0) & ",`" _
         & field2 & "` " & vtype(4) _
         & ")"

conn.Execute strSQL

On Error Resume Next

rs.Close

Set rs = Nothing

conn.Close

Set conn = Nothing

On Error GoTo 0

End Sub