Discussion :

[flores]

Bonjour,

Je souhaite insérer dans une base MS sql server 2005 un grand nombre d'enregistrements dans une table via une application Visual Basic 6.0 qui récupère les données depuis un fichier texte.

Malheureusement au bout de la 915ème ligne environ, l'insertion plante.

Je pense donc à un dépassement mémoire (dépassement de buffer, etc). Mais je ne sais comment régler ce problème.

J'utilise une boucle qui lit le fichier texte et pour chaque lignes j'utilise la fonction :

Code :

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

 ConnexionBD.Execute ("INSERT INTO Nom_table VALUES('champ1', 'champ2')")

Merci de votre aide.

Cordialement.

[Le Pharaon]

Malheureusement au bout de la 915ème ligne environ, l'insertion plante.

Il n'ya pas de message d'erreur ?

[flores]

Non en fait à l'apparition de l'erreur il y a un appel à la fonction "handler_erreur" qui elle me renvoie un message que j'ai défini.
Mais quand je veux faire afficher le numéro de l'erreur dans les logs ça me renvoie "--" ce qui ne nous avance pas beaucoup...

Je n'arrive pas à trouver quel élément devient "plein" en mémoire, ce qui pourrait être la cause de l'insertion ratée.

J'ai vérifier mes variables genre String, j'ai changé un Integer en Long, mais a priori ce ne sont pas mes variables qui posent problème...

Quel casse-tête !

[Phifi]

Bonjour,

peux-tu afficher le code complet de ta boucle ? ainsi que ton mode de connexion à la base de données ?

[flores]

voici l'extrait qui pose problème :

à ce niveau-là, on est déjà connecté à la base :
(mode de connexion standard d'un utilisateur autorisé)

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
25
26
27
28
29
30
31
' Ouverture du fichier trafic_hotspot.txt où sont écrites les lignes de trafic
Set StreamFichierTrafic = fso.OpenTextFile(RepertoireTempLocal + "\xxxxxxx.txt")
        
' Parcours du fichier
While (Not StreamFichierTrafic.AtEndOfStream)
  tuple = StreamFichierTrafic.ReadLine
  nbLignes = nbLignes + 1
                 
  ' on sépare le tuple pour récupérer les champs délimités par ";"
  stringSplitted = Strings.Split(tuple, ";")
                    
  'première ligne de vérification
  If (nbLignes = 1) Then
    ' la première ligne a le format suivant : DEBUT;date_traitement;NbLignesTrafic
    If (StrComp(stringSplitted(0), "DEBUT") = 0) Then
      dateTraitement = Format$(stringSplitted(1), "dd/mm/yyyy") + " " + Format(Time, "hh:mm:ss")
      NbLignesAttendu = stringSplitted(2)
      ' on insère la date du traitement dans la table xxxxx avec l'état A = en cours
      ConnexionBD.Execute ("INSERT INTO xxxxx VALUES('duTexte','" + dateTraitement + "','A','" + FichierLogs + "')")
    Else
      'la première ligne de vérification n'est pas valide
      Injection_Trafic_BD = "Erreur"
    End If
                    
  ElseIf (nbLignes > 1) Then
    dateInsertion = Format$(stringSplitted(1), "dd/mm/yyyy")
    Call Ecriture_Log(stringSplitted(0) + "  " + dateInsertion + "  " + stringSplitted(2))
    ' + " " + Format(Time, "hh:mm:ss")
    ConnexionBD.Execute ("INSERT INTO Table_xx VALUES ('" + stringSplitted(0) + "','" + dateInsertion + "','" + stringSplitted(2) + "')")
  End If
Wend