게시판 본문 COM / COM+ by VB 6.0 - Read Only

re: 2003 r2 에서 com+ 등록및 설정에 관해서
작성자: 김상윤
작성일시: 2007-04-19 23:20,  조회수: 40,898
Option Explicit

Implements ObjectControl

Dim adoCn As Connection

Public Sub insert(ByVal writer As String, ByVal email As String, _
ByVal subject As String, ByVal contents As String, ByVal pwd As String)

Dim adoCmd As Command
Dim maxno As Integer

On Error GoTo ErrTrap

Set adoCmd = New Command

With adoCmd
.ActiveConnection = adoCn
.CommandType = adCmdStoredProc
.CommandText = "getmax_pk"

.Parameters.Append .CreateParameter("@maxno", adInteger, adParamOutput, 4)
.Execute , , adExecuteNoRecords

maxno = .Parameters("@maxno")

.CommandText = "combbs_insert_sp"

.Parameters.delete ("@maxno")
.Parameters.Append .CreateParameter("@maxno", adInteger, adParamInput, 4, maxno)
.Parameters.Append .CreateParameter("@bbs_writer", adVarChar, adParamInput, 10, writer)
.Parameters.Append .CreateParameter("@bbs_email", adVarChar, adParamInput, 60, email)
.Parameters.Append .CreateParameter("@bbs_subject", adVarChar, adParamInput, 80, subject)
.Parameters.Append .CreateParameter("@bbs_contents", adLongVarChar, adParamInput, LenB(contents), contents)
.Parameters.Append .CreateParameter("@pwd", adVarChar, adParamInput, 8, pwd)

.Execute , , adExecuteNoRecords
End With

Set adoCmd = Nothing

Exit Sub

ErrTrap:
If Not adoCmd Is Nothing Then Set adoCmd = Nothing
GetObjectContext.SetAbort
End Sub
Public Sub aninsert(ByVal hire1 As Integer, ByVal hire2 As Integer, _
ByVal hire3 As Integer, ByVal writer As String, _
ByVal email As String, ByVal subject As String, _
ByVal contents As String, ByVal pwd As String)

Dim adoCmd As Command
Dim maxno As Integer

On Error GoTo ErrTrap
Set adoCmd = New Command

With adoCmd
.ActiveConnection = adoCn
.CommandType = adCmdStoredProc
.CommandText = "getmax_pk"

.Parameters.Append .CreateParameter("@maxno", adInteger, adParamOutput, 4)

.Execute , , adExecuteNoRecords

maxno = .Parameters("@maxno")

.CommandText = "combbs_aninsert_sp"
.Parameters.delete ("@maxno")

.Parameters.Append .CreateParameter("@hire1", adInteger, adParamInput, 4, hire1)
.Parameters.Append .CreateParameter("@hire2", adSmallInt, adParamInput, 2, hire2)
.Parameters.Append .CreateParameter("@maxno", adInteger, adParamInput, 4, maxno)
.Parameters.Append .CreateParameter("@new_hire2", adSmallInt, adParamInput, 2, (hire2 + 1))
.Parameters.Append .CreateParameter("@new_hire3", adSmallInt, adParamInput, 2, (hire3 + 1))
.Parameters.Append .CreateParameter("@bbs_writer", adVarChar, adParamInput, 10, writer)
.Parameters.Append .CreateParameter("@bbs_email", adVarChar, adParamInput, 60, email)
.Parameters.Append .CreateParameter("@bbs_subject", adVarChar, adParamInput, 80, subject)
.Parameters.Append .CreateParameter("@bbs_contets", adLongVarChar, adParamInput, LenB(contents), contents)
.Parameters.Append .CreateParameter("@pwd", adVarChar, adParamInput, 8, pwd)

.Execute , , adExecuteNoRecords
End With

Set adoCmd = Nothing

GetObjectContext.SetComplete

Exit Sub

ErrTrap:
If Not adoCmd Is Nothing Then Set adoCmd = Nothing
GetObjectContext.SetAbort

End Sub

Private Sub ObjectControl_Activate()
Dim stradoCn As String

