Dim adoConn As ADODB.Connection
Dim oRs As ADODB.Recordset
Sub MS_SQL_static()
Dim sql As String
Dim oRs As New ADODB.Recordset
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim sum As Double
Dim value1 As Integer
Dim value2 As Integer
Dim value3 As Double
Dim value4 As Double
value1 = Range("i")
value2 = Range("j")
value3 = (value1 / 1 * 100) + value2
value4 = Int(value3 / 1 * 100) '8자리
'MsgBox value
'MsgBox SQL
'금월고객수
* sql = "select count(distinct code) from test where years= " & value1 & " and *months= " & value2 & ""
*
*** If DB_Connection = True Then
*** oRs.Open sql, adoConn, adOpenDynamic, adLockReadOnly
*
* If oRs.RecordCount > 0 Then
* Cells(8, 4) = oRs(0)
*
* Else
* MsgBox "DB에 데이터가 존재하지 않습니다": Exit Sub
* End If
*
* oRs.Close
*
* Else
* MsgBox "DB의 접속이 원활하지 않습니다": Exit Sub
* End If
End Sub
Public Function DB_Connection() As Boolean
On Error GoTo dbErr
Set adoConn = New ADODB.Connection
'MS-SQL 접속일때
With adoConn
.CursorLocation = adUseClient
.ConnectionString = "Provider=SQLOLEDB.1;Password=xxxx;Persist Security Info=True;User ID=xxxx;Initial Catalog=rent;Data Source=xxx.xxx.xxx.xxx"
.CommandTimeout = 5
.Open
End With
DB_Connection = True
Exit Function
dbErr:
DB_Connection = False
End Function
어쩌다 이 일을 시작하게 되었는지 모르겠지만.. 이 프로그램의 목적은 엑셀매크로 파일로 어디서든 현재 고객의 정태 및 동태를 살펴볼 수 있는 보고서 작성에 있습니다.
위의 소스는 년도와 달을 받아와서 그에 해당하는 통계값들을 엑셀에 뿌려주는 형태입니다.
보통 질의문 하나에 하나의 셀에 표현되는 방식입니다. 이벤트 한번에 70개 정도의 쿼리가 던져지는 상황입니다. 그러니까 *표시가 되어 있는 부분이 70개 정도 된다고 생각하시면 될것같습니다.
초짜인 제가 봐도 한셀을 표시할때마다 ***가 붙은 부분을 계속 수행하니 비효율적이고 속도도 상당히 늦어지는 것 같습니다.
지금 엑셀에 뿌려지는 방식이 sql 쿼리문을 저장해서 가지고 있다가 그에 해당하는 값이 있다면(oRs(0)) 수행하는 방식으로 알고 있는데 이 부분때문에 여러개의 쿼리문을 한번에 처리하지를 못하겠습니다.
그리고 현재 엑셀에서 '자료 생성하기' 버튼을 생성하여 이벤트를 발생시키면 4개의 테이블에서 필요한 값들과 파생변수만 만들어 임시 테이블로 만들어 놓고 거기서 자료들을 불러오는 방식을 생각하는데 매 쿼리문마다 inner join 을 시키는 것보다 빠를런지요? 현재 이용하는 자료가 백만건이 넘는 자료라 이 부분에 대해 고민이 좀 되네요.
아 그리고 비베에서 주석을 한줄씩만 달수 있나요? 한번에 여러 줄을 주석으로 처리하는 방법과 문자열 sql=" 내용" 을 줄때 꼭 '내용'이 너무 길어서 다음 줄로 표기하고 싶은데 그 방법도 알려주시면 고맙겠습니다.
제가 프로그램에 대한 이해도가 떨어지고 하다보니 코드도 엉망이고 질문도 두서없이 한것 같아 죄송하지만 도와주시면 은혜 잊지 않겠습니다.^^
부산 근교분이면 소주 한잔 사드림.(김해거주자)
S/W | 1814명이 읽었어요. 3.137.164.210
