数据源名称太长错误在Excel VBA中

我正在尝试通过使用Excel VBA连接到Oracle SQL开发人员。 我写了连接string，以避免tnsname.ora问题。 但现在，我正在获取Data source too long错误。 过去的一个星期，我试图解决这个问题，但仍然无法find出路。 请帮帮我。 我的代码如下。

  Dim strCon Dim oCon DIM oRs strCon= "Driver={Microsoft ODBC for Oracle};Data Source=(DESCRIPTION= (ADDRESS=(PROTOCOL=TCP)(HOST=x0319vt110)(PORT=1523))(CONNECT_DATA=(SERVICE_NAME=DD815))); User Id=myUsername;Password=myPassword;" Set oCon=CreateObject("ADODB.Connection") Set oRs=CreateObject("ADODB.RecordSet") oCon.Open strCon 

Answer 1

使用服务器说明符而不是数据源。

 SERVER=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=MyHost)(PORT=MyPort))(CONNECT_DATA=(SERVICE_NAME=MyOracleSID))); uid=myUsername;pwd=myPassword;