mysql - 使用vba创建mysql数据库

Question

我主要使用 VBA 来访问 MySQL 数据库并将数据从数据库下载到 Excel 工作表中。为了通过 vba 打开与 MySQL 服务器的连接，我使用以下代码:

 Public Sub OpenConnection()
     Set conn = New ADODB.Connection
     conn.Open GetConnectionString()
 End Sub

 Function GetConnectionString() As String    
    Dim ConnectionString$
    ConnectionString$ = "DRIVER={MySQL ODBC 5.3 UNICODE Driver}; _                        
    SERVER=localhost;DATABASE=test;USER=root;PASSWORD=google;Option=3"
    GetConnectionString = ConnectionString$
 End Function

我的问题是，是否有一个 VBA 代码可以用来在 MySQL 服务器中创建一个新数据库并为其指定一个指定的名称？

如果有帮助的话，我的 MySQL 服务器是版本 5.6。

Answer 1

感谢Drew的评论，我实际上还有其他代码可以让我输入对MySQL数据库的查询，唯一缺少的是如果数据库不存在则创建数据库的查询，无论如何这里是整个代码为了使用 VBA 创建 MySQL 数据库:

 Sub create_database()

   Application.Calculation = xlCalculationManual
   Application.ScreenUpdating = False

   Call OpenConnection

   Dim RS As ADODB.Recordset
   Set RS = New ADODB.Recordset

   Dim Query$

   Query$ = "CREATE DATABASE IF NOT EXISTS Database_name"
   RS.Open Query$, conn

   Set RS = Nothing

   Call CloseConnection

 End Sub

 Public Sub OpenConnection()
     Set conn = New ADODB.Connection
     conn.Open GetConnectionString()
 End Sub

 Function GetConnectionString() As String    
    Dim ConnectionString$
    ConnectionString$ = "DRIVER={MySQL ODBC 5.3 UNICODE Driver}; _                        
    SERVER=localhost;DATABASE=test;USER=root;PASSWORD=google;Option=3"
    GetConnectionString = ConnectionString$
 End Function

 Public Sub CloseConnection()
   conn.Close
   Set conn = Nothing
 End Sub