Connecting to Oracle From VB 6.0 with ADO

[MavrickStl]

Does anybody know how to connect to Oracle From VB 6.0 with ADO.

Mavrick

 

[WP]

Mavrick,

Reference the Oracle / MS for Oracle driver in your project references.

Here is some example code:

Dim objOracleADOConn As New ADODB.Connection
Dim objOracleADOcmdF As New ADODB.Command

objOracleADOConn.Open "Provider=msdaora; Data Source=" & strOracleSN & ";" & _
"User Id=" & strUserID & "; Password=" & _
strPassword & ";"


objOracleADOcmdF.CommandText = "AddFund"
objOracleADOcmdF.CommandType = adCmdStoredProc
Set objOracleADOcmdF.ActiveConnection = objOracleADOConn
objOracleADOcmdF.Parameters.Append _
objOracleADOcmdF.CreateParameter("P_OLYID", adVarChar, adParamInput, 10)
objOracleADOcmdF.Parameters.Append _
objOracleADOcmdF.CreateParameter("P_WKN", adVarChar, adParamInput, 20)

objOracleADOcmdF("P_OLYID&quot = objDB2ADORecordSet.Fields("SECCDE&quot

objOracleADOcmdF("P_WKN&quot = objDB2ADORecordSet.Fields("FWKN&quot
objOracleADOcmdF("P_ISIN&quot = objDB2ADORecordSet.Fields("FISIN&quot
objOracleADOcmdF("P_SECURITY_NAME&quot = objDB2ADORecordSet.Fields("FSECNAM&quot

objOracleADOcmdF.Execute

This code defines the stored procedure (SP) AddFund, declares the parameters, sets the parameter values( note these are from another ADO record source AS400 DB2 which had to be set up too) and them calls the SP.

Hope this helps.



Bill Paton
william.paton@ubsw.com

http://www.neptune400.co.uk/

Check out

http://www.deepturtle.ch

 

[Guest_imported]

If you have further questions regarding VB front-ends for Oracle databases using ADO or OO4O...heres a GREAT book:

"Visual Basic Oracle 8 Programmer's Reference" authored by Dov Trietsch and published by Wrox.

Kelly St. John