Re: ADO/ODBC with Oracle

From: Martin Douglas <Martin.Douglas_at_Boeing.com>
Date: Fri, 14 Aug 1998 15:05:50 GMT
Message-ID: <35D4524E.25F5@Boeing.com>

Using ADO 1.5c and VB5-SP3:

<snip>

    With gadoConnection

      ' Form the connect string.


      .ConnectionString = .ConnectionString & "Driver={Microsoft ODBC


for Oracle}; "


      .ConnectionString = .ConnectionString & "Server=myserver; "


      .ConnectionString = .ConnectionString & "UID=user; "


      .ConnectionString = .ConnectionString & "PWD=pwd"


      .CommandTimeout = 10


      .Open

    End With

<snip>

' [1998.07.28 : 1.00.0001] - Passed Testing

Public Sub RetTemplateInfo( _
  ByVal intSelf As Integer, _
  ByRef adoRecordset As ADODB.Recordset _ )
  On Error GoTo errHandler
  Dim adoCommand As New ADODB.Command
  With adoCommand
    .CommandText = "SELECT T1.T_SELF T_SELF, T1.T_NAME T_NAME, T2.T_NAME T_BASED_ON FROM TBL_TEMPLATE T1, TBL_TEMPLATE T2 WHERE T1.T_PARENT = T2.T_SELF(+) AND T1.T_SELF = ?"

    .CommandType = adCmdText
    .Name = "RetTemplateInfo"
    .ActiveConnection = gadoConnection
    With .Parameters(0)


      .Type = adInteger


      .Direction = adParamInput


      .Value = intSelf

    End With
  End With
  Call gadoConnection.RetTemplateInfo(adoRecordset)   Exit Sub
errHandler:
End Sub Received on Fri Aug 14 1998 - 10:05:50 CDT