Discussion :

[Invité]

Bonjour,
J'ai un code en vba permettant de remplir une table access selon une autre table et des criteres.

J'ai besoin de convertir en vb.net seulement malgre mes recherches y a tjrs des fonctions vba que je comprend pas, comme par exemple comment je peux faire pour ecrire la condition

If MyTable.MyColumn = 2 Then ...

Je met le code en photo, dsl j'ai pas le code en version informatique.
Je met aussi le code vb.net que j'ai essaye de faire mais j'ai tjrs le probleme avec l'appel de ma table. Si qq a des pistes pour m'aider, merci d'avance

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
            CNT1 = 0
            CNT2 = 0
 
            Dim MyTable As New OleDbCommand("select * from TEMPtools ORBER BY REV", cn)
 
            If MyTable![REV] = "2" Then
                COMPPN1 = ""
                COMPPN3 = ""
                COMPPN4 = ""
                COMPPN2 = MyTable![ITEM5]
                CNT2 = CNT2 + 1
                Seq = CNT1 & "." & Format(CNT2, "00")
                Dim MyTable As OleDbCommand("UPDATE TEMPtools SET ITEM1=COMPPN1, ITEM2=COMPPN2, ITEM3=COMPPN3, ITEM4=COMPPN4, USER=Seq")
            End If
            If MyTable![REV] = "1" Then
                COMPPN2 = ""
                COMPPN3 = ""
                COMPPN4 = ""
                COMPPN1 = MyTable![ITEM5]
                CNT1 = CNT1 + 1
                Seq = CNT1
                Dim MyTable As OleDbCommand("UPDATE TEMPtools SET ITEM1=COMPPN1, ITEM2=COMPPN2, ITEM3=COMPPN3, ITEM4=COMPPN4, USER=Seq")
            End If

Merci d'avance pour vos reponses