[VB6 + ADO] Help pour un newbie !

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VB6 + ADO] Help pour un newbie !

Dr Raf

Roaccutane® powered

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

Publicité

jagstang

Pa Capona ಠ_ಠ

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?

Harkonnen

Modérateur
Un modo pour les bannir tous

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

Code :

cmd.ActiveConnection = cnx;

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

Dr Raf

Roaccutane® powered

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

Dr Raf

Roaccutane® powered

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 ?

Dr Raf

Roaccutane® powered

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

???

mareek

Et de 3 \o/

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

Dr Raf

Roaccutane® powered

hum woué :sweat:

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

mareek

Et de 3 \o/

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

Dr Raf

Roaccutane® powered

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

Publicité

mareek

Et de 3 \o/

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

Dr Raf

Roaccutane® powered

pas de prob

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VB6 + ADO] Help pour un newbie !

Sujets relatifs
Help a propos de la classe CPaintDC !!!!	help sur access
help flash mw	exercice d'algo noté : help me please !!
[C newbie] Comment convertir un tableau de binaire en caractère ?	[HELP] Données Access a mettre à jour via un fichier excell
[MySQL] moyenne pondérée, j'y arrive pas ! (help me please)	HELP, pb d'espace ( le caractère )
Include ne fonctionne pas, Problème PHP je pense « HELP	HELP EditPlus (nioub inside)
Plus de sujets relatifs à : [VB6 + ADO] Help pour un newbie !

Page générée en 0.079 secondes