ADOX support using Default properties

Question

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

Answer 1

Hi Satti,
Does Venkata's suggestion helpful to you? If the issue persists, please post the detail information about your issue, so that we can make further analysis.
Regards,
Charlie Liao
TechNet Community Support