Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionconnection() connexion.Open() Dim strRequete As String = "SELECT * FROM cliente" Dim dtt As DataTable Dim oSqlDataAdapter As New SqlDataAdapter(strRequete, connexion) Dim oDataSet As New DataSet("cliente") oSqlDataAdapter.Fill(oDataSet, "cliente") dtt = oDataSet.Tables("cliente") oSqlDataAdapter.InsertCommand = New SqlCommand("INSERT INTO client(article_c,prix_c,quantité,cloture) Values(@ar,@px,@qt,@clo)", connexion) oSqlDataAdapter.InsertCommand.Parameters.Add("@pr", SqlDbType.VarChar, 20, "article_c") oSqlDataAdapter.InsertCommand.Parameters.Add("@px", SqlDbType.Real, 5, "prix_c") oSqlDataAdapter.InsertCommand.Parameters.Add("@qt", SqlDbType.Real, 5, "quantité_c") oSqlDataAdapter.InsertCommand.Parameters.Add("@clo", SqlDbType.Binary, 2, "cloture") Dim oDataRow As DataRow oDataRow = oDataSet.Tables("cliente").NewRow() oDataRow("article_c") = articleTextBox.Text oDataRow("prix_c") = prixTextBox.Text oDataRow("quantité") = quantiteTextBox.Text oDataRow("cloture") = CheckBox1.Checked oDataSet.Tables("cliente").Rows.Add(oDataRow) oSqlDataAdapter.Update(oDataSet, "cliente") oDataSet.Clear() oSqlDataAdapter.Fill(oDataSet, "cliente") dtt = oDataSet.Tables("cliente") MsgBox("Article enregistré avec succés", MsgBoxStyle.Information, "Status") connexion.Close()