G
George
How can I change the Include field, a boolean,
to a check box in ADO?
How can I change the ID to an autonumber/Increment field?
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
cat.ActiveConnection = CurrentProject.Connection
With tbl
.Name = p_strTableName
.Columns.Append "Include", 11, 2
.Columns.Append "FileName", 202, 254
.Columns.Append "Ext", 202, 50
.Columns.Append "Size_Text", 202, 13
.Columns.Append "Date", 7, 0
.Columns.Append "Path", 202, 150
.Columns.Append "Level", 3, 0
.Columns.Append "ID", 3, 0
End With
cat.Tables.Append tbl
to a check box in ADO?
How can I change the ID to an autonumber/Increment field?
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
cat.ActiveConnection = CurrentProject.Connection
With tbl
.Name = p_strTableName
.Columns.Append "Include", 11, 2
.Columns.Append "FileName", 202, 254
.Columns.Append "Ext", 202, 50
.Columns.Append "Size_Text", 202, 13
.Columns.Append "Date", 7, 0
.Columns.Append "Path", 202, 150
.Columns.Append "Level", 3, 0
.Columns.Append "ID", 3, 0
End With
cat.Tables.Append tbl