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 : 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
 
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,