Mini Quiz

Question 1

Soit une table CLIENT (NUM_CLI, NOM_CLI, PAYS_CLI).
Quelle requête permet d'afficher la liste des pays sans doublons ?

SELECT DISTINCTROW PAYS_CLI FROM CLIENT

SELECT DISTINCT PAYS_CLI FROM CLIENT

Aucune différence

Question 2

Soit une table MaTable, que provoque l'appel de la méthode Add suivant :

Dim oRst As DAO.Recordset
Set oRst = CurrentDb.OpenRecordset("MaTable")
oRst.Add

	Création d'un nouvel enregistrement dans la table
	Une erreur de compilation est levée
	Une erreur d'exécution est levée

Question 3

Pourquoi lors de l'exécution de ce code, ma procédure boucle sans fin ?

Dim rs As Recordset
set rs = CurrentDB.OpendRecordset ("SELECT * FROM MaTable")
While NOT rs.EOF
Debug.Print rs.Fields("MonChamp")
Wend

	Il n'y a pas de rs.close
	Il n'y a pas de set rs = Nothing
	Il n'y a pas rs.moveNext
	L'appel de Fields() se fait avec un entier et pas avec une string

Question 4

Dans la procédure suivante, quelle valeur de n va être affichée ?

Sub Quiz()
Dim n As String
n = "1"
n = n + "1"
MsgBox n
End Sub

	1
	2
	11
	Aucune, une erreur d'exécution est levée

Question 5

Par défaut, dans l'éditeur VBA, un point d'arrêt atteint est signalé par une ligne :