ASP中非常简单的问题，高分相送！

[hyzx2000]

这是一个在asp中常用的东东、我的本地数据库为microsoft access 97数据库,我的web服务器为pws，数据库dragon97.mdb,其内有一表new_fun,在C:\inetpub\wwwroot目录下,在pws中将c:\inetpub\wwwroot目录设置为可执行。但是在vb中我用rds
访问时无论怎样也访问不了，我的步骤是这样的：
dim rdso as new rds.DataControl
dim rs as ador.recordset
rdso.server="http://127.0.0.1"
rdso.connect="driver={microsoft access driver(*.mdb)};dbq="c:\inetpub\wwwroot\dragon97.mdb;"
rdso.sql="select * from new_fun"
rdso.refresh
set rs=rdso.recordset
msgbox rs.fields(1).name
报错;
请教各位大侠，我那里错了：

[蝈蝈俊]

1、msgbox 不能用在asp中

[hyzx2000]

请注意这段代码是在VB里的，我想先在VB中调试通过，在用到ASP中，再试试吧！

[Michaelyfj]

错误信息是什么?

[hyzx2000]

错误信息是:run-time error '91':
object variable or with block variable not set

[Nicrosoft]

msgbox是客户端代码，无法在asp中执行的。

[xh_zhou]

为什么要这样写呢？为什么不用connection连接呢？？？？？？？？？？？系统怎么知道rds是什么呢？我还没见过这种用法！！！！！！！！还有msgbox确实也不能在<% %>之间使用！！！！！

[w102272]

你需要server.createobject,否则系统不明白RDS是什么东西。不要用VB的语法写ASP，呵呵。

[huntout]

Try it! :-)

Dim rdso as New RDS.DataControl
Dim rs as ADODB.Recordset
rdso.Server = "http://127.0.0.1"
rdso.Connect = "driver={microsoft access driver(*.mdb)};dbq=c:\inetpub\wwwroot\dragon97.mdb;"
rdso.SQL = "select * from new_fun"
rdso.Refresh
Set rs = rdso.Recordset
MsgBox rs.Fields(1).Name

[youyou]

你这是在写VB还是在写ASP呀？VB是对的，ASP可差得远了。

[虎叔]

大哥，你的字段有几个啊，如果只有一个那你应该这样
MsgBox rs(0)

[kings_yw]

应该是Dim rs as ADODB.Recordset

[ljfree]

你需要在“引用”菜单选中 "Microsoft Remote Data Service x.x Library"
x.x为版本号

[VictorYu]

如果你是想要看结果，可以用Response.Write把结果写到客户端。

[华南虎哥]

在VB中你应该是用下面这种形式来操纵RDS:
Dim dc
Set dc = CreateObject("RDS.DataControl")
dc.ExecuteOptions = 1
dc.SQL = "select * from new_fun"
dc.Connect = "Provider=SQLOLEDB;Data Source=(local);" & "Initial Catalog=dragon97;User ID=sa;Password=;"
dc.Refresh.
.....
dc.Reset
而在ASP中你可以参照下面来做:
Dim rs as new ADODB.Recordset
rs.Open "Select * from new_fun", "Provider=MS Remote; Remote Server="http://127.0.0.1";DSN=dragon97"
......
'rs的操作跟普通ASP数据库操作相似
rs.close

[hyzx2000]

感谢各位的回答。
恭喜hblinux，你将获得300分，你在专家榜上的名次将提前5个名次！