乆黎的博客Nothing Set oConOracle = Nothing ORAQUERY = StrResult End Function 正确的完整连接字符串: Driver={Microsoft ODBC for Oracle}; CONNECTSTRING=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=strHost)(PORT=1521...
燭台的博客Sheets(sheetName).Cells(1, 2) Dim sqlCommand As String sqlCommand = Sheets(sheetName).Cells(1, 3) Set con = CreateObject("adodb.connection") con.connectionstring = "provider=OraOLEDB.Oracle.1;...