게시판 본문 COM / COM+ by VB 6.0 - Read Only
VB에서 COM+ 접근 |
---|
작성자: COM초보
작성일시: 2008-03-13 11:09,
조회수: 4,318
|
COM+을 처음 사용해보는데요.
원격지 A 컴퓨터에 COM+ 을 등록해서 구동시키고 클라이언트 B 컴퓨터에서 A 컴퓨터의 COM+ 에접근해서 A 컴퓨터의 COM+ 가 C 컴퓨터 DB 서버에 접근해서 레코드셋을 받아와서 다시 B 컴퓨터에 반환하려고 하는데요 사용권한이 없다고 나오네요. COM+ 등록시 CreateOwner 사용자에 IUSR_ .. 사용자와 EveryOne 사용자 모두 등록해도 안되네요. 아래는 간단하게 DBCon.dll 에서 DB서버 접근해서 레코드 하나 가져오려고 하는 소스입니다. 서버 DBCon.dll 소스 ---------------------------------------------------------------------------------------------------------------- Public Function GetADORecordset() As adodb.Recordset Dim rsset As adodb.Recordset Dim cn As adodb.Connection Dim connectstring As String Dim Sql as String Dim anerror As adodb.Error Dim strDBIP As String Dim strDBID As String Dim strDBPwd As String Dim strDBName As String On Error GoTo handler strDBIP = "XXX" strDBID = "XXX" strDBPwd = "XXX" strDBName = "XXX" connectstring = "Provider=SQLOLEDB.1;Persist Security Info=False;" & _ "Network Library=dbmssocn;User ID=" & strDBID & ";pwd=" & strDBPwd & ";" & _ "Initial Catalog=" & strDBName & ";Data Source=" & strDBIP Sql = "SELECT top 1 * FROM customer_result;" Set cn = New adodb.Connection cn.ConnectionString = connectstring cn.CursorLocation = adUseClient cn.Open Set rsset = cn.Execute(Sql) Set GetADORecordset = rsset Exit Function handler: For Each anerror In cn.Errors Debug.Print anerror.Number & ": " & anerror.Description & " - " & anerror.SQLState Next anerror End Function ---------------------------------------------------------------------------------------------------------------- 클라이언트 VB 소스 ---------------------------------------------------------------------------------------------------------------- Private oServer As Object Private MyRs As ADOR.Recordset Private Sub Command1_Click() Set oServer = CreateObject("DBCon.Cls_DBCon", "XXX.XXX.XXX.XXX") Set MyRs = oServer.GetADORecordSet lblRowCount.Caption = MyRs.RecordCount Text1.Text = MyRs.Fields(0) Set oServer = Nothing End Sub ---------------------------------------------------------------------------------------------------------------- Set oServer = CreateObject("DBCon.Cls_DBCon", "XXX.XXX.XXX.XXX") 이 부분에서 사용권한이 없다고 나옵니다. 제가 코딩한 소스가 맞는지.. 아니면 서버셋팅이 틀린건지도 모르겠습니다. 도움 부탁드립니다.ㅠㅠ |
IP 주소: 211.112.16.12
|
게시물 | ||||
---|---|---|---|---|
281 |
검색은 어떻게 하나요? -_- [2] |
whiteboy |
2010-11-10 | 188 |
280 | 2010-10-17 | 3,334 | ||
279 | 2010-10-18 | 3,624 | ||
278 |
민석 |
2010-10-08 | 264 | |
277 | 2010-10-09 | 3,437 | ||
276 |
냥냥쿠쿠 |
2010-09-29 | 251 | |
275 |
마법사 |
2010-02-10 | 414 | |
274 | 2010-02-10 | 4,659 | ||
273 |
비베 |
2010-02-09 | 530 | |
272 | 2010-02-09 | 3,745 | ||
271 | 2009-12-15 | 4,381 | ||
270 | 2009-12-15 | 6,404 | ||
269 |
ie 엔진에 해당하는 파일 [1] |
2009-11-13 | 3,494 | |
268 | 2009-10-08 | 3,789 | ||
267 | 2009-12-15 | 3,584 | ||
266 |
락토스 |
2009-07-28 | 774 | |
265 | 2009-07-29 | 4,068 | ||
264 | 2008-09-27 | 4,000 | ||
263 | 2008-09-28 | 5,171 | ||
262 | 2008-04-23 | 4,488 | ||
2008-03-13 | 4,318 | |||
260 | 2008-03-13 | 4,171 | ||
259 |
뜬금없는 질문입니다. [2] |
정보문 |
2007-12-11 | 1,040 |
258 |
vb 초보 |
2007-09-27 | 1,079 | |
257 | 2007-09-27 | 4,145 |