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
|
Private Sub TableChronoBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TableChronoBindingNavigatorSaveItem.Click
If NumTypCréditComboBox.Text = "Crédit Emménagement" Then
vTypCrédit = 1
End If
Me.Validate()
Me.TableChronoBindingSource.EndEdit()
Me.TableChronoTableAdapter.Update(Me.BDChrono2DataSet.TableChrono)
Dim maConnexionSQLsrv As SqlClient.SqlConnection
Dim myCommand As SqlClient.SqlCommand
Dim maRequete, ConnexionSQL As String
'Récupération de la chaine de connexion au serveur de base de données
ConnexionSQL = ("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\Bureau\Chrono\Chrono\BDChrono.mdf;Integrated Security=True;User Instance=True")
maConnexionSQLsrv = New SqlClient.SqlConnection(ConnexionSQL)
'Requete mise a jour de la table client
maRequete = "INSERT INTO [TabChrono] ( [PriseCont],[Infos],[Devis],[Preac],[Offre],[DosLoc],[Reporting],[Misesouspli],[NumTypCrédit]) VALUES (@vPriseCont,@vInfos,@vDevis,@vPreac,@vOff,@vDosLoc,@vReporting,@vMisesouspli,@vTypCrédit)"
'Création de la commande SQL
myCommand = New SqlClient.SqlCommand(maRequete, maConnexionSQLsrv)
'Création et décalartion des paramètres
With myCommand.Parameters
.Add(New SqlClient.SqlParameter("@vPriseCont", SqlDbType.Variant, 15))
.Add(New SqlClient.SqlParameter("@vInfos", SqlDbType.Variant, 25))
.Add(New SqlClient.SqlParameter("@vDevis", SqlDbType.Variant, 25))
.Add(New SqlClient.SqlParameter("@vPreac", SqlDbType.Variant, 25))
.Add(New SqlClient.SqlParameter("@vOff", SqlDbType.Variant, 25))
.Add(New SqlClient.SqlParameter("@vDosLoc", SqlDbType.Variant, 25))
.Add(New SqlClient.SqlParameter("@vReporting", SqlDbType.Variant, 25))
.Add(New SqlClient.SqlParameter("@vMisesouspli", SqlDbType.Variant, 25))
.Add(New SqlClient.SqlParameter("@vTypCrédit", SqlDbType.Variant, 25))
End With
'Attribution des valeurs aux paramètres
With myCommand
.Parameters("@vPriseCont").Value = vPriseContLabel1.Text
.Parameters("@vInfos").Value = vInfosLabel1.Text
.Parameters("@vDevis").Value = vDevisLabel1.Text
.Parameters("@vPreac").Value = vPreacLabel1.Text
.Parameters("@vOff").Value = vOffreLabel1.Text
.Parameters("@vDosLoc").Value = vDosLocLabel1.Text
.Parameters("@vReporting").Value = vReportingLabel1.Text
.Parameters("@vMisesouspli").Value = vMisesouspliLabel1.Text
.Parameters("@vTypCrédit").Value = NumTypCréditComboBox.Text
End With
Try
'Execution de la requête
myCommand.Connection.Open()
myCommand.ExecuteNonQuery()
myCommand.Connection.Close()
Catch ex As SqlClient.SqlException
'Response.Write(ex.Message)
End Try
End Sub |
