急,急,急!!!深夜在线等朋友们帮我看看!!!只有短短7行代码,不知道是哪里出的问题?????

yqyzzy 2004-10-04 12:25:43

急,急,急!!!深夜在线等朋友们帮我看看!!!只有7行代码,不知道是哪里出的问题?????急,急,急!!!

我建立一个类库项目,其中的conn.vb文件代码如下:
Imports System.web
Imports System.Data
Imports System.Data.OleDb
Public Class conn
Public con3 As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" HttpContext.Current.Server.MapPath("wenzhang.mdb"))
End Class

系统提示:httpcontext没有申明!!!!!

...全文

106 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

jierry007 2004-10-04

打赏
举报

直接使用Server.MapPath()函数

kuibobo 2004-10-04

打赏
举报

你写的类如果是直接继承于System.Web.UI.Page的话是可以直接用

server.mappath()这个函数的！

要么你用这个HttpServerUtility.MapPath看看

kbkingbird 2004-10-04

打赏
举报

加上
Imports System.Web.HttpContext
试一试～

yphui18 2004-10-04

打赏
举报

我是小木啊,
加上个
Imports System.Web.HttpContext

kuibobo 2004-10-04

打赏
举报

你直接用

Server.MapPath这个函数就可以了

kbkingbird 2004-10-04

打赏
举报

Imports 少了一个申明吧～

kuibobo 2004-10-04

打赏
举报

系不系少了一个 & 啊

Public con3 As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & HttpContext.Current.Server.MapPath("wenzhang.mdb"))

yqyzzy 2004-10-04

打赏
举报

不好意思,刚少复制了一个&,但是加上后还是那个问题!!!!

Imports System.web
Imports System.Data
Imports System.Data.OleDb
Public Class conn
Public con3 As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & HttpContext.Current.Server.MapPath("wenzhang.mdb"))
End Class

yphui18 2004-10-04

打赏
举报

少了个&

cancersyf 2004-10-04

打赏
举报

你需要在项目引用中添加System.Web程序集

kuibobo 2004-10-04

打赏
举报

Public Class kernal
Inherits System.Web.UI.Page
Public Function getConnectionString() As String
Dim DataPath As String
Dim Count As Int16
Dim ReadDB As System.IO.StreamReader = System.IO.File.OpenText(Server.MapPath("") & "\constr.aspx")

For Count = 1 To 3
ReadDB.ReadLine()
Next

DataPath = ReadDB.ReadLine()

DataPath = DataPath.Remove(0, 1)
DataPath = DataPath.Remove(DataPath.Length() - 1, 1)

Return "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Server.MapPath("") & DataPath
End Function
End Class

this is 我 write的， ni use 看看