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
76
| Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Database_Connection()
Dim dt As New DataTable
Dim da As New OleDbDataAdapter
da = New OleDbDataAdapter("Select distinct numero_salle from Tbl_commission", Constring)
da.Fill(dt)
ComboBox1.DataSource = dt
ComboBox1.DisplayMember = "numero_salle"
ComboBox1.SelectedIndex = -1
TextBox2.Text = vbNullString
End Sub
Public Function Get_Max_Record_Id_Tbl_Candidat()
Dim Number As Integer
Try
Dim cmd As New OleDbCommand(" Select max(Id) from Tbl_candidat ", Constring)
If Constring.State = 1 Then Constring.Close()
Constring.Open()
Number = cmd.ExecuteScalar
Constring.Close()
Catch ex As Exception
Number = 0
Constring.Close()
End Try
Return Number
End Function
Private Sub Get_Max_Record_Numero_Inscription()
Using Command As New OleDbCommand("Select max(numero_inscription) from Tbl_candidat", Constring)
If Constring.State = ConnectionState.Closed Then Constring.Open()
If Command.ExecuteScalar Is DBNull.Value Then
TextBox3.Text = "00000000"
Else
TextBox3.Text = Command.ExecuteScalar().ToString() + 1
End If
Constring.Close()
End Using
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If MsgBox(" voulez - vous vraiment ajouter un nouveau record ? ", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, "avertissement") = MsgBoxResult.Cancel Then Exit Sub
TextBox1.Text = Get_Max_Record_Id_Tbl_Candidat() + 1
Call Get_Max_Record_Numero_Inscription()
ComboBox1.Focus()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Constring.Open()
Dim sqlQry As String = "Insert into [Tbl_candidat] (id, numero_salle, numero_inscription) values (@id, @numero_salle ,@numero_inscription)"
Using cmd As New OleDbCommand(sqlQry, Constring)
cmd.Parameters.AddWithValue("@id", TextBox1.Text)
cmd.Parameters.AddWithValue("@numero_salle", TextBox2.Text)
cmd.Parameters.AddWithValue("@numero_inscription", TextBox3.Text)
Dim SaveOk As Integer = cmd.ExecuteNonQuery()
If SaveOk <> -1 Then
MsgBox("Succees d'enregistrement")
End If
Get_Max_Record_Numero_Inscription()
ComboBox1.SelectedIndex = -1
TextBox1.Text = vbNullString
TextBox2.Text = vbNullString
TextBox3.Text = vbNullString
End Using
Constring.Close()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
ComboBox1.SelectedIndex = -1
TextBox1.Text = vbNullString
TextBox2.Text = vbNullString
TextBox3.Text = vbNullString
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.Text IsNot Nothing Then
TextBox2.Text = ComboBox1.Text
End If
End Sub
End Class |
Enregistrement avec special message d'erreur
Répondre avec citation
Partager