dim aaa,bbb
set aaa = Server.CreateObject("myResume.clsResumeExcute")
aaa.getNameByIDWithArray("BI001")
response.write aaa.getNameByIDWithArray("BI001")("CID")
將RS以Variant類型返回是可以了,但为什么我现在只能这样取数据
如果这样
dim aaa,bbb
set aaa = Server.CreateObject("myResume.clsResumeExcute")
bbb = aaa.getNameByIDWithArray("BI001")
If not bbb.eof then
Do while not bbb.eof
response.write bbb("CID")
bbb.movenext
Loop
End if
就报是"bbb = aaa.getNameByIDWithArray("BI001")"的错,怎么回事?
Dim cn As ADODB.Connection
Dim rs As ADODB.recordset
Public Function abc() As ADODB.recordset
Set cn = New ADODB.Connection
cn.Open "driver={sql server};uid=sa;pwd=abc;server=zhao;database=pubs"
Set rs = New ADODB.recordset
rs.Open "select * from authors", cn, 1, 3
Set abc = rs