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
| Imports System.Data.SqlClient
Public Class NvDossierct
Dim con As New SqlConnection
Private Sub NvDossier_Load(sender As Object, e As EventArgs) Handles MyBase.Load
con.ConnectionString = "Data Source=NOURELFERDOUS\SQLEXPRESS;Initial Catalog=mOnia;Integrated Security=True;Pooling=False"
'TODO: cette ligne de code charge les données dans la table 'MOniaDataSet1.CT'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
Me.CTTableAdapter.Fill(Me.MOniaDataSet1.CT)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
con.Open()
Dim idct As Integer = Id_CTTextBox.Text
Dim nd As String = NDossier_CTTextBox.Text
Dim ntel As String = NTel_CTTextBox.Text
Dim nom As String = Nom_CTTextBox.Text
Dim prenom As String = Prenom_CTTextBox.Text
Dim idm As Integer = ID_MComboBox.TabIndex
Dim nomprelevement As String = NomPrelevement_CTTextBox.Text
Dim honoraire As Integer = Honoraire_CTTextBox.Text
Dim recu As Integer = Recu_CTTextBox.Text
Dim dateE As Date = DateE_CTDateTimePicker.Value
Dim dateS As Date = DateS_CTDateTimePicker.Value
Dim cnam As String = EtatCNAM_CTTextBox.Text
Dim idc As Integer = ID_CTextBox.Text
Dim remarque As String = Remarque_CTTextBox.Text
Dim cmd As New SqlCommand(("INSERT INTO [CT] ([Id_CT], [NDossier_CT], [NTel_CT], [Nom_CT], [Prenom_CT], [ID_M], [NomPrelevement_CT], [Honoraire_CT], [Recu_CT], [DateE_CT], [DateS_CT], [EtatCNAM_CT], [ID_C], [Remarque_CT]) VALUE('" & idct & "','" & nd & "','" & ntel & "','" & nom & "','" & prenom & "','" & idm & "','" & nomprelevement & "','" & honoraire & "','" & recu & "','" & dateE & "','" & dateS & "','" & cnam & "','" & idc & "','" & remarque & "'"), con)
Try
cmd.ExecuteNonQuery()
con.Close()
MsgBox("Enregistrer", MsgBoxStyle.Information, "ok")
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
End Class |
