제목그대로 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로 하게 되면
![](http://pds.devpia.com/MAEUL/19/vb_qa/317000/316787/에러메시지(오라클).jpg)
이런 에러메시지가 나오게 되고
OLEORA.ORACLE.1로 접속을 하게 되면
![](http://pds.devpia.com/MAEUL/19/vb_qa/317000/316787/에러메시지1(오라클).jpg)
이런 메시지가 나옵니다.
각종 references들은 올려놓은 상태입니다. tnsname도 맞추고요.
닷넷프레임워크도 4.0에 mdac도 2.8로 설치하고 ODAC도 설치하고 오라클 홈 폴더에 권한설정도 해주었습니다.
이런저런 검색을 통해 할수 있는 부분은 다 했다고 생각되는 데도 에러메시지가 잡히질 않네요.
도대체 어떤 방법으로 이 난관을 극복해 나가야 할지 잘 모르겠습니다.
많은 도움 부탁드립니다.ㅠㅠ
====참고====
os- windows server 2008 R2 Standard 64비트
DBMS - Oracle 10g 64비트
program - Visual Basic 6.0 |