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
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = UCase$(TextBox1.Text)
create_marque = TextBox1.Text
Connection.Open()
cmd.Connection = Connection
cmd.CommandText = "Select Id from Marques where Marque='" & create_marque & "'"
dtReader = cmd.ExecuteReader()
If dtReader.HasRows = False Then
dtReader.Close()
cmd.CommandText = "INSERT INTO Marques (Marque) Values ('" & create_marque & "')"
cmd.ExecuteNonQuery()
MsgBox("La marque " & create_marque & " a bien été créée")
cmd.CommandText = "Select Id from Marques where Marque='" & create_marque & "'"
dtReader = cmd.ExecuteReader()
dtReader.Read()
create_marque_id = dtReader.Item("Id")
dtReader.Close()
Me.Hide()
Else
MsgBox("La marque " & create_marque & " existe déja")
dtReader.Close()
create_marque_id = 0
End If
Connection.Close()
End Sub |
Partager