Discussion :

[bartimeus35]

Bonjour à tous,

J'ai migre ma BDD ver MySQL chouette c'est 10000 fois plus rapide que si les tables st ds un fichier excel
Mais je n'arrive pas à faire un seek

Ma table t_utilisateurs à bien un index PimaryKey

Je cherche à faire un seek sur le pk_utilisateur n°3


Mais le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
    Dim dbsExt As DAO.Database
    Dim tdf    As DAO.TableDef
 
    Dim rst As DAO.Recordset
    On Error Resume Next
    Set rst = CurrentDb().OpenRecordset("t_utilisateurs")
 
    primary_key = 3
 
        With rst
      ' Set the index.
       .Index = "PrimaryKey"
 
             .Seek "=", Val(primary_key)
 
             ' Return to the current record if the Seek fails.
             If .NoMatch Then
                MsgBox "ID not found!", vbCritical, "OUPS"
             End If
            MsgBox (.Fields("Prenoms") & " " & .Fields("Nom"))
 
            .MoveLast
             MsgBox (.Fields("Prenoms") & " " & .Fields("Nom"))
        End With

Il m'affiche le Premier record au lieu du N°3 et le dernier est Bon.
Je suis donc bien sur ma table. c'est déjà une bonne chose .

Je viens devoir que si je mets un point d'arrêt sur le

.Index = "PrimaryKey"

J'ai ca qui pose problème mai je ne pige pas



Un conseil ?

@+

Millions de merkis,
Mikeline