PRB: Error 3265 When You Access Properties Collection (201826)

MORE INFORMATION

The Properties collection associated with ADOX objects exposes provider-specific properties. However, ADOX objects can not expose this collection if there is not a channel for ADOX to talk to the Provider. This channel is created through the object's ParentCatalog property that points to a Catalog object. The Catalog object's Connection property must be set to a valid, opened ADO Connection object. Once this is in place, ADOX objects can expose any exposed provider-specific properties.

Steps to Reproduce Behavior

1. Start Visual Basic.
2. Choose the default project type.
3. Set a project reference to each of the following:Microsoft ADO Ext. 2.x for DDL and Security and Microsoft ActiveX Data Objects 2.x Library.
   
   
4. Paste the following code into the default form's Load method:

      Dim cnn As ADODB.Connection
      Dim cat As ADOX.Catalog
      Dim tbl As ADOX.Table
      Dim col As ADOX.Column
      Dim idx As ADOX.Index
   
      Set cnn = CreateObject("ADODB.Connection")
   
      With cnn
         .ConnectionString = "PROVIDER=SQLOLEDB" & _
                             ";DATA SOURCE=<server name>" & _
                             ";USER ID=<uid>;PASSWORD=<pwd>" & _
                             ";INITIAL CATALOG=<catalog name>"
         .Open
      End With
   
      Set cat = CreateObject("ADOX.Catalog")
      cat.ActiveConnection = cnn
   
      Set tbl = CreateObject("ADOX.Table")
      tbl.Name = "test"
   
      tbl.Columns.Append "iMyID", adInteger
      tbl.Columns.Append "cTest", adChar, 15
   
      ' Comment the Line below and
      ' Uncomment the duplicate line two lines below to avoid error.
      tbl.Columns(0).Properties("Autoincrement").Value = True
      'This line is the key.
      Set tbl.ParentCatalog = cat
      'tbl.Columns(0).Properties("Autoincrement").Value = True
      cat.Tables.Append tbl