Ошибка "Items cannot be found in the collection" - VB

Формулировка задачи:

Dim ADOXcatalog As New adox.Catalog
Dim ADOXtable As New adox.Table
Dim key As adox.key
 
ADOXcatalog.ActiveConnection = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' & App.Path + 'halldb.mdb'
    With ADOXtable
        .Name = 'Employees'
        .Columns.Append 'ID', adInteger
        .Columns.Append 'DocumentNo', adVarWChar, 20
        .Columns.Append 'FacilCod', adVarWChar, 3
        .Columns.Append 'RecDate', adDate
        .Columns('ID').Properties('Autoincrement') = True
        
        .Keys.Append 'Primary key', adKeyPrimary, 'ID' ------ OSHIBKA 'ITEMS CANNNOT BE FOUND IN THE COLLECTION.........
 
    End With
ADOXcatalog.Tables.Append ADOXtable
SPASIBO ZA VNIMANIYE


textual

Код к задаче: «Ошибка "Items cannot be found in the collection" - VB»

col.Attributes = adColNullable
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 3.429 из 5

Источник