ADOに置きなおす

ExcelVBA（ADO）

oo4oをADOへ置きなおす。だからボタン２。

参照設定でMicrosoft ActiveX Data Objects 2.8 Libraryにチェック！

 

Public Sub CommandButton2_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim selCmd As String
'接続
cn.ConnectionString = "Provider=OraOLEDB.Oracle;Data Source=OracleDB;" _

& "User ID=scott;Password=tiger;"
cn.Open
'ＤＢ抽出
selCmd = "SELECT * FROM DANCHI_SEGS"
rs.Open selCmd, cn, adOpenKeyset, adLockReadOnly
'シートに貼付
Range("D1").CopyFromRecordset rs
'接続解除
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

 

ところがcn.Openでエラー。

「ORA-12154 TNS:指定された接続識別子を解決できませんでした」

なんで？

・

・

・

！

あーっ！

OracleDBじゃなくてOracle_DBじゃんか。

修正して無事動いた。よかった。