Recuperer valeur colonne database

Version imprimable

1 pièce(s) jointe(s)

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

Citation:

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:

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

Pièce jointe 461088

Merci d'avance pour vos reponses

25/03/2019, 20h16
Phil Rob

Bonjour,

Si je comprends bien tu testes la valeur du champ REV.
Mais ta requête donne de 0 à Count-1 ROWS.

Citation:

Dim MyTable As New OleDbCommand("select * from TEMPtools ORBER BY REV", cn)

Si seule la première ligne t'intéresse, la première ROWS étant à l'indice 0, ceci devrait approcher ce que tu cherches :
if MyTable.Rows(0).Item("REV") = "2" then ...

Bonne soirée,
25/03/2019, 20h19
Invité

Merci pour ta reponse, en effet je cherche a tester la valeur de la colonne REV mais pour chaque ligne

Alors ça devrait être ± ceci :

Code:

1
2
3
4
5
6
7
        If MyTable.Rows.Count > 0 Then
            For Each R As DataRow In MyTable.Rows
                If R.Item("REV") = "2" Then 
......................
                End If
            Next
        End If

25/03/2019, 20h41
Invité

super je vais essayer ca mais du coup MyTable ne peut pas etre OleDbCommand car Rows n'appartient pas a OleDbCommand.

Je peux creer un dgv avec la table access et le definir comme etant MyTable ?

Un DGV ne devrait pas être nécessaire mais tu pourrais utiliser un OleDBDataAdapter, il te donnera un DataTable :

Code:

1
2
3
4
        Dim MyTable As New DataTable
        Dim CNX As New OleDbDataAdapter("select * from TEMPtools ORBER BY REV", cn)
        CNX.FillSchema(MyTable, SchemaType.Source)
        CNX.Fill(MyTable)

Super, alors j'ai essayé d'écrire mon code avec ton idée et j'obtiens ça

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
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
'       1st and 2nd LEVEL
            CNT1 = 0
            CNT2 = 0
            CNT3 = 0
            CNT4 = 0
 
            Dim MyTable As New DataTable
            Dim CNX As New OleDbDataAdapter("select * from TEMPTools ORDER BY REV", cn)
            CNX.FillSchema(MyTable, SchemaType.Source)
            CNX.Fill(MyTable)
 
            If MyTable.Rows.Count > 0 Then
                For Each R As DataRow In MyTable.Rows
                    If R.Item("REV") = "2" Then
                        COMPPN1 = ""
                        COMPPN3 = ""
                        COMPPN4 = ""
                        COMPPN2 = R.Item("ITEM5")
                        CNT2 = CNT2 + 1
                        Seq = CNT1 & "." & Format(CNT2, "00")
                        Dim Update As New OleDbCommand("UPDATE TEMPTools SET ITEM1='" & COMPPN1 & "', ITEM2='" & COMPPN2 & "', ITEM3='" & COMPPN3 & "', ITEM4='" & COMPPN4 & "', USER='" & Seq & "'", cn)
 
                    ElseIf R.Item("REV") = "1" Then
                        COMPPN2 = ""
                        COMPPN3 = ""
                        COMPPN4 = ""
                        COMPPN1 = R.Item("ITEM5")
                        CNT1 = CNT1 + 1
                        Seq = CNT1
                        Dim Update As New OleDbCommand("UPDATE TEMPTools SET ITEM1='" & COMPPN1 & "', ITEM2='" & COMPPN2 & "', ITEM3='" & COMPPN3 & "', ITEM4='" & COMPPN4 & "', USER='" & Seq & "'", cn)
 
                        '          3rd LEVEL
                    ElseIf R.Item("REV") = "3" Then
                        COMPPN1 = ""
                        COMPPN2 = ""
                        COMPPN4 = ""
                        COMPPN3 = R.Item("ITEM5")
                        CNT3 = CNT3 + 1
                        'Seq =
                        Dim Update As New OleDbCommand("UPDATE TEMPTools SET COUNT1='" & CNT & "', ITEM1='" & COMPPN1 & "', ITEM2='" & COMPPN2 & "', ITEM3='" & COMPPN3 & "', ITEM4='" & COMPPN4 & "',COUNT='" & CNT & "', USER='" & Seq & "'", cn)
 
                        '           4th LEVEL
                    ElseIf R.Item("REV") = "4" Then
                        COMPPN1 = ""
                        COMPPN2 = ""
                        COMPPN3 = ""
                        COMPPN4 = R.Item("ITEM5")
                        CNT4 = CNT4 + 1
                        ' Seq = 
                        Dim Update As New OleDbCommand("UPDATE TEMPTools SET ITEM1='" & COMPPN1 & "', ITEM2='" & COMPPN2 & "', ITEM3='" & COMPPN3 & "', ITEM4='" & COMPPN4 & "', USER='" & Seq & "'", cn)
                    End If
                Next
            End If
 
            '      RE-COUNT
            CNT = 0
 
            Dim MyTable2 As New DataTable
            Dim CNX2 As New OleDbDataAdapter("select * from TEMPTools ORBER BY USER", cn)
            CNX2.FillSchema(MyTable2, SchemaType.Source)
            CNX2.Fill(MyTable)
 
            If MyTable2.Rows.Count > 0 Then
                CNT = CNT + 10
                Dim Update As New OleDbCommand("UPDATE TEMPTools SET COUNT1='" & CNT & "', COUNT='" & CNT & "'", cn)
            End If
 
            '          OPEN REPORT
 
            If MyTable.Rows.Count > 0 Then
                For Each R As DataRow In MyTable.Rows
 
                    Dim PartNumber As String = R.Item("TRIM(PN)")
 
                    Dim ds As New DataSet
                    Dim cmd As New OleDbCommand("select * from tblToolRequisition where TRIM(PN)='" & PartNumber & "'", cn)
 
                    Dim da As New OleDbDataAdapter(cmd)
 
                    da.Fill(ds, "tblToolRequisition")
 
                    Dim dr As OleDbDataReader = cmd.ExecuteReader
                    While dr.Read()
                        AssyToolRoutingTemp.TextBox1.Text = "PN"
                        AssyToolRoutingTemp.TextBox2.Text = "RequistionNum"
                        AssyToolRoutingTemp.TextBox3.Text = "RequisitionID"
                        AssyToolRoutingTemp.TextBox4.Text = Format("Sequence", "000")
                        AssyToolRoutingTemp.TextBox5.Text = "SubSequence"
                        AssyToolRoutingTemp.TextBox7.Text = "Description"
                    End While
                    dr.Close()
                    cn.Close()
                Next
            End If
        End If

