[AC-2003] Comment imposer des conditions au champs [Résolu]

[Bonero]

Bonjour,

J’ai cree une table en Access avec ADO mais je n’arrive pas a imposer des conditions sur des champs de facon simultanee.

Svp aidez-moi

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub SQL_Constraints()
 
 
    Dim Cn As ADODB.Connection
    Dim Rst As ADODB.Recordset
    Dim strSQL As String
 
 
 
    Set Cn = Application.CurrentProject.Connection
    Set Rst = CreateObject("ADODB.recordset")  'EB
 
 
    On Error Resume Next
    Cn.Execute "DROP TABLE RoggeEmp "
    On Error GoTo 0
 
 
'Creer la table.
    strSQL = "CREATE TABLE RoggeEmp(" & _
            "EmpID      INTEGER ," & _
            "LastName   VARCHAR(4) NOT NULL," & _
            "FirstName  VARCHAR(10), " & _
            "CONSTRAINT MyConstraints UNIQUE (EmpID,LastName))"  'UNIQUE ne semble pas affecter le champs LastName
Debug.Print strSQL
 
    Cn.Execute strSQL
 
 
'Inserrer et checker si les constraintes marchent.
 
    strSQL = "INSERT INTO RoggeEmp(EmpID, LastName,FirstName) VALUES(1,'Rogg','LeBoss')"  '
    Cn.Execute strSQL
 
 
    strSQL = "INSERT INTO RoggeEmp(EmpID, LastName,FirstName) VALUES(2,'Jack','Bonero')"  '
    Cn.Execute strSQL
 
 
   ' strSQL = "INSERT INTO RoggeEmp(EmpID, LastName,FirstName) VALUES(2,'','yvette')"  '' is considered as "" not as NULL.
   ' Cn.Execute strSQL
 
    strSQL = "INSERT INTO RoggeEmp(EmpID, LastName,FirstName) VALUES(3,'Jack',null)"  'NULL is a real NULL here
   Cn.Execute strSQL
   'UNIQUE ne semble pas affecter le champs LastName car j'arrive a inserrer Jack pour une deuxieme fois.
 
 
 
End Sub

[alassanediakite]

Salut
Le code

Code :

UNIQUE (EmpID,LastName)

impose AU COUPLE (EmpID,LastName) d'être unique pas les éléments séparément.

Code :

(1,'jack'), (1,'jean'), (2,'jack'), (2, 'jean')

ne poseront aucun problème. Mais

Code :

(1,'jack'), (1,'jack')

sera refusé.
Il faut donc

Code :

UNIQUE (LastName)

pour éviter deux fois 'jack'!

[Bonero]

Grand merci pour ta reponse Alassane