insert ne fonctionne pas

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : insert ne fonctionne pas

billut

bonjour à tous,
voila j'ai un petit problème,
j'arrive à me connecter à ma base access et à selectionner des enregistrements.
Lorsque je fais un ajout, cela m'ajoute dans mon application (lorsque je fais un refresh) l'enregistrement que je souhaite mais pas dans la base de données... du coup à chaque fois que je relance mon programme, tout disparait.

voici mon code :

Code :

'requête SQL insert_prof = "INSERT INTO professeur (nom, prenom) VALUES ('toto','titi')"
'Parametrage de la chaine de connection
Connection.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source= " & Application.StartupPath & "\" & "base.mdb;"
'Création d'un objet commande
Dim cmd As New OleDb.OleDbCommand
MsgBox(insert_prof)
cmd = New OleDbCommand(insert_prof)
'on récupère la connexion dans l'objet
cmd.Connection() = Connection
'ouverture de la connection
Connection.Open()
Try
'je lance la requête
cmd.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.ToString())
End Try
'Fermeture de la connection
Connection.Close()
Me.Close()

merci d'avance pour votre aide..

Message édité par billut le 14-11-2007 à 11:20:35

Publicité

devil_k

Rien à voir avec ton souci, hein mais... On peut faire des try/catch en VBA ? ô_O
C'est récent comme fonctionnalité ?

Sinon, je trouve redondant l'utilisation du new pour ton cmd (lors de la déclaration et de l'affectation) mais ça devrait pas faire avancer ton problème...

ptet qu'à la ligne 12 il prendrait un Connection.ConnectionString plutôt ?

Enfin la seule appli du genre que j'ai faite, c'était en Java avec une base MySql, du coup je peux moyennement t'aider vu que je connais pas les objets :s

billut

Bonjour,
tout d'abord, merci pour ta réponse.

Je ne pense pas que mon problème vienne de la connection étant donné que lorsque je fais un "select", je vois le bon résultat dans mon application :

Code :

'Parametrage de la chaine de connection
Connection.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source= " &
Application.StartupPath & "\" & "base.mdb;"
'ouverture de la connection
Connection.Open()
Dim command As New OleDbCommand("SELECT * FROM professeur", Connection)
Dim MaLecture As OleDbDataReader
MaLecture = command.ExecuteReader
While MaLecture.Read()
'Création d'un objet commande
Dim cmd As New OleDb.OleDbCommand
'on récupère la connexion dans l'objet
cmd.Connection() = Connection
'nouvelle requête
select_prof = "select * from professeur"
cmd = New OleDbCommand(select_prof, Connection)
'on lance la requête
cmd.ExecuteNonQuery()
ListBox1.Items.Add(MaLecture.Item(1))
ListBox2.Items.Add(MaLecture.Item(2))
ListBox1.Refresh()
ListBox2.Refresh()
End While
'Fermeture de la connection
Connection.Close()

je pense plutot que mon application "garde en mémoire" l'action de mon insert mais ne lexécute pas correctement dans la bdd.

sinon c'est du vb 2005.

si vous avez d'autres suggestions je suis preneur.

merci d'avance

FORUM HardWare.fr

Programmation

VB/VBA/VBS

insert ne fonctionne pas

Sujets relatifs
Cadre fixe sous IE décalé sous firefox	Requête MySQL qui fonctionne dans PhpMyAdmin mais pas dans mon script
checkbox ne fonctionne pas	SQL Server 2005 - INSERT multiples
[FLASH] Preloader en ligne de fonctionne pa	[asp.NET][C#] Site fonctionne en local mais pas a distance
[ASP.NET] Ma commande SQL INSERT INTO ne fonctionne pas !	Ma commande SQL INSERT INTO ne fonctionne pas !
[RESOLU]Ma commande SQL INSERT INTO ne fonctionne plus !	mon insert ne fonctionne pas...??? [ edit : certaines infos sont null]
Plus de sujets relatifs à : insert ne fonctionne pas

Page générée en 0.048 secondes