Remplir une base de données ACCESS à partir des textBox [Résolu]
strafor
- Messages postés
- 35
- Date d'inscription
- dimanche 3 novembre 2013
- Dernière intervention
- 27 mai 2014
- Messages postés
- 35
- Date d'inscription
- dimanche 3 novembre 2013
- Dernière intervention
- 27 mai 2014
A voir également:
- Net access
- Remplir une base de données - Meilleures réponses
- Vb partir - Meilleures réponses
- Gérer une Base de données Access à partir d'une listebox sous VB ✓ - Forum - VB.NET
- C# remplir un treeview à partir d'une base de données access ✓ - Forum - C# / .NET
- Remplir combobox à partir d'une base de données access ✓ - Forum - VB.NET
- Créer une base de données access 2000 à partir de vb 6 - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- Déploiement d'une application ado.net vb.net avec base de données access - Forum - VB.NET
2 réponses
- Messages postés
- 3247
- Date d'inscription
- jeudi 26 novembre 2009
- Dernière intervention
- 26 décembre 2018
Salut
Private Function InsertLocataire() As Boolean
Dim conection As New OleDb.OleDbConnection
Dim command As OleDbCommand
Try
conection.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Users\ROLAND KOFFI\Documents\Visual Studio 2010\Projects\WindowsApplication3_LOYERS\WindowsApplication3_LOYERS\GestionLoyers1.accdb"
command.Connection = conection
command = New OleDbCommand()
command.CommandText = "INSERT INTO LOCATAIRES (Nom, Adresse,Ville,Pays) VALUES (?,?,?,?);"
command.Parameters.Add("?", OleDbType.BSTR).Value = textbox1.text
command.Parameters.Add("?", OleDbType.BSTR).Value = TextBox2.Text
command.Parameters.Add("?", OleDbType.BSTR).Value = TextBox3.Text
command.Parameters.Add("?", OleDbType.BSTR).Value = TextBox4.Text
command.ExecuteNonQuery()
conection.Close()
Return True
Catch ex As Exception
Return False
End Try
End Function
Private Function InsertLocataire() As Boolean
Dim conection As New OleDb.OleDbConnection
Dim command As OleDbCommand
Try
conection.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Users\ROLAND KOFFI\Documents\Visual Studio 2010\Projects\WindowsApplication3_LOYERS\WindowsApplication3_LOYERS\GestionLoyers1.accdb"
command.Connection = conection
command = New OleDbCommand()
command.CommandText = "INSERT INTO LOCATAIRES (Nom, Adresse,Ville,Pays) VALUES (?,?,?,?);"
command.Parameters.Add("?", OleDbType.BSTR).Value = textbox1.text
command.Parameters.Add("?", OleDbType.BSTR).Value = TextBox2.Text
command.Parameters.Add("?", OleDbType.BSTR).Value = TextBox3.Text
command.Parameters.Add("?", OleDbType.BSTR).Value = TextBox4.Text
command.ExecuteNonQuery()
conection.Close()
Return True
Catch ex As Exception
Return False
End Try
End Function
- Messages postés
- 35
- Date d'inscription
- dimanche 3 novembre 2013
- Dernière intervention
- 27 mai 2014
Merci beaucoup Bonsoir cs_ShayW
ton code sur les requêtes parametrées m'a permis résoudre le problème. le code marche parfaitement.
Merci à vous tous qui m'avez aider à résoudre. Vous m'avez permis de découvrir et d'apprendre à nouveau.
ton code sur les requêtes parametrées m'a permis résoudre le problème. le code marche parfaitement.
Merci à vous tous qui m'avez aider à résoudre. Vous m'avez permis de découvrir et d'apprendre à nouveau.
- Messages postés
- 35
- Date d'inscription
- dimanche 3 novembre 2013
- Dernière intervention
- 27 mai 2014
Pour tous ceux qui voudraient le code le voici :
Dim cmd As OleDb.OleDbCommand
Dim chaine As String
Dim conection As New OleDb.OleDbConnection
conection.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Users\ROLAND KOFFI\Documents\Visual Studio 2010\Projects\WindowsApplication3_LOYERS\WindowsApplication3_LOYERS\GestionLoyers1.accdb"
conection.Open()
chaine = "INSERT INTO LOCATAIRES(Nom, Adresse, Ville, Pays, Portable1, Portable2, Email, Commentaire) VALUES (?,?,?,?)"
cmd = New OleDb.OleDbCommand(chaine, conection)
With cmd.Parameters
.Add("?", OleDb.OleDbType.BSTR).Value = TextBox1.Text
.Add("?", OleDb.OleDbType.BSTR).Value = TextBox2.Text
.Add("?", OleDb.OleDbType.BSTR).Value = TextBox3.Text
.Add("?", OleDb.OleDbType.BSTR).Value = TextBox4.Text
End With
cmd.ExecuteNonQuery()
conection.Close()
Je remercie tous les membres du forum pour leur aide qui m'a permis de résoudre mon problème.
Dim cmd As OleDb.OleDbCommand
Dim chaine As String
Dim conection As New OleDb.OleDbConnection
conection.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Users\ROLAND KOFFI\Documents\Visual Studio 2010\Projects\WindowsApplication3_LOYERS\WindowsApplication3_LOYERS\GestionLoyers1.accdb"
conection.Open()
chaine = "INSERT INTO LOCATAIRES(Nom, Adresse, Ville, Pays, Portable1, Portable2, Email, Commentaire) VALUES (?,?,?,?)"
cmd = New OleDb.OleDbCommand(chaine, conection)
With cmd.Parameters
.Add("?", OleDb.OleDbType.BSTR).Value = TextBox1.Text
.Add("?", OleDb.OleDbType.BSTR).Value = TextBox2.Text
.Add("?", OleDb.OleDbType.BSTR).Value = TextBox3.Text
.Add("?", OleDb.OleDbType.BSTR).Value = TextBox4.Text
End With
cmd.ExecuteNonQuery()
conection.Close()
Je remercie tous les membres du forum pour leur aide qui m'a permis de résoudre mon problème.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.
Je vous remercie de votre précieux temps que vous m'accordiez pour m'aider résoudre le problème auquel je suis confronté
Effectivement je me suis rendu compte que lorsque mes textbox contiennent un apostrophe ma requête deveint incorrecte et le message d'érreur s'affiche.
Sans les apostrophes la requête marche parfaitement.
Pourtant je souhaite utiliser des apostrophes puisque certains des noms comportent des apostrophes dans leur écriture.
Est - il possible d'utiliser des textbox avec des apostrophes?
Si oui, comment y procéder?
Merci d'avance de votre aide.
- Messages postés
- 35
- Date d'inscription
- dimanche 3 novembre 2013
- Dernière intervention
- 27 mai 2014
-j'ai essayé à nouveau en doublant les '. mais le problème demeure toujours.
- Messages postés
- 35
- Date d'inscription
- dimanche 3 novembre 2013
- Dernière intervention
- 27 mai 2014
-Une aide de plus dans ce sens me permettrait de franchir une grande étape de mon travail.
Merci beaucoup pour votre aide.
- Messages postés
- 35
- Date d'inscription
- dimanche 3 novembre 2013
- Dernière intervention
- 27 mai 2014
-Merci infiniment