What is a 'Restricted data type attribute violation' error mean?

From: Scott Pawluk <spawluk_at_nospam.city.winnipeg.mb.ca>
Date: Fri, 01 Jun 2001 16:49:08 GMT
Message-ID: <8IPR6.210$K7.6000@news2.mts.net>

I can't find anything on Oracle's website about this....

What in god's name is it?

For those experienced with Visual Basic, below is the code that is causing it:

(Please note... Per_Test_1 & Perf_Test_2 work without problems.... It's Perf_Test_3 that fails with an error from Oracle: 'Restricted data type attribute violation'

Please respond directly by removing the nospam. from my email.

Thanks,

Scott Pawluk
Programmer
City of Winnipeg

---

---

Private Sub Main()

    Dim StartTime(1 To 3) As Date, EndTime(1 To 3) As Date

    Per_Test_1 StartTime(1), EndTime(1)
    Per_Test_2 StartTime(2), EndTime(2), "A%"
    Per_Test_3 StartTime(3), EndTime(3), "A%"

    Debug.Print StartTime(1) & " | " & EndTime(1)

    Debug.Print StartTime(2) & " | " & EndTime(2)     Debug.Print StartTime(3) & " | " & EndTime(3) End Sub

Private Sub Amanda_Property_1(StartTime As Date, EndTime As Date)

    Dim SQLString As String
    Dim TempWS As Workspace, TempCon As Connection, TempQD As QueryDef, TempRS As Recordset

    SQLString = "SELECT COUNT(*)" + vbCrLf     SQLString = SQLString + "FROM SCHEMA.TABLE" + vbCrLf

    StartTime = Now

    Set TempWS = CreateWorkspace("Temporary", "USER", "PASSWORD", dbUseODBC)     Set TempCon = TempWS.OpenConnection("DSNNAME")

    Set TempQD = TempCon.CreateQueryDef()
    TempQD.SQL = SQLString
    Set TempRS = TempQD.OpenRecordset(, dbSQLPassThrough)

    While Not (TempRS.EOF)
        Debug.Print "Record Count: " & TempRS.Fields(0)
        TempRS.MoveNext

    Wend

    TempRS.Close
    TempQD.Close
    TempCon.Close
    TempWS.Close

    EndTime = Now
End Sub

Private Sub Amanda_Property_2(StartTime As Date, EndTime As Date, LikeClause As String)

    Dim SQLString As String
    Dim TempWS As Workspace, TempCon As Connection, TempQD As QueryDef, TempRS As Recordset

    SQLString = "SELECT COUNT(*)" + vbCrLf
    SQLString = SQLString + "FROM SCHEMA.TABLE" + vbCrLf
    SQLString = SQLString + "WHERE COLUMN LIKE ?"

    StartTime = Now

    Set TempWS = CreateWorkspace("Temporary", "USER", "PASSWORD", dbUseODBC)     Set TempCon = TempWS.OpenConnection("DSNNAME")     Set TempQD = TempCon.CreateQueryDef()     TempQD.SQL = SQLString

    TempQD.Parameters(0) = LikeClause

    Set TempRS = TempQD.OpenRecordset(, dbSQLPassThrough)

    While Not (TempRS.EOF)

        Debug.Print "Record Count: " & TempRS.Fields(0)
        TempRS.MoveNext

    Wend

    TempRS.Close
    TempQD.Close
    TempCon.Close
    TempWS.Close

    EndTime = Now
End Sub

Private Sub Amanda_Property_3(StartTime As Date, EndTime As Date, LikeClause As String)

    Dim SQLString As String
    Dim TempWS As Workspace, TempCon As Connection, TempQD As QueryDef, TempRS As Recordset

    Dim TempFld As Field, RecordString As String

    SQLString = "SELECT *" + vbCrLf
    SQLString = SQLString + "FROM SCHEMA.TABLE" + vbCrLf
' Commented out: SQLString = SQLString + "WHERE COLUMN LIKE ?"

    StartTime = Now

    Set TempWS = CreateWorkspace("Temporary", "USER", "PASSWORD", dbUseODBC)     Set TempCon = TempWS.OpenConnection("DSNNAME")     Set TempQD = TempCon.CreateQueryDef()     TempQD.SQL = SQLString

' Commented out: TempQD.Parameters(0) = LikeClause

    Set TempRS = TempQD.OpenRecordset(, dbSQLPassThrough)

    While Not (TempRS.EOF)

        RecordString = ""
        For Each TempFld In TempRS.Fields
            RecordString = RecordString & TempFld
        Next TempFld
        Debug.Print RecordString
        TempRS.MoveNext

    Wend

    TempRS.Close
    TempQD.Close
    TempCon.Close
    TempWS.Close

    EndTime = Now
End Sub Received on Fri Jun 01 2001 - 11:49:08 CDT