SHARE
TWEET

Untitled

Therapy_BTTF Oct 15th, 2019 74 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub Create_Tables()
  2.  
  3. DoCmd.RunSQL "CREATE TABLE Equipe(" & _
  4.    "idEquipe INT PRIMARY KEY," & _
  5.    "nomEquipe VARCHAR(50)," & _
  6.    "photoEquipe Image," & _
  7.    "catégorie VARCHAR(50)," & _
  8.    "nomResponsable VARCHAR(50)," & _
  9.    "club VARCHAR(50)," & _
  10.    "ville VARCHAR(50)," & _
  11.    "numEmplacement INT," & _
  12.    "etatInscription VARCHAR(50)" & _
  13. ");"  
  14.  
  15. DoCmd.RunSQL "CREATE TABLE Course(" & _
  16.    "dateC DATE PRIMARY KEY," & _
  17.    "ville VARCHAR(50)," & _
  18.    "heureDépart TIME," & _
  19.    "deltaDépart TIME," & _
  20.    "distance REAL" & _
  21. ");"  
  22.  
  23. DoCmd.RunSQL "CREATE TABLE Coureur(" & _
  24.    "numLicenceC INT PRIMARY KEY," & _
  25.    "nom VARCHAR(50)," & _
  26.    "prénom VARCHAR(50)," & _
  27.    "sexe CHAR(1)," & _
  28.    "dateNaiss DATE," & _
  29.    "dateCertificatMedical DATE," & _
  30.    "numTranspondeur INT," & _
  31.    "numTel VARCHAR(50)," & _
  32.    "adresse VARCHAR(50)," & _
  33.    "CP VARCHAR(50)," & _
  34.    "ville VARCHAR(50)," & _
  35.    "photoCoureur Image," & _
  36.    "idEquipe INT REFERENCES Equipe(idEquipe) NOT NULL" & _
  37. ");"  
  38.  
  39. DoCmd.RunSQL "CREATE TABLE Coureur_Course(" & _
  40.    "idCoureur_Course INT PRIMARY KEY," & _
  41.    "NumLicenceCC INT," & _
  42.    "NumDossard INT," & _
  43.    "points INT," & _
  44.    "heureDépart TIME," & _
  45.    "heureArrivée TIME," & _
  46.    "rang INT," & _
  47.    "dateC DATE REFERENCES Course(dateC)," & _
  48.    "numLicenceC INT REFERENCES Coureur(numLicenceC)" & _
  49. ");"  
  50.  
  51. End Sub
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top