ADODB avec méthode .Seek

**Tchicken** · 14/09/2022, 21h37

Bonjour à tous, je tourne en rond, cette méthode fonctionnait bien en VBA, mais j'ai un soucis en VB.Net :

Comment définir l'IndexKey de la méthode .Seek ?

Voici la clef unique de ma table :
Nom, type=null, pos=1 (nvarchar(50))
DatePerf, type=null, pos=2 (datetime2(0))
Discipline, type=null, pos=11 (nvarchar(50))

Voici l'erreur que j'obtiens :
Erreur N° 13 : Type 'System.ValueTuple`3' cannot be marshalled to a Variant. Type library is not registered.

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
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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
    Public Shared Sub EnregPerformance()
        Dim strErrMsg As String
        Dim DBEngine As Object
        Dim ErrX As Object
        Dim MaCle1 As String
        Dim MaCle2 As Date
        Dim MaCle3 As String
        On Error GoTo ErrADO
        '***
        '*** ACCESS
        '***
        '*** Nom, DatePerf, Lieu, Dist, GainPerf, PartPerf, CordPerf, CordagePerf, FerPerf, Poid, DiscPerf, TypePerf, AlloPerf, Place, Cote, RedKDist
        Gestion.RPerformances = New ADODB.Recordset
        MaCle1 = TabCheval(1)
        MaCle2 = CDate(TabCheval(2) & " 00:00:00.000")
        MaCle3 = TabCourses(2)
        With Gestion.RPerformances
            .Index = "PrimaryKey"
            .CursorLocation = ADODB.CursorLocationEnum.adUseServer
            .Open("Performances", Gestion.Cn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic, ADODB.CommandTypeEnum.adCmdTableDirect)
            '.Seek(MaCle, ADODB.SeekEnum.adSeekFirstEQ)
            .Seek((MaCle1, MaCle2, MaCle3), ADODB.SeekEnum.adSeekFirstEQ)
            If Gestion.RPerformances.EOF Then
                .AddNew()
                .Fields("Nom").Value = TabCheval(1)
                .Fields("DatePerf").Value = CDate(TabCheval(2) & " 00:00:00.000")
            End If
        End With
        Gestion.RPerformances.Fields("Lieu").Value = LCase(TabCheval(3))
        Gestion.RPerformances.Fields("Dist").Value = CInt("0" & TabCheval(4))
        Gestion.RPerformances.Fields("Gains").Value = CLng("0" & TabCheval(5))
        Gestion.RPerformances.Fields("Partants").Value = CInt("0" & TabCheval(6))
        Gestion.RPerformances.Fields("Corde").Value = TabCheval(7)
        Gestion.RPerformances.Fields("Cordage").Value = TabCheval(8)
        Gestion.RPerformances.Fields("Deferre").Value = TabCheval(9)
        Gestion.RPerformances.Fields("Poid").Value = CSng("0" & TabCheval(10))
        Gestion.RPerformances.Fields("Discipline").Value = TabCheval(11)
        Gestion.RPerformances.Fields("TypeCourse").Value = TabCheval(12)
        Gestion.RPerformances.Fields("Allocation").Value = CLng("0" & TabCheval(13))
        Gestion.RPerformances.Fields("Place").Value = TabCheval(14)
        Gestion.RPerformances.Fields("Cote").Value = CSng("0" & TabCheval(15))
        Gestion.RPerformances.Fields("RedKDist").Value = TabCheval(16)
        Gestion.RPerformances.Fields("DateModif").Value = Format(Now, "dd/mm/yyyy hh:mm")
        Gestion.RPerformances.Update()
        Gestion.RPerformances.Close()
        Gestion.RPerformances = Nothing
        '***
        '*** SQLServer
        '***
        Gestion.RPerformances = New ADODB.Recordset
        With Gestion.RPerformances
            .Index = "PrimaryKey"
            .CursorLocation = ADODB.CursorLocationEnum.adUseServer
            .Open("Performances", Gestion.CnSQLS, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic, ADODB.CommandTypeEnum.adCmdTableDirect)
            '.Seek((TabCheval(1), TabCheval(2)), ADODB.SeekEnum.adSeekFirstEQ)
            '.Seek(MaCle, ADODB.SeekEnum.adSeekFirstEQ)
            .Seek((MaCle1, MaCle2, MaCle3), ADODB.SeekEnum.adSeekFirstEQ)
            If Gestion.RPerformances.EOF Then
                .AddNew()
                .Fields("Nom").Value = TabCheval(1)
                .Fields("DatePerf").Value = CDate(TabCheval(2) & " 00:00:00.000")
            End If
        End With
        Gestion.RPerformances.Fields("Lieu").Value = LCase(TabCheval(3))
        Gestion.RPerformances.Fields("Dist").Value = CInt("0" & TabCheval(4))
        Gestion.RPerformances.Fields("Gains").Value = CLng("0" & TabCheval(5))
        Gestion.RPerformances.Fields("Partants").Value = CInt("0" & TabCheval(6))
        Gestion.RPerformances.Fields("Corde").Value = TabCheval(7)
        Gestion.RPerformances.Fields("Cordage").Value = TabCheval(8)
        Gestion.RPerformances.Fields("Deferre").Value = TabCheval(9)
        Gestion.RPerformances.Fields("Poid").Value = CSng("0" & TabCheval(10))
        Gestion.RPerformances.Fields("Discipline").Value = TabCheval(11)
        Gestion.RPerformances.Fields("TypeCourse").Value = TabCheval(12)
        Gestion.RPerformances.Fields("Allocation").Value = CLng("0" & TabCheval(13))
        Gestion.RPerformances.Fields("Place").Value = TabCheval(14)
        Gestion.RPerformances.Fields("Cote").Value = CSng("0" & TabCheval(15))
        Gestion.RPerformances.Fields("RedKDist").Value = TabCheval(16)
        Gestion.RPerformances.Fields("DateModif").Value = Format(Now, "dd/mm/yyyy hh:mm")
        Gestion.RPerformances.Update()
        Gestion.RPerformances.Close()
        Gestion.RPerformances = Nothing
        Exit Sub
