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 sauvegarder(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim oradb As String = "Data Source=(DESCRIPTION=(ADDRESS_LIST=" _
+ "(ADDRESS=(PROTOCOL=TCP)(HOST=127.0.0.1)(PORT=1521)))" _
+ "(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=XE)));" _
+ "User Id=system;Password=aymen;"
Dim conn As New OracleConnection(oradb)
conn.Open()
If ncin.Text = "" Or nom.Text = "" Or prenom.Text = "" Or adresse.Text = "" Or ville.Text = "" Or numtel.Text = "" Then
MsgBox("veuillez remplir tous les champs", MsgBoxStyle.OkOnly)
Else
Dim cmd As New OracleCommand("insert_anim", conn)
cmd.CommandType = CommandType.StoredProcedure
Dim param1 As OracleParameter = cmd.Parameters.Add("cinanim", ncin.Text)
Dim param2 As OracleParameter = cmd.Parameters.Add("nomnim", nom.Text)
Dim param3 As OracleParameter = cmd.Parameters.Add("prenomanim", prenom.Text)
Dim param4 As OracleParameter = cmd.Parameters.Add("villeanim", ville.Text)
Dim param5 As OracleParameter = cmd.Parameters.Add("adresseanim", adresse.Text)
Dim param6 As OracleParameter = cmd.Parameters.Add("numtelanim", numtel.Text)
Dim param7 As OracleParameter = cmd.Parameters.Add("dispanim", disp.Text)
cmd.ExecuteNonQuery()
MsgBox("animateur ajouté avec succée", MsgBoxStyle.OkOnly)
recherche.Show()
Me.Hide()
conn.Dispose()
End If
End Sub |
Partager