1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
dim fom1 as new Form1
Dim connection As New SqlConnection("Data Source=.\ITS4;Initial Catalog=PROJET;User ID=sa;Password=passer")
Try
connection.Open()
Dim requeteAjout As String
requeteAjout = "insert into Exposants(Numquestionnaire) values (@Numquestionnaire)"
Dim commandeAjout As New SqlCommand(requeteAjout, connection)
commandeAjout.Parameters.Add(New SqlParameter("@Numquestionnaire", SqlDbType.VarChar, 4))
commandeAjout.Parameters("@Numquestionnaire").Value = form1.textbox.Text
commandeAjout.ExecuteNonQuery()
connection.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try |
Partager