ErrADO:
        strErrMsg = "Erreur N° " & CStr(Err.Number) & " : " & Err.Description
        Select Case Err.Number
        ' principaux codes d'erreurs impliquant ODBC
            Case 3146, 3151, 3154, 3155, 3156, 3157, 3231, 3232, 3234, 3225, 3238, 3247, 3254
                strErrMsg = strErrMsg & vbCrLf & vbCrLf &
               ">>> Erreurs complémentaires DAO :" & vbCrLf &
               "======================"
                'Récupération Erreur(s) driver ODBC via DAO
#Disable Warning BC42104 ' La variable est utilisée avant de se voir attribuer une valeur
                For Each ErrX In DBEngine.Errors
#Enable Warning BC42104 ' La variable est utilisée avant de se voir attribuer une valeur
                    strErrMsg = strErrMsg & vbCrLf & Format(ErrX.Number, "00000") & " : " & ErrX.Description
                Next
        End Select
        Console.WriteLine(strErrMsg)
        Gestion.LogSQL += vbCrLf & " - EnregPerformance - Erreur N° " & CStr(Err.Number) & " : " & Err.Description
    End Sub

D'avance merci de votre aide, Tchicken.

**Tchicken** · 15/09/2022, 11h45

Déjà en définissant la clé en tant qu'objet, c'est nettement mieux :

Code :

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

        Dim Cles(2) As Object

le numéro d'erreur diminue

Erreur N° 9 : Index was outside the bounds of the array.

je me rapproche de la solution

Et avec une bonne gestion de l'index de l'objet Cles, le soucis disparait

**popo** · 15/09/2022, 12h06

Tu ne précise pas sur quelle ligne tu plantes.
Mais puisque tu parles de la méthode Seek, j'en déduit qu'il s'agit de la ligne 22.

En premier lieu, il faut bien comprendre que VB.Net n'est pas une évolution de VB6.
C'est un autre langage avec des paradigmes différents même si beaucoup d'éléments de syntaxe ont été repris.

Rien que sur les tableaux puisque Seek prend en paramètre un Array de Variant.
Ceci Dim Infos(5) As Stringaura un comportement différent sur VB6 et VB.Net.
En VB6, cela va créer un tableau avec 6 emplacements de 0 à 5.
En VB.Net cela va créer un tableau avec 5 emplacements de 0 à 4.

Et déjà en VB6, ce n'est pas ainsi qu'on initialisait un tableau.
Mais en VB.Net cette syntaxe va créer un Tuple (d'où le message d'erreur).

Essai ceci : Seek(Array(MaCle1, MaCle2, MaCle3), ADODB.SeekEnum.adSeekFirstEQ).

ADODB avec méthode .Seek

VB.NET

Discussions similaires

Partager

Partager