Public Class personne Public Sub ajouter() Dim cnx As New OleDbConnection cnx.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data source=C:\Users\iheb\Desktop\WindowsApplication1\WindowsApplication1\bin\Debug\Thamer database.accdb;" Try cnx.Open() 'Dim requete As String = "insert into Customer values('" & Nothing & "','" & Client.TextBox1.Text & "','" & Client.TextBox2.Text & "','" & Client.TextBox10.Text & "','" & Client.TextBox3.Text & "','" & Client.TextBox11.Text & "','" & Client.TextBox12.Text & "','" & Client.TextBox4.Text & "','" & Client.TextBox5.Text & "','" & Client.ComboBox1.Text & "','" & Client.TextBox7.Text & "','" & Client.TextBox8.Text & "','" & Client.TextBox14.Text & "','" & Client.TextBox9.Text & "','" & Client.TextBox13.Text & "','" & Client.TextBox15.Text & "','" & Client.PictureBox1.ImageLocation & "','" & Client.PictureBox2.ImageLocation & "' )" MsgBox(Client.TextBox1.Text) 'Dim requete As String = "insert into customer values ('" & Client.TextBox6.Text & "','" & Client.TextBox2.Text & "')" Dim requete As String = "INSERT INTO Customer([Customer Name], [Contact Name], [Contact Title], Address, City, [PO Box], Products, [Customer Ref], Country, [Phone Number], [Mobile Phone], [Fax Number], [Payment Terms], [Email Address], Notes, [Customer Buisness Cards], [Cutomer Logo]) VALUES ('" & Client.TextBox1.Text & "', '" & Client.TextBox2.Text & "', '" & Client.TextBox10.Text & "', '" & Client.TextBox3.Text & "', '" & Client.TextBox11.Text & "', '" & Client.TextBox12.Text & "', '" & Client.TextBox4.Text & "', '" & Client.TextBox5.Text & "', '" & Client.ComboBox1.Text & "', '" & Client.TextBox7.Text & "', '" & Client.TextBox8.Text & "', '" & Client.TextBox14.Text & "', '" & Client.TextBox9.Text & "', '" & Client.TextBox13.Text & "', '" & Client.TextBox15.Text & "', '" & Client.PictureBox1.ImageLocation & "', '" & Client.PictureBox2.ImageLocation & "')" Dim cmd As OleDbCommand = New OleDbCommand(requete, cnx) If cmd.ExecuteNonQuery() > 0 Then MessageBox.Show("Contact ajouté", "Ajout", MessageBoxButtons.OK, MessageBoxIcon.Information) Else MessageBox.Show("Contact non ajouté", "Ajout", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) End If Catch ex As Exception If cnx.State <> ConnectionState.Closed Then cnx.Close() MessageBox.Show("Echec :" & ex.Message, "Ajout", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub End Class
Dim cnx As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data source=le chemin de la base\base.accdb;") Try cnx.Open() Dim requete As String = "INSERT INTO (LaTable Nom, Prenom, Age, Adresse) VALUES ('" & _ txt_Nom.Text & "', " & _ txt_Prenom.Text & "', '" & _ txt_Age.Text & "', '" & _ txt_Adresse.Text & "')" Dim cmd As OleDbCommand = New OleDbCommand(requete, cnx) If cmd.ExecuteNonQuery() > 0 Then MessageBox.Show("Contact ajouté", "Ajout", MessageBoxButtons.OK, MessageBoxIcon.Information) Else MessageBox.Show("Contact non ajouté", "Ajout", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) End If Catch ex As Exception If cnx.State <> ConnectionState.Closed Then cnx.Close() MessageBox.Show("Echec :" & ex.Message, "Ajout", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try
Dim requete As String = "INSERT INTO (LaTable Nom, Prenom, Age, Adresse) VALUES ('" & _ txt_Nom.Text & "', '" & _ txt_Prenom.Text & "', '" & _ txt_Age.Text & "', '" & _ txt_Adresse.Text & "')"
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim requete As String = "INSERT INTO Customer VALUES (" & _ Client.TextBox16.Text & "','" & _ Client.TextBox1.Text & "', '" & _ Client.TextBox2.Text & "', '" & _ Client.TextBox10.Text & "', '" & _ Client.TextBox3.Text & "', '" & _ Client.TextBox11.Text & "', '" & _ Client.TextBox12.Text & "', '" & _ Client.TextBox4.Text & "', '" & _ Client.TextBox5.Text & "', '" & _ Client.ComboBox1.Text & "', '" & _ Client.TextBox7.Text & "', '" & _ Client.TextBox8.Text & "', '" & _ Client.TextBox14.Text & "', '" & _ Client.TextBox9.Text & "', '" & _ Client.TextBox13.Text & "', '" & _ Client.TextBox15.Text & "', '" & _ Client.TextBox16.Text & "', '" & _ Client.TextBox16.Text & "')"
Public Class personne Public Sub ajouter() Dim cnx As New OleDbConnection cnx.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data source=C:\Users\iheb\Desktop\Database1.accdb;" Try cnx.Open() 'Dim requete As String = "insert into Customer values('" & Nothing & "','" & Client.TextBox1.Text & "','" & Client.TextBox2.Text & "','" & Client.TextBox10.Text & "','" & Client.TextBox3.Text & "','" & Client.TextBox11.Text & "','" & Client.TextBox12.Text & "','" & Client.TextBox4.Text & "','" & Client.TextBox5.Text & "','" & Client.ComboBox1.Text & "','" & Client.TextBox7.Text & "','" & Client.TextBox8.Text & "','" & Client.TextBox14.Text & "','" & Client.TextBox9.Text & "','" & Client.TextBox13.Text & "','" & Client.TextBox15.Text & "','" & Client.PictureBox1.ImageLocation & "','" & Client.PictureBox2.ImageLocation & "' )" MsgBox(Client.TextBox1.Text) 'Dim requete As String = "insert into customer values ('" & Client.TextBox6.Text & "','" & Client.TextBox2.Text & "')" Dim requete As String = "INSERT INTO Customer VALUES ('" & Client.TextBox16.Text & "','" & Client.TextBox1.Text & "', '" & Client.TextBox2.Text & "', '" & Client.TextBox10.Text & "', '" & Client.TextBox3.Text & "', '" & Client.TextBox11.Text & "', '" & Client.TextBox12.Text & "', '" & Client.TextBox4.Text & "', '" & Client.TextBox5.Text & "', '" & Client.ComboBox1.Text & "', '" & Client.TextBox7.Text & "', '" & Client.TextBox8.Text & "', '" & Client.TextBox14.Text & "', '" & Client.TextBox9.Text & "', '" & Client.TextBox13.Text & "', '" & Client.TextBox15.Text & "', '" & Client.TextBox16.Text & "', '" & Client.TextBox16.Text & "')" Dim cmd As OleDbCommand = New OleDbCommand(requete, cnx) If cmd.ExecuteNonQuery() > 0 Then MessageBox.Show("Contact ajouté", "Ajout", MessageBoxButtons.OK, MessageBoxIcon.Information) Else MessageBox.Show("Contact non ajouté", "Ajout", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) End If Catch ex As Exception If cnx.State <> ConnectionState.Closed Then cnx.Close() MessageBox.Show("Echec :" & ex.Message, "Ajout", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub End Class
le champ texte Client.TextBox16.Text est un champ vide qui a comme propriété visible=false c'est à dire un champ vide pour l'utilisé dans le champ auto incrément, le message qui s'affiche maintenant est "number of query values and destination fileds are not the same" c'est à dire que le nombre de champs de saisies et celui de la table n'est pas le même alors que c'est pas vrai g 18 champs de saisie et 18 champs dans ma table customer
Dim requete As String = "INSERT INTO Customer VALUES (" & _ Client.TextBox16.Text & "','" & _Il manque un ' avant ce premier champ
Try Me.Validate() Me.Nom_base_de_tableBindingSource.EndEdit() Me.Nom_base_de_tableTableAdapter.Update(Me.Nom_base_de_donnéeDataSet.Nom_base_de_table) MessageBox.Show("Enregistrement Réussi!", "Réussite", MessageBoxButtons.OK, MessageBoxIcon.Information) Me.Nom_base_de_tableBindingNavigator.Enabled = True Catch ex As Exception MessageBox.Show("Enregistrement impossible, cette personne existe déja", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error) Me.Nom_base_de_tableBindingNavigator.Enabled = False End Try
tu peux aussi le faire de manière simple pour l'insertion en utilisant ce code:
si il utilise Vb.net,il n'aura qu'à "ajouter une nouvelle source de donnée"(indiquez sa base de données) et la configuration du dataset et autre se feront automatiquement sans trop de difficultés...