Bonjour a tous, j'ai un petit probleme avec des connexions ADODC
En fait, je fais une appli qui gère des contacts d'une entreprise, a partir d'une base access contenant les données (mise sur le réseau) et d'un petit programme en VB qui gère les données.
Je me connecte à la base à l'aide de connection ADO, ADODC exactement.
Mais le problème, c'est que mon prog est installé sur plusieurs machines, dont une qui n'est jamais arrêtée, et au bout d'un moment, la base de données est saturée de connexion, car les liens adodc ne se ferme jamais.
Lorsque je voudrais fermer mes connexions, je fais du :
    Adodc1.RecordSource = ""
    Adodc1.Recordset.Close
    Adodc1.ConnectionString = ""
Mais ca ne change rien.
Si vous avez des idées, sur comment fermer ces connexions, merci de m'aider.
Merci d'avance

Bonjour,

Tu dois surement avec une variable "connection". Et bien tu la fermes (la variable bien sur ;) en faisant connection.close, ou sinon ptete Adodc1.close

Voila

M@x

Merci de ta réponse, mais il n'y a pas de variable connection sur ces controles, et adodc1.close plante.

Je ne sais vraiment plus quoi faire, et je n'ai pas envie de changer tous mes controles, car mon prog commence à devenir gros, il y en a beaucoup, et je n'ai plus tellement de temps...

Merci de continuer à donner des idées.

Tu peux alors faire de l'ado avec oledb, et ainsi ne pas utiliser un controle datasource.

Heu... La, je suis pas contre, mais je ne sais pas comment ca marche. Je suis sur la marche débutant.
Donc, si tu peux éclairer un peu ce que je dois déclarer pour utiliser ca...
Merci d'avance, et surtout merci de te donner la peine de m'aider.

Donc vala, je te mets le code en VB 6. Au cas où tu es sous .net, pas de pb, je te le traduis:

A rajouter dans les références ou composants, je sais plus : Microsoft ADO 2.6

Dans un module:

public co as connection
public rs as recordset

Dans ta feuille:

'Initialisation de la connexion
set co = new connection
co.provider = "Microsoft.jet.OLEDB.4.0" 'pour access 2000, sinon c'est 4.1 pour 2003

co.connectionstring = "c:\mabase.mdb"
co.open

'Initialisation d'un recordset
set rs = new recordset
rs.open "table", co, adOpenDynamic 'tu peux remplacer table par une requete SQL ou existante dans la table

'Pour atteindre une valeur
var = rs.fields("table").value

'Pour rentrer une nouvelle valeur
rs.fields("table").value = var

'Fermer co et rs
rs.close
co.close

Voila, si tu veux + de recordset un recordset par table ou par requete, il faut le déclaré dans le module, pour qu'il soit accessible dans tout le projet.

Si tu as b'soin encore d'aide, je suis la. Ca me plait d'aider en VB now que je m'y connais un peu, avant c'était d'autres qui m'aidaient, c'est un peu la destinée de chacun à quiconque qui est passé par vbfrance ... lol

M@x

Ok, ben merci beaucoup.
Je teste ça, et je te tiens au courant.

Heu, question comme ça, pour savoir...
Faudrait pas faire du "set rs = nothing" et "set co = nothing" avant de faire les .close ?

Voila des news du front :
Lorsque j'execute, il me dit : utilisation incorrecte du mot clé New, sur la ligne set co = new connection
et si je met
set co = New ADODB.Connection
Il plante sur co.provider
Que faire ?
Le pb vient il d'une librairie ?
La librairie ADO 2.6, c'est bien le ActiveX Data Object 2.6 ?
Ou c'est une référence qu'il me faut aller chercher dans le fin fond du system32 de mon poste ?

Normalement, c'est: co.Provider = "Microsoft.jet.OLEDB.4.0"

Tu as quoi comme base de données?

M@x