Devcafe: 새 문서: ''''엑셀 DB 접속 '(중요) 환경설정>> 매크로편집화면 >도구 >참조 - Microsoft Active Data Object 2.8 Library 체크''' '변수를 명시적으로 선언 함 Option Explicit 'DB접속 문자열 Const DB_CONNECTION = "Provider=OraOLEDB.Oracle;Data Source=RTIS_DEV;User Id = xxx; Password=xxxx;" Sub table_info_query() 'Record Set Dim rs As New ADODB.Recordset 'Sql Query Dim strSQL As String '접속문자열 Dim strConn As String...

2024-10-04T16:07:25Z

새 문서: ''''엑셀 DB 접속 '(중요) 환경설정>> 매크로편집화면 >도구 >참조 - Microsoft Active Data Object 2.8 Library 체크''' <source lang='javascript'> '변수를 명시적으로 선언 함 Option Explicit 'DB접속 문자열 Const DB_CONNECTION = "Provider=OraOLEDB.Oracle;Data Source=RTIS_DEV;User Id = xxx; Password=xxxx;" Sub table_info_query() 'Record Set Dim rs As New ADODB.Recordset 'Sql Query Dim strSQL As String '접속문자열 Dim strConn As String...

새 문서

''''엑셀 DB 접속
'(중요) 환경설정>> 매크로편집화면 >도구 >참조 - Microsoft Active Data Object 2.8 Library 체크'''

<source lang='javascript'>
'변수를 명시적으로 선언 함
Option Explicit

'DB접속 문자열
Const DB_CONNECTION = "Provider=OraOLEDB.Oracle;Data Source=RTIS_DEV;User Id = xxx; Password=xxxx;"

Sub table_info_query()

'Record Set
Dim rs As New ADODB.Recordset

'Sql Query
Dim strSQL As String

'접속문자열
Dim strConn As String
Dim i As Integer

'DB연결
strConn = DB_CONNECTION
strSQL = "SELECT * FROM TAB"

'RecordSet 처리
rs.Open strSQL,strConn
If rs.EOF Then
MsgBox "조회조건에 해당하는 자료가 없습니다."
Else
'타이틀 만 표시
For i = 1 To rs.Fields.Count
Cells(1,i).Value = rs.Field(i-1).Name
Next

'데이터 Fetch
With ActiveSheet
.Range("A2").CopyFromRecordset rs
End With
End If

rs.Close
Set rs = Nothing

End Sub
</source>
[[category:excel]]

엑셀 DB연결 - 편집 역사