DevOps, CI/CD and Automation

Hi,

during porting a large project based on ADOX to Oracle OLDEB provider
we get Runtime Error 3265.
See above code. It works for using the Nullable properties but fails using
the Default properties. We don't like to change the CODE using SQL scripts for
create default column values [ This code works fine for MS SQLSERVER ].

Private Sub Command1_Click()
Dim cn As New ADODB.Connection

Dim strCn As String
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim col As String


strCn = "Provider=OraOLEDB.Oracle;User ID=scott;password=tiger;Data
Source=SUN920"
cn.Open strCn
Set cat.ActiveConnection = cn
Set tbl.ParentCatalog = cat
tbl.Name = "ADOXTab"
col = "Col1"
tbl.Columns.Append col, adVarChar, 5
'
' Error Code: Runtimer Error 3265 is returned if using Default properties
' No error comes up if using Nullable properties
'
'tbl.Columns(col).Properties("Default") = "Hugo"
tbl.Columns(col).Properties("Nullable") = True
cat.Tables.Append tbl

Set tbl = Nothing
Set cat = Nothing
cn.Close
MsgBox "Done"
End Sub

Any workarounds to create a table with default properties using ADOX ?
Did Oracle OLEDB provider fully support ADOX API ?

Thx Helmu