Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Creating a Table in a New Database with AUTOINCREMENT column

Sub CreateTableInNewDb()     Dim cat As ADOX.Catalog     Dim conn As ADODB.Connection     Dim strDb As String     Dim strTable As String     Dim strConnect As String          On Error GoTo ErrorHandler          Set cat = New ADOX.Catalog     strDb = CurrentProject.Path & "\mydb.mdb"     strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDb          cat.Create strConnect          Set conn = cat.ActiveConnection          conn.Execute "CREATE TABLE myTable(SchoolId AUTOINCREMENT(100, 5)," & _         "SchoolName CHAR,City Char (25), District Char (35),YearEstablished Date);" ExitHere:     Set cat = Nothing     Set conn = Nothing     Exit Sub ErrorHandler:     If Err.Number = -2147217897 Then         Kill strDb         Resume 0     Else         Debug.Print Err.Number & ": " & Err.Description         GoTo ExitHere     End If End Sub