Cependant j'obtiens une erreur sur la ligne COMPPN1 = R.Item("ITEM5")

Citation:

System.InvalidCastException: 'Conversion from type 'DBNull' to type 'String' is not valid.'

De plus, j'essaie tjrs de comprendre comment faire pour definir cette ligne en VB.NET depuis le code VBA

Code:

Seq = Nz(DLookup("[USER]","[TEMPTools]","[ITEM5]='" & MyTable![PARTNUMBER]& "'"), "2.1.1") & "." & Format(CNT4, "00")

Je sais à quoi elle correspond en VBA mais je vois pas comment le retranscrire

Merci d'avance

26/03/2019, 17h43
Phil Rob

Bonjour,

Tu as cette erreur parce qu'il existe des champs ITEM5 non affecté dans la DB et de ce fait, ils sont NULL (de chez DB ...).
Il faut donc tester :
If NOT R.Item("ITEM5") Is DBNull.Value then ...

Pour ce qui est du DLookup, je ne l'ai jamais utilisé, mais ça sert à rechercher une valeur dans un plage (sauf erreur ...). Tu ne pourras pas directement traduire cette phrase en VB.Net. Le mieux est de t'informer suer le rôle exacte de cette fonction et de programmer toi-même son homologue en VB.Net.

Bonjour, desole pour le delai de reponse

ALors j'ai essaye mais j'ai une erreur sur la commande Update et impossible de trouver comment faire sur internet.
Normalement le reste du code est bon mais avec l'erreur sur l'Update j'en suis pas sur.
Je met tout mon code pour cette function, l'objectif de cette function etant d'afficher la structure d'un outil quand on clique sur le numero de l'outil

