紧急求救,急.在线等.解决了分全分了.

[cnvvv]

http://expert.csdn.net/Expert/topic/2923/2923572.xml?temp=.4168817
http://expert.csdn.net/Expert/topic/2923/2923561.xml?temp=.9196741
http://expert.csdn.net/Expert/topic/2923/2923553.xml?temp=.9119226

本帖是一个问题.解决立刻放分.全部分共270分.

[leisang]

我试过，是可以用的
Public Function test(byref conn as Variant )
你改成
Public Function test(byval conn as Adodb.Connection )

rs.Open "select * from table", conn, 1, 1, 1
改成
rs.Open "select * from table", conn, 1, 1

另外vb程序要引用Adodb

还有就是你的test根本没返回值，用Response.write 是会出错的

[cnvvv]

Public Function test(ByVal conn As ADODB.Connection)
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "select * from table", conn, 1, 1
rs.Close
Set rs = Nothing
End Function

asp中还是提示错误:
ADODB.Recordset 错误 '800a0bb9'

参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

/ok.asp，行9

ASP 中我是这样使用的:
<%
Set db_conn = Server.CreateObject("ADODB.Connection")
db_conn.Open "driver={SQL Server};server=127.0.0.1;uid=sa;pwd=;database=db;"

dim V
set V=Server.CreateObject("V.A")
call V.test(db_conn)
set V=nothing

db_conn.close
set db_conn=nothing
%>

[cnvvv]

帮帮我吧.大侠们.很急啊!:(

[leisang]

我刚才帮你测试了一下，看看我的代码，已经通过测试
Public conn As New ADODB.Connection


Private Sub Command1_Click()

Command1.Caption = test(conn)

End Sub



Private Sub Form_Load()
connstr = "driver={SQL Server};server=Leisang;uid=sa;pwd=;database=0577fun;"
conn.ConnectionString = connstr
conn.Open

End Sub


Private Function test(ByVal conn As ADODB.Connection) As String
Dim rs As New ADODB.Recordset
rs.Open "select * from CoNews ", conn, 1, 1
test = rs.RecordCount
End Function

[leisang]

这个测试表示
Private Function test(ByVal conn As ADODB.Connection) As String
Dim rs As New ADODB.Recordset
rs.Open "select * from CoNews ", conn, 1, 1
test = rs.RecordCount
End Function

这个函数是正确的，你可以搬过去用
等下再写个asp

[leisang]

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={SQL Server};server=Leisang;uid=sa;pwd=;database=0577fun;"

Set rs= Server.CreateObject ("ADODB.recordset")
rs.open "select * from CoNews",conn,1,1
Response.Write rs.RecordCount
%>

这个asp也通过测试了，你再试试结合一下
因为调试组件太麻烦了，所以就不帮你做了