Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Creating Check Constraints

Sub CreateCheckConstraint()     Dim cmd As ADODB.Command     Set cmd = New ADODB.Command     cmd.ActiveConnection = CurrentProject.Connection     cmd.CommandText = "CREATE TABLE Customers1 " & _         "(CustomerID LONG CONSTRAINT CustomerID PRIMARY KEY, " & _         "CompanyName TEXT (50), IntroDate DATETIME, " & _         "CONSTRAINT IntroDateCheck CHECK (IntroDate <= Date()), " & _         "CreditLimit CURRENCY DEFAULT 5000)"     cmd.Execute End Sub