Discussion :

[ddeee]

Bonjour à tous,

je dois mettre à jour chaque enregistrement d'une table de 52 000 enregistrements

mon code est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
j=0
while (j<nb)
 
Set oConn = Server.CreateObject ("ADODB.Connection")
Connecte
 
Set RsFic = Server.CreateObject("ADODB.Recordset")
requete="SELECT * from these where THE_id=" & TabTheseID(j)
RsFic.Open requete, oConn ,3 , 1
 
requete = "UPDATE these SET THE_BU='" & BU & "', THE_DateRech='" & DateRecherche & "' WHERE THE_Id=" & RsFic.Fields("THE_Id")
oConn.Execute requete
 
RsFic.close : set RsFic=nothing
oConn.Close : set oConn=nothing
 
j=j+1
 
Wend

apres avoir updaté environ 2400 enregistrements, j'ai l'erreur suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Microsoft OLE DB Provider for ODBC Drivers error '80040e4d'
 
[Microsoft][Pilote ODBC Microsoft Access] Trop de tâches client.

notez que j'ouvre et ferme la connexion pour chaque enregistrement (dans la boucle) , sinon j'ai une autre erreur :

[Microsoft][Pilote ODBC Microsoft Access] Impossible d'ouvrir plus de tables.

le site est herbergé cher lerelaisinternet.com

[Immobilis]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Set oConn = Server.CreateObject ("ADODB.Connection")
Connecte
j=0
while (j<nb)
    oConn.Execute "UPDATE these SET THE_BU='" & BU & "', THE_DateRech='" & DateRecherche & "' WHERE THE_Id=" & TabTheseID(j)
    j=j+1
Wend
oConn.Close : set oConn=nothing

Et comme ça tout simplement?

[ddeee]

Immobilis,

en fait entre le SELECT et le UPDATE dans la boucle il y a du code pour initialiser la variable BU, j'ai supprimé ce code pour ne pas mettre une procédure de 20 pages sur le forum

j'ai besoin de certains champs de THESE pour initialiser les champs THE_BU et THE_Daterech

[Phiss]

cela me fait plaisir de voir qu ej ne suis pas seul à avoir ce problème.
Moi pour le moment la solution que je vois c'est de migrer de système de gestion de base.
Finit access pour les grosses bases de données.
Mais si il y a une solution je suis également preneur.