[VB6 + ADO] Help pour un newbie !

Marsh Posté le 08-02-2004 à 19:02:04

bon voila je me lance dans ADO mé ca foire :fou: et je vois pas l'erreur...
aidez moi siouplé

Citation :

Dim cnx As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset
Dim prm As New ADODB.Parameter
______________________________________________________

Private Sub Command1_Click()

cmd.CommandText = "INSERT INTO client (titre, auteur) VALUES ('coucou', 'coucouman')"

cmd.Execute

End Sub
_______________________________________________________

Private Sub Form_Load()

cnx.Provider = "Microsoft.Jet.Oledb.3.51"
cnx.ConnectionString = "bdd.mdb"
cnx.Open

End Sub

erreur d'exécution '3709':
impossible d'utiliser cette connection pour effectuer cette opération. Elle est fermée ou non valide dans ce context.

Message édité par Dr Raf le 08-02-2004 à 19:07:16

Reply

Marsh Posté le 08-02-2004 à 19:02:04

Reply

Marsh Posté le 08-02-2004 à 19:18:57

contrôle l'etat de ta connexion (cnx.State) avant de balancer une requête.

---------------
What if I were smiling and running into your arms? Would you see then what I see now?

Reply

Marsh Posté le 08-02-2004 à 19:20:49

t'as oublié de rattacher la commande à la connection

Code :

cmd.ActiveConnection = cnx;

---------------
J'ai un string dans l'array (Paris Hilton)

Reply

Marsh Posté le 08-02-2004 à 19:34:29

ouiiiiiii ca marche merciiiiii (on sent le mek ki se prenait le brain.)

Reply

Marsh Posté le 08-02-2004 à 20:36:01

et sinon immaginons toujours pour la meme commande, comment on fait pour utiliser plusieurs paramètre sur une seul commande genre un paramètre pour la table et un pour la condition ?

Reply

Marsh Posté le 09-02-2004 à 00:09:53

up :sweat:

g aussi un autre prob :

Citation :

cmd.CommandText = "DELETE FROM objet WHERE id = ?"

prm.Name = "id"
prm.Type = adBSTR
prm.Direction = adParamInput
prm.Value = Grid_obj.Text

cmd.Execute

aucune valeur donnée pour un ou plusieurs paramètres requis

???

Reply

Marsh Posté le 09-02-2004 à 00:26:40

Dr Raf a écrit :

up :sweat:

g aussi un autre prob :

Citation :

cmd.CommandText = "DELETE FROM objet WHERE id = ?"

prm.Name = "id"
prm.Type = adBSTR
prm.Direction = adParamInput
prm.Value = Grid_obj.Text

cmd.Execute

aucune valeur donnée pour un ou plusieurs paramètres requis

???

ça serait pas plus simple de faire

Code :

cmd.CommandText = "DELETE FROM objet WHERE id = " & Grid_obj.Text
cmd.Execute

---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack

Reply

Marsh Posté le 09-02-2004 à 00:31:05

hum woué :sweat:

mé enfaite ca me fé toujours le meme prob :fou:

Reply

Marsh Posté le 09-02-2004 à 00:33:45

Dr Raf a écrit :

hum woué :sweat:

mé enfaite ca me fé toujours le meme prob :fou:

Persoinnelement, je n'utilise jamais l'objet Command pour executer des requètes, je passe par l'objet Connection. comme ceci:

Code :

cnx.execute "DELETE FROM objet WHERE id = " & Grid_obj.Text

---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack

Reply

Marsh Posté le 09-02-2004 à 00:40:37

mareek a écrit :

Persoinnelement, je n'utilise jamais l'objet Command pour executer des requètes, je passe par l'objet Connection. comme ceci:

Code :

cnx.execute "DELETE FROM objet WHERE id = " & Grid_obj.Text

c bon g trouvé

Code :

cmd.CommandText = "DELETE FROM objet WHERE id = '" & Grid_obj.Text & "'"

donc si je comprend bien command c util seulement si l'on a des pamaretres ?

thx en tout ka !

Message édité par Dr Raf le 09-02-2004 à 00:45:38

Reply

Marsh Posté le 09-02-2004 à 00:40:37

Reply

Marsh Posté le 09-02-2004 à 00:48:11

Dr Raf a écrit :

c bon g trouvé

Code :

cmd.CommandText = "DELETE FROM objet WHERE id = '" & Grid_obj.Text & "'"

donc si je comprend bien command c util seulement si l'on a des pamaretres ?

thx en tout ka !

Excuse, je pênsait que ton ID était un nombre donc j'ai pas pensé à ajouter les quotes

---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack

Reply

Marsh Posté le 09-02-2004 à 01:14:31

pas de prob

Reply

[VB6 + ADO] Help pour un newbie !

Sujets relatifs:

Leave a Replay