update bdd non fonctionnel

Bonjour,

Je viens juste de mettre au développement en vb.net.
j'ai réalisé un programme, il s'execute, pas d'erreur, mais aucun traitement.
J'ai testé ma requete de mise à jour en SQL, OK
Voici mon code:

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
 
Imports System.Data.SqlClient
Imports System.Data
Imports System.Data.OleDb
 
 
 
Module Module1
 
    Sub Main()
 
        Dim MAJ As SqlCommand = Nothing
 
        Try
            Dim SAGE As New SqlClient.SqlConnection("Data source=localhost;Initial Catalog=C_CIDETEST; User Id=Myp;Password=Myp;")
            Dim MajFact As String = "Update F_ECRITUREC 
            Set Trt='1' , [OS/BT] = [1_VUE_FACT].REF_CLIENT, [Numéro Marché]=[1_VUE_FACT].NUM_MARCHE,
            Affaire= [1_VUE_FACT].ADRESSE1BL+ ' '+.[1_VUE_FACT].VILLEBL, [Chargé d'affaires]=[1_VUE_FACT].CODEREP
            From F_ECRITUREC inner join dbo.[1_VUE_FACT] ON dbo.[1_VUE_FACT].NUMERO = dbo.F_ECRITUREC.EC_RefPiece
            WHERE (dbo.F_ECRITUREC.Trt <> '1')"
            MAJ = New SqlCommand(MajFact, SAGE)
            MAJ.Connection.Open()
            MAJ.ExecuteNonQuery()
            MAJ.Connection.Close()
 
        Catch test As Exception
            MsgBox("Pas de traitement")
 
        End Try
 
    End Sub
 
End Module

Merci de votre aide.

cordialement,