Creating a Table in the Current Database with SQL statement : Table Create « Access « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Access
  3. Table Create

Creating a Table in the Current Database with SQL statement

 
Sub CreateTable()
    Dim conn As ADODB.Connection
    Dim strTable As String

    On Error GoTo ErrorHandler
    Set conn = CurrentProject.Connection

    strTable = "Employees"
    conn.Execute "CREATE TABLE " & strTable & _
       "(Id AUTOINCREMENT(100, 5)," & _
       "lName CHAR," & _
       "City Char (25), District Char (35)," & _
       "YearEstablished Date);"

    Application.RefreshDatabaseWindow
ExitHere:
    conn.Close
    Set conn = Nothing
    Exit Sub
ErrorHandler:
    MsgBox Err.Number & ":" & Err.Description
    Resume ExitHere
End Sub








Related examples in the same category

1.Create a table with validation rule
2.Creating a Table (ADOX data types vs. Microsoft Access data types)
3.Creating a Table in a New Database with AUTOINCREMENT column
4.Creating a Table with a Single-Field Index with SQL command
5.Adding a Single-Field Index to an Existing Table with SQL command
6.Creating an Index Based on Two Fields with SQL command
7.Default Column value
8.Creating Check Constraints:add business rules for a table