excel通过VBA连接GBase 8a MPP Cluster读取数据

步骤1：在Excel这边，需要先在VBE中启动数据库连接支持。按下Alt+F11打开VBE，在菜单栏选择“工具”－“引用”，在弹出的引用窗口中，找到"Microsoft ActiveX Data Objects 6.1 Library"和"Microsoft ActiveX Data Objects Recordset 2.8 Library"，把前面的框勾选上，点击确定即可。 （如果不是这两个版本，则选择一个版本号最高的勾选即可）

步骤2：F7打开代码编辑窗口

步骤3：编辑代码并运行

Sub selectdatatoexcel()

    Dim conn As ADODB.Connection

    Dim rs As ADODB.Recordset

    Set conn = New ADODB.Connection

    Set rs = New ADODB.Recordset

'配置连接串

    conn.ConnectionString = "Driver={GBase ODBC 8.3 Driver};Server=192.168.222.133;DB=test;UID=gbase;PWD=gbase20110531;OPTION=3;"

    conn.Open

'从test数据库的YGXM表中取出所有数据

    rs.Open "select * from `t1`", conn

'设置表头

    Range("A1:B1:C1").Value = Array("c1", "c2", "c3")

'将数据输出到工作表

    Range("A2").CopyFromRecordset rs

'关闭连接

    rs.Close: Set rs = Nothing

    conn.Close: Set conn = Nothing

End Sub