Advertisement
Therapy_BTTF

Untitled

Oct 15th, 2019
543
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.38 KB | None | 0 0
  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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement