如何获取 Sql Server2000的数据文件路径

[zdmaster]

我用vb创建 sql server2000数据库
请问如何获取Sql Server2000的数据文件路径

解决马上给分

[zdmaster]

To:lihonggen0(李洪根,用.NET，标准答案来了)
谢谢，你好厉害哟！
filename返回了代文件名称的路径，怎么样把文件名去掉
好人做到底帮帮忙！

[lihonggen0]

MsgBox Left(Rs.Fields("filename"), InStrRev(Rs.Fields("filename"), "\"))

[hxy2003]

gz

[lihonggen0]

select * from sysfiles

[lihonggen0]

Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=服务器名;Initial Catalog=数据库;User Id=用户名;Password=密码;"
CN.Open
Rs.CursorLocation = adUseClient

Rs.Open "select * from sysfiles", CN, adOpenDynamic, adLockOptimistic

msgbox rs.fields("filename")

[lihonggen0]

工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）

Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=saletesttmp;User Id=sa;Password=sa;"
CN.Open
Rs.CursorLocation = adUseClient

Rs.Open "select * from sysfiles", CN, adOpenDynamic, adLockOptimistic

MsgBox Rs.Fields("filename")

------------------------------
问题解决