Discussion :

[ag007]

Bonjour ,

Je dois importer les données d’un fichier TXT situé sur le poste client pour mettre à jour une base SQL*server sur le serveur.
Mon idée est de mettre à disposition du poste client un WebForm avec un fileUpload puis un bouton Démarrer qui va parcourir en boucle l’ensemble du fichier TXT pour le traitement de mise à jour .
Voici donc à quoi ressemble mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
fichier = MonFileUpload.Value
Dim filenum,  As Integer
Dim var1 as string
filenum = FreeFile()
FileOpen(filenum, fichier, OpenMode.Input, OpenAccess.Read)
Input(filenum, var1)
While Not EOF(filenum)
…. Traitement insert SQL …
End While
FileClose(filenum)

Je plante sur le FileOpen avec le message : « Could not find a part of the Path D:/temp/fiClient.txt »

Autrement dit ,je comprend qu’il essaye d’ouvrir le fichier TXT sur le serveur alors que celui se trouve sur le poste client !
Que dois je Faire ?
Suis-je obligé de sauvegarder le fichier TXT sur le serveur pour l’exploiter ?
Est-ce que j’utilise les bonnes instructions ?

Merci d’avance pour vos bons conseils

[nashouille]

salut

c'est normal il faut reprendre le root directory physique + ton rep de stockage

si je ne me trompe pas tu devrais trouvé quelque chose comme
Server.MapPath("~/tonRepUpload")

ce qui te donne en exemple c:\wwwroot\monappliweb\tonRepUpload

a plus

[vinz81]

Je pense que oui, il serait préférable d'uploader déjà ton fichier sur le serveur.
Une fois que ton fichier est uploader tu le traites, et quant tu as finis, tu peux l'effacer si tu veux.

Pour se faire, tu peux utiliser le control File Field sans oublier de lu mettre un runat=server. Je crois qu'il y a un exemple de code sur Developpez. Il me semble que c'est là que j'avais trouvé comment faire un Upload.

Bon courage.

VinZ

[ag007]

J'ai donc Uploader mon fichier sur le serveur.

Tout ce passe bien ... temps que mon fichier TXT n'est pas trés gros.

MAIS passé la centaine d'enregistrements voici l' exception que je récupère:

TIMEOUT EXPIRED . THE TIMEOUT PERIOD ELAPSED PRIOR TO OBTAINING A CONNECTION FROM THE POOL. THIS MAY HAVE OCCURED BECAUSE ALL POOLED CONNECTIONS WERE IN USE AND MAX POOL SIZE WAS REACHED

Quelqu'un peut il me dire se qu'il se passe ?

Voici mon nouveau code :

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
Dim RepertoireImport As String = Server.MapPath("\Webmvu\")
                MonFileUpload.PostedFile.SaveAs(RepertoireImport & "toto.txt")
 
 
            Dim fichier, final As String
            fichier = MonFileUpload.Value
            Dim filenum, prog, anomalie As Integer
            Dim fs As New FileStream("D:\Webmvu\toto.txt", FileMode.Open, FileAccess.Read)
 
            Dim reader As New StreamReader(fs)
            Dim line As String = reader.ReadLine
 
            Do While Not line Is Nothing
 
                    ... Boucle de INSERT SQL ....
             Loop
             reader.Close()

[vinz81]

Je pense que c'est parceque ton fichier dépasse la taille maximum autorisée. C'est un paramètre à régler dans ton WebConfig.

Il faut rajouter ceci juste après la balise <system.web>

Code :

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

1
2
3
 
<system.web>
	<httpRuntime maxRequestLength="MyFileSize"/>

Ou MyFilSize est la taille maximum qu'il est permis d'uploader sur ton serveur. Si tu mets par exemple 1000000 à la place, tu pourras uploader des fichiers de 1Mo, ce qui fait un gros fichier texte quand même .

Voili voilou

VinZ