Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub Create_Tables()
- DoCmd.RunSQL "CREATE TABLE Equipe(" & _
- "idEquipe INT PRIMARY KEY," & _
- "nomEquipe VARCHAR(50)," & _
- "photoEquipe Image," & _
- "catégorie VARCHAR(50)," & _
- "nomResponsable VARCHAR(50)," & _
- "club VARCHAR(50)," & _
- "ville VARCHAR(50)," & _
- "numEmplacement INT," & _
- "etatInscription VARCHAR(50)" & _
- ");"
- DoCmd.RunSQL "CREATE TABLE Course(" & _
- "dateC DATE PRIMARY KEY," & _
- "ville VARCHAR(50)," & _
- "heureDépart TIME," & _
- "deltaDépart TIME," & _
- "distance REAL" & _
- ");"
- DoCmd.RunSQL "CREATE TABLE Coureur(" & _
- "numLicenceC INT PRIMARY KEY," & _
- "nom VARCHAR(50)," & _
- "prénom VARCHAR(50)," & _
- "sexe CHAR(1)," & _
- "dateNaiss DATE," & _
- "dateCertificatMedical DATE," & _
- "numTranspondeur INT," & _
- "numTel VARCHAR(50)," & _
- "adresse VARCHAR(50)," & _
- "CP VARCHAR(50)," & _
- "ville VARCHAR(50)," & _
- "photoCoureur Image," & _
- "idEquipe INT REFERENCES Equipe(idEquipe) NOT NULL" & _
- ");"
- DoCmd.RunSQL "CREATE TABLE Coureur_Course(" & _
- "idCoureur_Course INT PRIMARY KEY," & _
- "NumLicenceCC INT," & _
- "NumDossard INT," & _
- "points INT," & _
- "heureDépart TIME," & _
- "heureArrivée TIME," & _
- "rang INT," & _
- "dateC DATE REFERENCES Course(dateC)," & _
- "numLicenceC INT REFERENCES Coureur(numLicenceC)" & _
- ");"
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement