[Débutant] Erreur d'accès

Erreur d'accès

Bonjour, j'ai créer un uplodfile et un boutton importer pour importer un fichier excel et le filtrer dans un gridview , quand je parcours le C:/ et je choisis mon fichier et quand je cliques sur importer, ça me donne cette erreur

Citation:

ERROR: L'accès au chemin d'accès 'C:\taux.xls' est refusé.

Merci de m'aider...:ccool:

C'est pas plutôt quand tu sauvegardes le fichier que ça plante?

Citation:

Envoyé par lutecefalco

C'est pas plutôt quand tu sauvegardes le fichier que ça plante?

Non,j'importes le fichier excel qui est créer dans le disque C et quand je cliques sur importer ça donne cette erreur

Et tu fais quoi dans ton bouton importer?

Citation:

Envoyé par lutecefalco

Et tu fais quoi dans ton bouton importer?

je filtre le fichier excel puisqu'il a 3 feuilles , je les filtres dans un GRidVIEW

Citation:

Envoyé par iLAnaStein

je filtre le fichier excel puisqu'il a 3 feuilles , je les filtres dans un GRidVIEW

Fait voir ton code

Code:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
 
Imports System.Data.OleDb
Imports System.Data
Imports Oracle.DataAccess
Imports System.Web.SessionState
Imports System.Data.SqlClient
Imports System.IO
Imports System.Data.OracleClient
 
 
 
