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