Le code est long mais c'est relativement la meme chose 4 fois au debut

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
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
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
        Dim i As Integer = DataGridView2.CurrentRow.Index
        Dim X As Integer
        With DataGridView2
            TextBox2.Text = DataGridView2.Item(6, DataGridView2.CurrentRow.Index).Value
            X = DataGridView2.Item(26, DataGridView2.CurrentRow.Index).Value
        End With
 
        cn.Open()
 
        Dim COMPPN1, COMPPN2, COMPPN3, COMPPN4, Seq As String
        Dim CNT, CNT1, CNT2, CNT3, CNT4 As Integer
        command = New OleDbCommand("DELETE * FROM TEMPTools", cn)
        command.ExecuteNonQuery()
 
        command = New OleDbCommand("INSERT INTO TEMPTools (ITEM5, RequistionNum, CompQty, PARTNUMBER, QTY, REV) SELECT TOOLDRG, RequistionNum, SourceID, ParentPartN, TRIM(RequisitionID),'" & "1" & "' FROM tblToolRequisition WHERE [RequisitionID] =" & X, cn)
        command.ExecuteNonQuery()
        command = New OleDbCommand("INSERT INTO TEMPTools (ITEM5, RequistionNum, CompQty, PARTNUMBER, QTY, REV) SELECT TOOLDRG, RequistionNum, SourceID, ParentPartN, TRIM(RequisitionID),'" & "2" & "'  FROM tblToolRequisition WHERE [ParentPartN] ='" & TextBox2.Text & "' AND [RequisitionID] =" & X, cn)
        command.ExecuteNonQuery()
        command = New OleDbCommand("INSERT INTO TEMPTools (ITEM5, RequistionNum, CompQty, PARTNUMBER, QTY, REV) SELECT TOOLDRG, RequistionNum, SourceID, ParentPartN, TRIM(RequisitionID),'" & "3" & "'  FROM tblToolRequisition WHERE [ParentPartN] IN(SELECT [ITEM5] FROM TEMPTools) AND [TOOLDRG] NOT IN(SELECT [ITEM5] FROM TEMPTools) AND [RequisitionID] =" & X, cn)
        command.ExecuteNonQuery()
        command = New OleDbCommand("INSERT INTO TEMPTools (ITEM5, RequistionNum, CompQty, PARTNUMBER, QTY, REV) SELECT TOOLDRG, RequistionNum, SourceID, ParentPartN, TRIM(RequisitionID),'" & "4" & "'  FROM tblToolRequisition WHERE [ParentPartN] IN(SELECT [ITEM5] FROM TEMPTools) AND [TOOLDRG] NOT IN(SELECT [ITEM5] FROM TEMPTools) AND [RequisitionID] =" & X, cn)
        command.ExecuteNonQuery()
        cn.Close()
 
        '       1st and 2nd LEVEL
        CNT1 = 0
        CNT2 = 0
        CNT3 = 0
        CNT4 = 0
 
        Dim MyTable As New DataTable
        Dim CNX As New OleDbDataAdapter("select * from TEMPTools ORDER BY REV", cn)
        CNX.FillSchema(MyTable, SchemaType.Source)
        CNX.Fill(MyTable)
 
        cn.Open()
        If MyTable.Rows.Count > 0 Then
            For Each R As DataRow In MyTable.Rows
                If Not R.Item("ITEM5") Is DBNull.Value Then
                    If R.Item("REV") = "2" Then
                        COMPPN1 = ""
                        COMPPN3 = ""
                        COMPPN4 = ""
                        COMPPN2 = R.Item("ITEM5")
                        CNT2 = CNT2 + 1
                        Seq = CNT1 & "." & Format(CNT2, "00")
                        Dim Update As New OleDbCommand("UPDATE TEMPTools SET ITEM1='" & COMPPN1 & "', ITEM2='" & COMPPN2 & "', ITEM3='" & COMPPN3 & "', ITEM4='" & COMPPN4 & "', USER='" & Seq & "'", cn)
                        Update.ExecuteNonQuery()
 
                    ElseIf R.Item("REV") = "1" Then
                        COMPPN2 = ""
                        COMPPN3 = ""
                        COMPPN4 = ""
                        COMPPN1 = R.Item("ITEM5")
                        CNT1 = CNT1 + 1
                        Seq = CNT1
                        Dim Update As New OleDbCommand("UPDATE TEMPTools SET (ITEM1='" & COMPPN1 & "', ITEM2='" & COMPPN2 & "', ITEM3='" & COMPPN3 & "', ITEM4='" & COMPPN4 & "', USER='" & Seq & "'", cn)
                        Update.ExecuteNonQuery()
 
                        '          3rd LEVEL
                    ElseIf R.Item("REV") = "3" Then
                        COMPPN1 = ""
                        COMPPN2 = ""
                        COMPPN4 = ""
                        COMPPN3 = R.Item("ITEM5")
                        CNT3 = CNT3 + 1
                        Seq = CNT1 & "." & CNT2 & "." & Format(CNT3, "00")
                        Dim Update As New OleDbCommand("UPDATE TEMPTools SET COUNT1='" & CNT & "', ITEM1='" & COMPPN1 & "', ITEM2='" & COMPPN2 & "', ITEM3='" & COMPPN3 & "', ITEM4='" & COMPPN4 & "',COUNT='" & CNT & "', USER='" & Seq & "'", cn)
                        Update.ExecuteNonQuery()
 
                        '           4th LEVEL
                    ElseIf R.Item("REV") = "4" Then
                        COMPPN1 = ""
                        COMPPN2 = ""
                        COMPPN3 = ""
                        COMPPN4 = R.Item("ITEM5")
                        CNT4 = CNT4 + 1
                        Seq = CNT1 & "." & CNT2 & "." & CNT4 & "." & Format(CNT4, "00")
                        Dim Update As New OleDbCommand("UPDATE TEMPTools SET ITEM1='" & COMPPN1 & "', ITEM2='" & COMPPN2 & "', ITEM3='" & COMPPN3 & "', ITEM4='" & COMPPN4 & "', USER='" & Seq & "'", cn)
                        Update.ExecuteNonQuery()
                    End If
                End If
            Next
        End If
        cn.Close()
 
        '      RE-COUNT
        CNT = 0
 
        Dim MyTable2 As New DataTable
        Dim CNX2 As New OleDbDataAdapter("select * from TEMPTools ORDER BY USER", cn)
        CNX2.FillSchema(MyTable2, SchemaType.Source)
        CNX2.Fill(MyTable)
 
        cn.Open()
        If MyTable2.Rows.Count > 0 Then
            CNT = CNT + 10
            Dim Update As New OleDbCommand("UPDATE TEMPTools SET COUNT1='" & CNT & "', COUNT='" & CNT & "'", cn)
        End If
        cn.Close()
 
        '          OPEN REPORT
        If MyTable.Rows.Count > 0 Then
            For Each R As DataRow In MyTable.Rows
                If Not R.Item("PARTNUMBER") Is DBNull.Value Then
 
                    Dim PartNumber As String = R.Item("PARTNUMBER")
 
                    Dim ds As New DataSet
                    Dim cmd As New OleDbCommand("select * from tblToolRequisition where PN='" & PartNumber & "'", cn)
 
                    Dim da As New OleDbDataAdapter(cmd)
 
                    da.Fill(ds, "tblToolRequisition")
 
                    cn.Open()
                    Dim dr As OleDbDataReader = cmd.ExecuteReader
                    While dr.Read()
                        AssyToolRoutingTemp.TextBox1.Text = dr(12).ToString
                        AssyToolRoutingTemp.TextBox2.Text = dr(16).ToString
                        AssyToolRoutingTemp.TextBox3.Text = dr(0).ToString
                        AssyToolRoutingTemp.TextBox4.Text = Format(dr(5).ToString, "000")
                        AssyToolRoutingTemp.TextBox5.Text = dr(6).ToString
                        AssyToolRoutingTemp.TextBox7.Text = dr(7).ToString
                    End While
                    dr.Close()
                    cn.Close()
                End If
            Next
        End If
        AssyToolRoutingTemp.Show()

