Question

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

java version "1.6.0_36"
OpenJDK Runtime Environment (IcedTea6 1.13.8) (6b36-1.13.8-1~deb7u1)
OpenJDK 64-Bit Server VM (build 23.25-b01, mixed mode)

我的问题是，是否有一个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

用vba创建mysql数据库

1 个答案: