windows7 64비트에서 ODBC 연결

wif LiNoUz/Oracle,Sql

크라소니 2012. 10. 22. 10:58

AWESOME

Sub Import_date()

Dim CDB As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim Tsql As String

CDB.Open "DSN=DB_TEST;UID=meta;PWD=meta"

Tsql = "select * from tab where tname like 'META%';"

rs.Open Tsql, CDB, , , adCmdText

Range("A1").CopyFromRecordset rs

rs.Close

Set rs = Nothing

CDB.Close

Set CDB = Nothing

End Sub '이거 된다'