16,554
社区成员
发帖
与我相关
我的任务
分享在类库中如何获得文件夹相对路径？
我想把所有类写在类库中，便于调用。为了便于调用数据库，我想用相对路径处理。
例如：Public StartPath as String =Application.StartupPath & "\Order.mdb"
在应用程序中可以调用，但是在类库中系统提示Application 未声明。请问如何解决这个问题？
例如：Public StartPath as String =Application.StartupPath & "\Order.mdb"
在应用程序中可以调用，但是在类库中系统提示Application 未声明。请问如何解决这个问题？
...全文
请发表友善的回复…
发表回复
okeycome 2003-12-10
- 打赏
- 举报
CMIC(大象)说得对.既然楼主是想做成比较通用的类库,那就最好不要在类里把范围搞窄了,包括MDB库名,都不合适内置在类库中,还是作为类属性的值传入得好.
另外,gxingmin(小高)的代码我还没试,不过看起来感觉很好,受教了.
另外,gxingmin(小高)的代码我还没试,不过看起来感觉很好,受教了.
NoReady 2003-12-10
- 打赏
- 举报
gxingmin(小高) 的方法可以啊
xmzhy 2003-12-10
- 打赏
- 举报
azyue(沙漠之弧) ：
我关联的是SQL Server，如果用VB就容易实现，请问VB.net如何实现？
我关联的是SQL Server，如果用VB就容易实现，请问VB.net如何实现？
azyue 2003-12-08
- 打赏
- 举报
数据库的连接字符串可以作为参数有外部传递，在初始化类的构造函数中加载。故不要使用相对路径
azyue 2003-12-08
- 打赏
- 举报
同意楼上的
gxingmin 2003-12-04
- 打赏
- 举报
public function GetAppPath() as string
Dim strPath As String = System.Reflection.Assembly.GetExecutingAssembly.Location
Dim i As Integer = strPath.LastIndexOf("\")
If i > 0 Then
strPath = Left(strPath, i)
End If
return strPath
end function
Dim strPath As String = System.Reflection.Assembly.GetExecutingAssembly.Location
Dim i As Integer = strPath.LastIndexOf("\")
If i > 0 Then
strPath = Left(strPath, i)
End If
return strPath
end function
seawind119 2003-12-03
- 打赏
- 举报
学习
xmzhy 2003-12-03
- 打赏
- 举报
azyue(沙漠之弧)：
继承form类，不能解决问题。请问还有什么高招？
继承form类，不能解决问题。请问还有什么高招？
azyue 2003-12-03
- 打赏
- 举报
类库最好不要，要不你就继承form类。
CMIC 2003-12-03
- 打赏
- 举报
Application 是在 System.Windows.Forms名字空间下的，但在类库中最好不要使用，加以你用一个属性DataPath将数据库路径传入。
arbiterzhou 2003-12-03
- 打赏
- 举报
关注
