|
-
Jun 30th, 2003, 08:05 AM
#1
Thread Starter
Frenzied Member
Server.MapPath and ASP.Net
I have this code:
Code:
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\unzipped\exceldotnet[1]\exceltest.xls;" & _
"Extended Properties=Excel 8.0;"
which works fine. I have copied the .xls-file to my project folder and tries this code:
Code:
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & server.mappath("exceltest.xls") & ";" & _
"Extended Properties=Excel 8.0;"
But then I receive an error saying:
Code:
The Microsoft Jet database engine cannot open the file ''. It is already opened exclusively by another user, or you need permission to view its data.
What's wrong, can't I use the server.mappath?
-
Jun 30th, 2003, 11:07 PM
#2
PowerPoster
Make sure the asp.net account has access to the directory containing the .mdb file.
-
Jul 1st, 2003, 02:06 AM
#3
Thread Starter
Frenzied Member
You're right, I'd forgot! Thanks
-
Jul 2nd, 2003, 03:49 AM
#4
Thread Starter
Frenzied Member
Hi again, I have problems with Server.MapPath in a class. The intellisense wouldn't recognize server.mappath. Am I doing something wrong or do I need to specify a namespace? Here is my code:
Code:
Imports System.Data
Imports System.Data.OleDb
Public Class clsMedieroer : Inherits clsMateriale
Private _medie As Integer
Private _medie1 As Integer
Private _dimension As Integer
Sub New(ByVal s As Integer, ByVal m As String)
' konstruktøren skaber et materiale med s
' (sker ved at kalde klassens metode Medie med s som parameter)
MyBase.New(m)
Medie = s
End Sub
Public Sub FindMedie()
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & server.mappath("exceltest.xls") & ";" & _
"Extended Properties=Excel 8.0;"
Dim strSql As String = "SELECT * FROM [Sheet1$] WHERE Id=4"
Dim objConnection As New OleDbConnection(strConn)
Dim objCommand As New OleDbCommand(strSql, objConnection)
Dim objDataReader As OleDbDataReader
objConnection.Open()
objDataReader = objCommand.ExecuteReader()
Do While objDataReader.Read() = True
_dimension = CInt(objDataReader("pris"))
Loop
objDataReader.Close()
objConnection.Close()
Select Case _medieroer
Case Is = "St. 37.0 Konti"
_medie1 = 15
Case Else
_medie1 = _medie
End Select
End Sub
Public ReadOnly Property Medie1() As Integer
' returnerer værdien af materialet, der læses fra
Get
Return _medie1
End Get
End Property
Public ReadOnly Property Dimension() As Integer
' returnerer værdien af materialet, der læses fra
Get
Return _dimension
End Get
End Property
Public WriteOnly Property Medie() As Integer
' definerer værdien af materialet
Set(ByVal Value As Integer)
_medie = Value
FindMedie()
End Set
End Property
End Class
-
Jul 2nd, 2003, 07:38 AM
#5
PowerPoster
-
Jul 2nd, 2003, 07:43 AM
#6
Thread Starter
Frenzied Member
I've tried typing
Imports system.web
but it still doesn't work
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|