Create Access Database Table Programming ADOX 6.0 dll

This post explains about vb.net code for Create Access Database Table Programming. which is used in visual studio programming.

Create Access Database Table Programming Code

Use the code given below to Create Access Database Table Programming way.

add reference first

Microsoft ADO Ext. 6.0 for DDL and Security

Imports ADOX

Apply the below code to create new Database

Dim objCat As ADOX.Catalog
objCat = New ADOX.Catalog
objCat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Settings.BackupDatabasePath & "\" & My.Settings.BackupDatabaseName & ".mdb;Jet OLEDB:Database Password=" & My.Settings.BackupDatabasePassword & "")

Apply the below code to create new Table

Try
    '(1)
    MasterConnect()
    Dim my_query1 As String = "CREATE TABLE " & TableNameFirst & " ( " & _
    "ID Number CONSTRAINT ID UNIQUE, " & _
    "Shift varchar(10)," & _
    "Cashier_Name varchar(50)," & _
    "CuntrNo Number," & _
    "CountDate DateTime," & _
    "TotalAedSale Currency," & _
    "TotalOmrSale Currency," & _
    "CreditCard Currency," & _
    "GiftCard Currency," & _
    "Refund Currency, " & _
    "Z_Report Currency, " & _
    "5Baisa Number, " & _
    "10Baisa Number, " & _
    "25Baisa Number, " & _
    "50Baisa Number, " & _
    "100Baisa Number, " & _
    "500Baisa Number, " & _
    "1Rial Number, " & _
    "5Rial Number, " & _
    "10Rial Number, " & _
    "20Rial Number, " & _
    "50Rial Number, " & _
    "Phils Number, " & _
    "1Aed Number, " & _
    "5Aed Number, " & _
    "10Aed Number, " & _
    "20Aed Number, " & _
    "50Aed Number, " & _
    "100Aed Number, " & _
    "200Aed Number, " & _
    "500Aed Number, " & _
    "1000Aed Number )"
    Dim cmd1 As New OleDbCommand(my_query1, Mastercon)
    cmd1.ExecuteNonQuery()
    cmd1.Dispose()

    '(2)
    Dim my_query2 As String = "CREATE TABLE " & TableNameSecond & " ( " & _
        "ID AutoIncrement CONSTRAINT PrimaryKey PRIMARY KEY, " & _
     "CASHIER_NAME TEXT (60) CONSTRAINT CompanyName UNIQUE )"
    Dim cmd2 As New OleDbCommand(my_query2, Mastercon)
    cmd2.ExecuteNonQuery()
    cmd2.Dispose()

    '(3)
    Dim my_query3 As String = "CREATE TABLE " & TableNameThird & " ( " & _
        "ID AutoIncrement CONSTRAINT PrimaryKey PRIMARY KEY, " & _
     "Bank_Name TEXT (80) CONSTRAINT CompanyName UNIQUE )"
    Dim cmd3 As New OleDbCommand(my_query3, Mastercon)
    cmd3.ExecuteNonQuery()
    cmd3.Dispose()

    '(4)
    Dim my_query4 As String = "CREATE TABLE " & TableNameForth & " ( " & _
        "ID AutoIncrement CONSTRAINT PrimaryKey PRIMARY KEY, " & _
        "Beneficiary_Name TEXT (60), " & _
     "Account_Number TEXT (100) CONSTRAINT CompanyName UNIQUE )"
    Dim cmd4 As New OleDbCommand(my_query4, Mastercon)
    cmd4.ExecuteNonQuery()
    cmd4.Dispose()

    '(5)
    Dim my_query5 As String = "CREATE TABLE " & TableNamefiveth & " ( " & _
        "ID AutoIncrement CONSTRAINT PrimaryKey PRIMARY KEY, " & _
        "Beneficiary_Name TEXT (60), " & _
     "Account_Number TEXT (100) CONSTRAINT CompanyName UNIQUE )"
    Dim cmd5 As New OleDbCommand(my_query5, Mastercon)
    cmd5.ExecuteNonQuery()
    cmd5.Dispose()

    '(6)
    Dim my_query6 As String = "CREATE TABLE " & TableNameSixth & " ( " & _
        "ID Number CONSTRAINT ID UNIQUE, " & _
        "Receipt_Date DateTime, " & _
        "Bank_Name TEXT (70), " & _
        "Beneficiary_Name TEXT (70), " & _
        "Account_Number TEXT (70), " & _
        "TotalDepositAED Currency," & _
        "Feals Number, " & _
        "1Aed Number, " & _
        "5Aed Number, " & _
        "10Aed Number, " & _
        "20Aed Number, " & _
        "50Aed Number, " & _
        "100Aed Number, " & _
        "200Aed Number, " & _
        "500Aed Number, " & _
        "1000Aed Number, " & _
        "Depositor_Name TEXT (70), " & _
        "Depositor_Mob_No TEXT (70), " & _
        "Compare_Date DateTime, " & _
     "To_Date DateTime )"
    Dim cmd6 As New OleDbCommand(my_query6, Mastercon)
    cmd6.ExecuteNonQuery()
    cmd6.Dispose()

    '(7)
    Dim my_query7 As String = "CREATE TABLE " & TableNameSeventh & " ( " & _
        "ID Number CONSTRAINT ID UNIQUE, " & _
        "Receipt_Date DateTime, " & _
        "Bank_Name TEXT (70), " & _
        "Beneficiary_Name TEXT (70), " & _
        "Account_Number TEXT (70), " & _
        "TotalDepositOMR Currency," & _
        "Omr5Baisa Number, " & _
        "Omr10Baisa Number, " & _
        "Omr25Baisa Number, " & _
        "Omr50Baisa Number, " & _
        "Omr100Baisa Number, " & _
        "Omr500Baisa Number, " & _
        "Omr1Rial Number, " & _
        "Omr5Rial Number, " & _
        "Omr10Rial Number, " & _
        "Omr20Rial Number, " & _
        "Omr50Rial Number, " & _
        "Depositor_Name TEXT (70), " & _
        "Depositor_Mob_No TEXT (70), " & _
        "Compare_Date DateTime, " & _
        "To_Date DateTime )"

    Dim cmd7 As New OleDbCommand(my_query7, Mastercon)
    cmd7.ExecuteNonQuery()
    cmd7.Dispose()

    '(8)
    Dim my_query8 As String = "CREATE TABLE " & TableNameEighth & " ( " & _
        "ID Number CONSTRAINT ID UNIQUE, " & _
        "ReceiptDate DateTime, " & _
        "OmrDepositAmt Currency, " & _
        "AedDepositAmt Currency, " & _
        "CreditCardAmt Currency, " & _
        "GiftCardAmt Currency, " & _
        "RefundAmt Currency, " & _
        "NetCashAmt Currency, " & _
        "GrandTotal Currency, " & _
        "EODReport Currency, " & _
        "AcsessAmt Currency )"
    Dim cmd8 As New OleDbCommand(my_query8, Mastercon)
    cmd8.ExecuteNonQuery()
    cmd8.Dispose()
    '(8)
    Dim my_query9 As String = "CREATE TABLE CompanyLogo ( " & _
        "ProductId TEXT (8) CONSTRAINT ProductId UNIQUE, " & _
        "CompanyLogo Image )"
    Dim cmd9 As New OleDbCommand(my_query9, Mastercon)
    cmd9.ExecuteNonQuery()
    cmd9.Dispose()

Conclusion

This post provides the code Create Access Database Table Programming and create the following table. If you are facing problem using this code then please inform by commenting.