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:
Merci de votre aide.
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
cordialement,
Partager