Merci d'avance pour vos reponses

Salut,

Si tu remplaces :

Code:

Dim Update As New OleDbCommand("UPDATE TEMPTools SET (ITEM1='" & COMPPN1 & "', ITEM2='" & COMPPN2 & "', ITEM3='" & COMPPN3 & "', ITEM4='" & COMPPN4 & "', USER='" & Seq & "'", cn)

par :
Code:

1 2 Dim Test AS String = "UPDATE TEMPTools SET (ITEM1='" & COMPPN1 & "', ITEM2='" & COMPPN2 & "', ITEM3='" & COMPPN3 & "', ITEM4='" & COMPPN4 & "', USER='" & Seq & "'" Dim Update As New OleDbCommand(Test, cn)
tu pourras examiner le text de la requête et déceler une éventuelle faute de syntaxe (ex. un ' oublié).

Pour aller plus loin, si tu ne trouves pas l'erreur, il te faudra nous donner le message d'erreur qui t'est renvoyé par le SGBD.

Bon travail,

11/04/2019, 22h09
Invité

Salut,

J'ai trouve pourquoi ca ne marchait pas, il fallait rajouter la condition WHERE a la fin

Code:

Dim Update As New OleDbCommand("UPDATE TEMPTools SET [ITEM4]='" & COMPPN4 & "', [USER]='" & Seq & "'where [REV]='" & "4" & "'", cn)

Sans la condition WHERE, le programme ne sait pas quelle ligne il doit update.
12/04/2019, 18h25
Phil Rob

Ah oui, pour UPDATE, il faut impérativement désigner l'enregistrement.
Bravo !