W
Wayne Wengert
I am getting an error that "object no longer valid" at the point indicated
in the code below - I am trying to build a table in an Access 2000 database
using ADOX. Any thoughts on what might cause this?
==================== code =================
Sub CreateADOUnitsTable(ByVal sTablename As String)
Dim oDB As ADOX.Catalog
Dim oUnits As ADOX.Table
oUnits = New ADOX.Table
oDB = New ADOX.Catalog
oDB.ActiveConnection = myConn
With oUnits
..Name = sTablename
..Columns.Append("UnitName", ADOX.DataTypeEnum.adVarWChar, 20)
..Columns.Append("Class", ADOX.DataTypeEnum.adVarWChar, 5)
..Columns.Append("Comments", ADOX.DataTypeEnum.adVarWChar, 35)
End With
oDB.Tables.Append(oUnits) '<=== Error occurs here
oUnits = Nothing
oDB = Nothing
End Sub
in the code below - I am trying to build a table in an Access 2000 database
using ADOX. Any thoughts on what might cause this?
==================== code =================
Sub CreateADOUnitsTable(ByVal sTablename As String)
Dim oDB As ADOX.Catalog
Dim oUnits As ADOX.Table
oUnits = New ADOX.Table
oDB = New ADOX.Catalog
oDB.ActiveConnection = myConn
With oUnits
..Name = sTablename
..Columns.Append("UnitName", ADOX.DataTypeEnum.adVarWChar, 20)
..Columns.Append("Class", ADOX.DataTypeEnum.adVarWChar, 5)
..Columns.Append("Comments", ADOX.DataTypeEnum.adVarWChar, 35)
End With
oDB.Tables.Append(oUnits) '<=== Error occurs here
oUnits = Nothing
oDB = Nothing
End Sub