Unable to Connect to Oracle Table Through ODBC

From: <scot.armstrong_at_na.manpower.com>
Date: Wed, 24 Feb 1999 15:32:52 GMT
Message-ID: <7b1634$ojg$1@nnrp1.dejanews.com>

I need help connecting to an Oracle 8 table that has a long field type through ODBC 3.5. When the long field type is removed, the connection works, but this is not a solution. The long field type needs to remain so I can eventually add data to it.

Below is the script.

Thanks,

Scot

'WIZ
'----------------------------------------------------------------------------

--- --- ' Emailrobot - Inbound Task Wizard generated Script ' Created by


'----------------------------------------------------------------------------


--- ---

Option Explicit
Type GetInfo
End Type

Sub Main

        Dim vars as GetInfo
        Dim nextLine as String

        Dim es_Db As Object
        Set es_Db = CreateDatabase("NX_TEST;UID=NETEXP;PWD=NETEXP")
        If Not (es_db.OpenDatabase("INBOUND")) then
                ES_DBError es_db, "Failed to open DSN!"
                Exit Function
        End If

  If es_db.AddRecord then If Not(es_db.SetFieldValue("EMAILTO", EmailObj.To)) then ES_DBError es_db, "Error Setting EMAILTO" If Not(es_db.SetFieldValue("EMAILTONAME", EmailObj.ToName)) then ES_DBError es_db, "Error Setting EMAILTONAME" If Not(es_db.SetFieldValue("EMAILCC", EmailObj.CC)) then ES_DBError es_db, "Error Setting EMAILCC" If Not(es_db.SetFieldValue("EMAILBCC", EmailObj.BCC)) then ES_DBError es_db, "Error Setting EMAILBCC" If Not(es_db.SetFieldValue("EMAILFROM", EmailObj.From)) then ES_DBError es_db, "Error Setting EMAILFROM" If Not(es_db.SetFieldValue("EMAILFROMNAME", EmailObj.FromName)) then ES_DBError es_db, "Error Setting EMAILFROMNAME" If Not(es_db.SetFieldValue("EMAILSUBJECT", EmailObj.Subject)) then ES_DBError es_db, "Error Setting EMAILSUBJECT" If Not(es_db.SetFieldValue("EMAILTEXTBODY", EmailObj.TextBody)) then ES_DBError es_db, "Error Setting EMAILTEXTBODY" If Not (es_db.Update) then ES_DBError es_db, "Failed to Update database!" Else ES_DBError es_db, "Failed to Add Record to Database!" End If

        es_db.Close

End Sub

Function ES_Replace(ByRef text As String, ByRef es_Vars as GetInfo)

        if text = "" then
                ES_Replace = ""
        Else
                ES_Replace = ES_ReplaceEmail(text)
        End If

End Function

-----------== Posted via Deja News, The Discussion Network ==---------- http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own Received on Wed Feb 24 1999 - 09:32:52 CST