我一直在尝试使用vba代码从Excel连接到Teradata,但出现下面提到的错误: Teradata Server can不能通过网络传播。我已经能够成功连接Teradata SQL助手,并且还成功连接了Teradata服务器(我在我的笔记本电脑上运行的Teradata快速版)。我还成功地从Excel数据连接向导和Microsoft查询连接到Teradata。我也关掉了防火墙,并检查了如果我能够连接但仍然没有运气连接。请让我知道我出错的地方。无法使用VBA代码从excel连接到Teradata - 通过网络无法连接到Teradata服务器
请找到下面的代码:
Private Sub CommandButton1_Click()
Dim conn As ADODB.Connection
Dim rec1 As ADODB.Recordset
Dim thisSql As String
Set conn = New ADODB.Connection
conn.Open "Driver=Teradata;DBCName=dsnname;Databasename=dbname;Uid=Userid;Pwd=****;"
thisSql = "sel * from customer_db.customer"
Set rec1 = New ADODB.Recordset
rec1.Open thisSql, conn
With Sheet1.QueryTables.Add(Connection:=rec1, Destination:=Sheet2.Range("A1"))
.Name = "data"
.FieldNames = True
.Refresh BackgroundQuery:=False
End With
End Sub
非常感谢Rob。代码现在可用。 – Vijayshankar 2015-02-09 13:20:00