제목그대로 Windows Server 2008 에서 oracle 10g를 설치하고 DB를 조회하는 아주 간단한 프로그램을 만들고 있습니다.
--소스
Option Explicit
Dim oCon As New ADODB.Connection
Dim g_ConnectString1 As String 'DB연결관리정보
Dim Result As ADODB.Recordset
Dim tnsQuery As String
Dim sqlQuery As String
Dim commit_query As String
Dim DA_CODE As Integer
Dim RES_CODE As Integer
Dim PB_CODE As Integer
Dim PB_NAME As String
Dim DB_IP As String
Dim NUM As Integer
Private Sub Form_Load()
g_ConnectString1 = "Provider=MSDAORA.1;Password=*****;Persist Security Info=True;User ID=******;Data Source=127.0.0.1:1521"
'g_ConnectString1 = "Provider=OLEORA.ORACLE.1;Password==*****;;Persist Security Info=True;User ID=INP=******;OLDB;Data Source=127.0.0.1:1521"
Set oCon = CreateObject("ADODB.Connection")
oCon.ConnectionTimeout = 0
oCon.Open (g_ConnectString1)
tnsQuery = "select * from test"
Set Result = oCon.Execute(tnsQuery)
commit_query = "commit"
Do While Not Result.EOF
DA_CODE = Result("da_code")
RES_CODE = Result("res_code")
PB_CODE = Result("pb_code")
PB_NAME = Result("pb_name")
DB_IP = Result("db_ip")
NUM = Result("num")
Text1.Text = DA_CODE
Text2.Text = RES_CODE
Text3.Text = PB_CODE
Text4.Text = PB_NAME
Text5.Text = DB_IP
Text6.Text = NUM
Result.MoveNext
Loop
oCon.Execute (commit_query)
oCon.Close
Set oCon = Nothing
Set Result = Nothing
End Sub
이런 소스가 있을때에 컴파일을 돌리면 에러가 발생합니다.
접속방법을 MSDAORA.1로 하게 되면
이런 에러메시지가 나오게 되고
OLEORA.ORACLE.1로 접속을 하게 되면
이런 메시지가 나옵니다.
각종 references들은 올려놓은 상태입니다. tnsname도 맞추고요.
닷넷프레임워크도 4.0에 mdac도 2.8로 설치하고 ODAC도 설치하고 오라클 홈 폴더에 권한설정도 해주었습니다.
이런저런 검색을 통해 할수 있는 부분은 다 했다고 생각되는 데도 에러메시지가 잡히질 않네요.
도대체 어떤 방법으로 이 난관을 극복해 나가야 할지 잘 모르겠습니다.
많은 도움 부탁드립니다.ㅠㅠ
====참고====
os- windows server 2008 R2 Standard 64비트
DBMS - Oracle 10g 64비트
program - Visual Basic 6.0 |