Unable to connect to oracle data base through Excel2013 Macro

[nani]

Cross posted here..

I have excel2013-32 bit and windows8-64 bit. When I tried to connect oracle database with below code, it throws an error message. Can any one please help me on this configuration?

error " [Micorsoft][ODBC driver for oracle][oracle] error while trying to retrive text for error ORA-01019

Code is mentioned in below link

http://stackoverflow.com/questions/...3-macro?noredirect=1#comment51749147_31917419

 

[Deepak]

Can we have the cross posted link pls.

 

[nani]

hi deepak, could you pls help me on this

 

[Deepak]

U haven't specified HOST & PORT.

Sub Connection()
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
strcon = "Driver={Microsoft ODBC for Oracle}; " & _
"CONNECTSTRING=(DESCRIPTION=" & _
"(ADDRESS=(PROTOCOL=TCP)" & _
"(HOST=HostName)(PORT=PortNumber))" & _
"(CONNECT_DATA=(SID=SID))); uid=user; pwd=pwd;"
con.Open (strcon)
If err.Number <> 0 Then
MsgBox ("Oracle Error: " & vbCrLf & err.Description)
Else
MsgBox ("Oracle DB Connection Successful.")
End If
End Sub

http://www.learnexcelmacro.com/wp/2011/11/oracle-connection-string-in-vba/

Also check this..

https://community.oracle.com/thread/1083666

 

[Deepak]

One more!!

http://www.johnsmiley.com/cis18/Smiley004.pdf

 

[nani]

with code, i do not have any problem because the same code was working earlier..(host..etc i ll replace)
i have formatted my pc and lost all configuration...
and i re-install oracle client and components .and now am getting this error which am not aware..

 

[Deepak]

Check this & do the one by one step.

http://blog.mclaughlinsoftware.com/microsoft-excel/how-to-query-oracle-from-excel-2007

 

[nani]

No..still am getting error