Discussion :

[GregOizo]

Bonjour,


Je suis en train de faire un programme qui doit lire des fichiers textes lignes par lignes et enregistrer chacune d'elle dans une base de données
En gros il y a 12 000 lignes par fichiers text et 6 fichiers texts

mon script ouvre chaque fichier
lit ligne par ligne, recupere les données de chaque ligne dans les variables
puis appelle une fonction qui enregistre la ligne dans la base de donnée...

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
21
22
23
24
 
 
 Public mdBDD As OdbcConnection
 
Public Sub BDD_GrabarUMDbrut(ByVal mois As Integer, ByVal codigoCEDI As Integer, ByVal flujo As String, ByVal almacenes As Integer, ByVal sublinea As Integer, ByVal umd As Integer)
        Dim maCommande As Odbc.OdbcCommand = mdBDD.CreateCommand
        Dim rqt As String
        rqt = "Select umd from UMDbrut where Mes=" & mois & " and CodigoCEDI=" & codigoCEDI & " and Flujo='" & flujo & "' and Almacenes=" & almacenes & " and Sublinea=" & sublinea & ";"
        maCommande.CommandText = rqt
        Dim monLecteur As OdbcDataReader = maCommande.ExecuteReader
 
        If monLecteur.HasRows() = 0 Then
            rqt = "INSERT INTO UMDbrut(Mes,CodigoCEDI,Flujo,Almacenes,Sublinea,Umd) VALUES(" & mois & "," & codigoCEDI & ",'" & flujo & "'," & almacenes & "," & sublinea & "," & umd & ");"
        Else
            monLecteur.Read()
            umd = umd + monLecteur.GetInt64(0)
            rqt = "UPDATE UMDbrut set umd=" & umd & " where Mes=" & mois & " and CodigoCEDI= " & codigoCEDI & " and Flujo='" & flujo & "' and Almacenes=" & almacenes & " and Sublinea=" & sublinea & ";"
        End If
        monLecteur.Close()
 
        maCommande.CommandText = rqt
        maCommande.ExecuteNonQuery()
 
    End Sub

Cette procedure est donc appelé a peu pres 60 000 fois pendant une autre procedure

mais avant elle marchait tres bien, et maintenant elle me fait une erreur :
"impossible d'ouvrir plus de tables"

je pensais que ca venait d'un probleme du genre chaque requete a la bse restait ouverte mais la variable macommande est a priori reinitialisé a chaque acces a cette procedure...

d'ou vient le probleme s'il vous plait ???

[GregOizo]

je m'auto repond pour relever un peu le sujet mais aussi pour donner plus d'information

le message d'erreur est :

System.Data.Odbc.OdbcException: ERROR [HY001] [Microsoft][Pilote ODBC Microsoft Access] Impossible d'ouvrir plus de tables.

a priori ca n'a pas vraiment de rapport avec le code car l'erreur arrive n'importe quand au bout d'un moment apres un bon nombre de requetes sur n'importe quel requete ... c'est completement aleatoire ...


d'ou ca peut venir ?
un probleme de configuration quelquepart ?

ou comme je le disais avant : il faut refermer a chaque fois la connection a la base de donnée ?


en fait je me connecte a la base de donnée au moment du load du formulaire principal du programme par un :

Code :

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

1
2
mdBDD = New OdbcConnection(Connexion)
mdBDD.Open()

et je ferme la connection au moment de la fermeture du programme :

Code :

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

1
2
 
mdBDD.close()

Il faudrait alors que j'ouvre et ferme la connection a chaque requete ? ca fait bcp d'ouverture/fermeture de connection non ?

sinon il y a peut etre un moyen sur chaque :

Code :

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

1
2
3
4
5
 
Dim maCommande As Odbc.OdbcCommand = mdBDD.CreateCommand
Dim rqt As String
rqt ="blablabla"
maCommande.ExecuteNonQuery()

de fermer le "maCommande"

donc voila je suis perdu

merci pour votre aide !!!

[GregOizo]

troisieme post mais c'est parceque c'est plus ou moins resolu :


j'ai mis une variable compteurRQT qui compte toutes les requetes a partir du lancement du programme

j ai remarqué qu'en general c'est a partir de la 850eme que le programme plantait

donc j'ai mis ca a coté des requetes qui s'utilise dans des grandes boucles :

Code :

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

1
2
3
4
5
6
 
If CompteurRQT > 800 Then
FermerBDD()
InitialiserBDD()
CompteurRQT = 0
End If

avec ca, ca marche parfaitement

mais bon c'est un peu moche, donc je laisse le sujet ouvert si qqun a qqchose de mieux

[champomy62]

Salut,

La solution est à cette adresse : http://support.microsoft.com/kb/116034/fr