Partial Class _Default
    Inherits System.Web.UI.Page
 
 
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim path As String
 
        path = "C:\"
        If FileUpload1.HasFile Then
            Try
                FileUpload1.SaveAs("C:\taux.xls")
                Label1.Visible = True
                Label1.Text = "Fichier: " & FileUpload1.PostedFile.FileName & " Chargé avec succès"
 
                '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                Dim connString As String = ConfigurationManager.ConnectionStrings("xls").ConnectionString
                ' Créer l'objet de la connection
                Dim oledbConncoop As OleDbConnection = New OleDbConnection(connString)
                Dim oledbConnrfa As OleDbConnection = New OleDbConnection(connString)
                Dim oledbConnrfv As OleDbConnection = New OleDbConnection(connString)
 
                ''''''''''''''''''''''''''''''''''''''''''COOP''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                'ouvrir la connection
                oledbConncoop.Open()
 
                'créer l'objet OleDbCommand et sélectioner les données de excel
                Dim cmdcoop As OleDbCommand = New OleDbCommand("SELECT * FROM [COOP$]", oledbConncoop)
 
                'créer le nouveau OleDbDataAdapter
                Dim oledaCoop As OleDbDataAdapter
                oledaCoop.SelectCommand = cmdcoop
 
                'Créer un DataSet qui contiendra les données extraites de la feuille de calcul(COOP)
                Dim dscoop As DataSet = New DataSet()
 
                'Remplir le DataSet à partir des données extraites de la feuille de calcul(COOP)
                oledaCoop.Fill(dscoop)
 
                'lier les données de la feuille de calcul au dataGriewd
                GridView1.DataSource = dscoop.Tables(0).DefaultView
                GridView1.DataBind()
 
                'fermer la connection
                oledbConncoop.Close()
                oledbConnrfa.Close()
                '''''''''''''''''''''''''''''''''''''''''''''RFA''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                'Créer l'objet OleDbCommand et sélectionner les données à partir de la feuille de calcul
                Dim cmdrfa As OleDbCommand = New OleDbCommand("SELECT * FROM [RFA$]", oledbConnrfa)
 
                'Créer new OleDbDataAdapter
                Dim oledarfa As OleDbDataAdapter = New OleDbDataAdapter()
                oledarfa.SelectCommand = cmdrfa
 
                'Créer un DataSet qui contiendra les données extraites de la feuille de calcul(RFA)
                Dim dsrfa As DataSet = New DataSet()
 
                'Remplir le DataSet à partir des données extraites de la feuille de calcul(RFA)
 
                oledarfa.Fill(dsrfa)
 
                ' lier les données selectionner au GridView
                GridView2.DataSource = dsrfa.Tables(0).DefaultView
                GridView2.DataBind()
 
 
                ' fermer la connection connection
                oledbConnrfa.Close()
                oledbConnrfv.Open()
                ''''''''''''''''''''''''''''''''''''''''''''''RFV''''''''''''''''''''''''''''''''''''''''
                'Créer l'objet OleDbCommand et sélectionner les données à partir de la feuille de calcul
                Dim cmdrfv As OleDbCommand = New OleDbCommand("SELECT * FROM [RFV$]", oledbConnrfv)
 
                ' Create le nouveau DataAdapter
                Dim oledarfv As OleDbDataAdapter = New OleDbDataAdapter()
                oledarfv.SelectCommand = cmdrfv
 
                'Créer un DataSet qui contiendra les données extraites de la feuille de calcul(RFV)
                Dim dsrfv As DataSet = New DataSet()
 
                'Remplir le DataSet à partir des données extraites de la feuille de calcul(RFA)
                oledarfv.Fill(dsrfv)
 
                ' lier les données sélectionner au GridView
                GridView3.DataSource = dsrfv.Tables(0).DefaultView
                GridView3.DataBind()
 
 
                ' Fermer la connection
                oledbConnrfv.Close()
 
                ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            Catch ex As Exception
                Label1.Visible = True
                Label1.Text = "ERROR: " & ex.Message.ToString()
 
            End Try
        Else
            Label1.Visible = True
            Label1.Text = "Merci de choisir un fichier."
 
 
        End If
 
    End Sub
 
    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim j As Integer
 
        j = 0
        Dim rwh As GridViewRow
        rwh = GridView1.HeaderRow
 
        Dim DT As New System.Data.DataTable
 
        Dim req As String
        Dim MyConnection As OracleConnection
 
 
        Dim oradb As String = "Data Source=(DESCRIPTION=" _
              + "(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=192.168.99.66)(PORT=1521)))" _
              + "(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=AGR)));" _
              + "User Id=agresso;Password=agresso;"
        MyConnection = New OracleConnection
 
        MyConnection.ConnectionString = oradb
        MyConnection.Open()
        For Each rw As GridViewRow In GridView1.Rows
            'Response.Write(rw.RowIndex)
 
            For j = 1 To rw.Cells.Count - 1
                'Response.Write("Site : " & rwh.Cells(j).Text & "|")
                'Response.Write("Rayon : " & rw.Cells(0).Text & "|")
                'Response.Write("Taux : " & rw.Cells(j).Text & "|")
                'Response.Write(rw.Cells(0).Text & "|")
                ' Response.Write(GridView1.RowHeaderColumn(
                'Response.Write(rw.RowIndex)
                If rwh.Cells(j).Text.StartsWith("F") Then
                Else
                    req = "update interface.tauxprovtmp set taux=" & rw.Cells(j).Text & " where rayon like '" & rw.Cells(0).Text & "' and site_agresso like '" & rwh.Cells(j).Text & "' and societe='" & Session("client") & "' and type='COOP'"
                    Dim cmdrayon As New OracleCommand(req, MyConnection)
                    cmdrayon.ExecuteNonQuery()
                    cmdrayon.Dispose()
                End If
 
            Next
        Next
 
 
 
 
        Label1.Visible = True
        Label1.Text = "Les Taux COOP ont été intégrés avec succès"
    End Sub
 
    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim j As Integer
 
        j = 0
        Dim rwh As GridViewRow
        rwh = GridView1.HeaderRow
 
        Dim DT As New System.Data.DataTable
 
        Dim req As String
        Dim MyConnection As OracleConnection
 
 
        Dim oradb As String = "Data Source=(DESCRIPTION=" _
              + "(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=192.168.99.66)(PORT=1521)))" _
              + "(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=AGR)));" _
              + "User Id=agresso;Password=agresso;"
        MyConnection = New OracleConnection
 
        MyConnection.ConnectionString = oradb
        MyConnection.Open()
        For Each rw As GridViewRow In GridView1.Rows
            'Response.Write(rw.RowIndex)
 
            For j = 1 To rw.Cells.Count - 1
                'Response.Write("Site : " & rwh.Cells(j).Text & "|")
                'Response.Write("Rayon : " & rw.Cells(0).Text & "|")
                'Response.Write("Taux : " & rw.Cells(j).Text & "|")
                'Response.Write(rw.Cells(0).Text & "|")
                ' Response.Write(GridView1.RowHeaderColumn(
                'Response.Write(rw.RowIndex)
                If rwh.Cells(j).Text.StartsWith("F") Then
                Else
                    req = "update interface.tauxprovtmp set taux=" & rw.Cells(j).Text & " where rayon like '" & rw.Cells(0).Text & "' and site_agresso like '" & rwh.Cells(j).Text & "' and societe='" & Session("client") & "' and type='RFA'"
                    Dim cmdrayon As New OracleCommand(req, MyConnection)
                    cmdrayon.ExecuteNonQuery()
                    cmdrayon.Dispose()
                End If
            Next j
        Next
        Label1.Visible = True
        Label1.Text = "Les Taux RFA ont été intégrés avec succès"
    End Sub
 
    Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim j As Integer
        j = 0
        Dim rwh As GridViewRow
        rwh = GridView1.HeaderRow
        Dim DT As New System.Data.DataTable
        Dim req As String
        Dim MyConnection As OracleConnection
        Dim oradb As String = "Data Source=(DESCRIPTION=" _
              + "(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=192.168.99.66)(PORT=1521)))" _
              + "(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=AGR)));" _
              + "User Id=agresso;Password=agresso;"
        MyConnection = New OracleConnection
 
        MyConnection.ConnectionString = oradb
        MyConnection.Open()
        For Each rw As GridViewRow In GridView1.Rows
            'Response.Write(rw.RowIndex)
 
            For j = 1 To rw.Cells.Count - 1
                'Response.Write("Site : " & rwh.Cells(j).Text & "|")
                'Response.Write("Rayon : " & rw.Cells(0).Text & "|")
                'Response.Write("Taux : " & rw.Cells(j).Text & "|")
                'Response.Write(rw.Cells(0).Text & "|")
                ' Response.Write(GridView1.RowHeaderColumn(
                'Response.Write(rw.RowIndex)
                If rwh.Cells(j).Text.StartsWith("F") Then
                Else
                    req = "update interface.tauxprovtmp set taux=" & rw.Cells(j).Text & " where rayon like '" & rw.Cells(0).Text & "' and site_agresso like '" & rwh.Cells(j).Text & "' and societe='" & Session("client") & "' and type='RFV'"
                    Dim cmdrayon As New OracleCommand(req, MyConnection)
                    cmdrayon.ExecuteNonQuery()
                    cmdrayon.Dispose()
                End If
            Next j
        Next
        Label1.Visible = True
        Label1.Text = "Les Taux RFV ont été intégrés avec succès"
    End Sub
End Class

VOilà //

Code:

FileUpload1.SaveAs("C:\taux.xls")

Et ça, c'est pas une sauvegarde du fichier sur le disque peut être?

1 pièce(s) jointe(s)

Citation:

Envoyé par lutecefalco

Code:

FileUpload1.SaveAs("C:\taux.xls")

Et ça, c'est pas une sauvegarde du fichier sur le disque peut être?

ouii tout à fait
regarde içi , j'ai mis le fichier excel dans le C:/ et ça donne cette nouvelle erreur

Citation:

ERROR: La référence d'objet n'est pas définie à une instance d'un objet

C'est quelle ligne qui provoque cette erreur?

Citation:

Envoyé par lutecefalco

C'est quelle ligne qui provoque cette erreur?

cette erreur c'est par défaut du systeme ,c'est pas moi qu'il écrit;

:aie: :aie: :aie:

pourquoi cette tête , pas de réponse ??????????????????????

T'as surement séché un paquet de cours pour me sortir ça

Sans la ligne de code incriminée, on ne peut pas t'aider

Citation:

Envoyé par lutecefalco

T'as surement séché un paquet de cours pour me sortir ça

Sans la ligne de code incriminée, on ne peut pas t'aider

Ok merci

Si ton problème est résolu, tu peux cliquer sur "Résolu".

S'il ne l'est pas, tu devrais probablement poster un peu de code et suivre les indications de LuteceFalco qui ne demande qu'à t'aider mais qui commence je crois à perdre patience.

Une ligne de code n'est pas suffisante. Donne nous un peu le contexte dans lequel tu obtiens cette erreur en postant les méthodes/fonctions concernées.

dans le 7 eme commentaire j poster tout mon code

Bonjour,

en effet tu as posté ton code.
Mais LuteceFalco te demande quelle ligne de ce code provoque l'erreur que tu nous indique.

Pour le savoir, déboggue ton application en pas à pas.

j'ai touvais la solution du probleme tout seul :mouarf:

Sympathique comme réponse...
Merci de penser aux autres.
La moindre des politesses lorsqu'on a demandé de l'aide, c'est de donner la solution pour qu'elle profite à d'autres.