' 집 컴퓨터 연결자
stradoCn = "Provider=SQLOLEDB.1;Password=????;Persist Security Info=True;" & _
"User ID=??;Initial Catalog=bbs_third;Data Source=????"


Set adoCn = New Connection

adoCn.Open stradoCn
End Sub

Private Function ObjectControl_CanBePooled() As Boolean
ObjectControl_CanBePooled = True
End Function

Private Sub ObjectControl_Deactivate()
If adoCn.State = adStateOpen Then adoCn.Close
If Not adoCn Is Nothing Then Set adoCn = Nothing
End Sub

거의 이런소스로 되어 있는 답변형 게시판 소스 입니다.
이것은 일부분이구여

참조는
1. com+ Services type library
2. microdoft active server pages object library
3. microdoft activeX data objects 2.7 library
를 제가 직접 선택했습니다.

그리고 님이 말씀하신
Set obj_combbs = CreateObject("nedu_bbscom.msgadd")
MsgBox "OK"
Set obj_combbs = Nothing

에 대한 것은 확인을 하였습니다.
ok라고 메시지 창이 나오더군여

IP 주소: 121.133.38.209
전체 276 건의 게시물, 12 페이지로 구성된 COM / COM+ by VB 6.0 게시판의 2 페이지입니다.
게시물
256

IE 아날시스 관련입니다.

정보문

2007-08-03 1,378
255

re: IE 아날시스 관련입니다. [1]

송원석

2007-08-04 3,493
254

자바스크립트로 RDS 좀 구현하고 싶은데....

초짜

2007-07-02 1,141
253

re: 자바스크립트로 RDS 좀 구현하고 싶은데....

송원석

2007-07-03 3,449
252

re: 자바스크립트로 RDS 좀 구현하고 싶은데....

초짜

2007-07-03 1,128
251

re: 자바스크립트로 RDS 좀 구현하고 싶은데....

송원석

2007-07-04 3,427
250

IE 아날라이즈 기능 관련 문의... 소스 문의...

STormer

2007-06-17 3,679
249

re: IE 아날라이즈 기능 관련 문의... 소스 문의...

송원석

2007-06-18 3,402
248

re: IE 아날라이즈 기능 관련 문의... 소스 문의...

STormer

2007-06-30 3,333
247

re: IE 아날라이즈 기능 관련 문의... 소스 문의... [1]

송원석

2007-07-01 3,618
246

자동키입력방지모듈을 무력화하고 싶어요 [1]

정보문

2007-04-24 3,568
245

2003 r2 에서 com+ 등록및 설정에 관해서

김상윤

2007-04-18 10,154
244

re: 2003 r2 에서 com+ 등록및 설정에 관해서

송원석

2007-04-19 3,489
243

re: 2003 r2 에서 com+ 등록및 설정에 관해서

김상윤

2007-04-19 3,294
242

re: 2003 r2 에서 com+ 등록및 설정에 관해서

송원석

2007-04-19 5,233
241

re: 2003 r2 에서 com+ 등록및 설정에 관해서

송원석

2007-04-19 3,270

re: 2003 r2 에서 com+ 등록및 설정에 관해서

김상윤

2007-04-19 40,898
239

re: 2003 r2 에서 com+ 등록및 설정에 관해서

송원석

2007-04-20 3,634
238

re: 2003 r2 에서 com+ 등록및 설정에 관해서 [1]

김상윤

2007-04-20 3,299
236

[질문] Active Directory를 통한 프로그램 사용인증

Don

2007-03-30 3,231
235

re: [질문] Active Directory를 통한 프로그램 사용인증

송원석

2007-03-31 3,411
234

nTxcomm.BoardExec.Bbs_admins_Select 오류 '8004d00a'

초보asp

2007-02-13 14,650
233

re: nTxcomm.BoardExec.Bbs_admins_Select 오류 '8004d00a'

송원석

2007-02-14 3,234
232

비베로 구성요소 서비스 컨트롤 되나요?

dawn

2007-01-04 959
231

re: 비베로 구성요소 서비스 컨트롤 되나요? [1]

송원석

2007-01-04 3,248