windows7 64비트에서 ODBC 연결

 

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 '이거 된다'

http://bbunge.tistory.com/178