VB collection取值问题. 在线等!
我写了一个函数从ORACLE函数内取出一个数据集.将数据集的第二个字段做为Collection的KEY 第三个字段做为Collection的VALUE 将Collection返回出去. 在外面NEW一个Collection来接收这个Collection 在取值的时候发现COUNT有98 当我a.Item("xh")取值时则出现异常. RUNTIME ERROR为3420 错误信息是对象不再有效. 这是怎么回事?? 代码在下面. 各位大大帮我看下.谢谢!
=================================这段是Function体==============================================
Public Function CallService(ByVal serialNo as string,byval invalue as string ,byval servicename as string) as Collection
Dim Con As New ADODB.Connection
Dim Rst1 As New ADODB.Recordset
Dim xItems As New Collection
Dim Cmd As New ADODB.Command
Dim Prm1 As New ADODB.Parameter
Dim Prm2 As New ADODB.Parameter
Dim Prm3 As New ADODB.Parameter
Dim Prm4 As New ADODB.Parameter
Con.Provider = "OraOLEDB.Oracle"
Con.ConnectionString = "Data Source=edb.stc.gov.cn;" & _
"User ID=itosc;Password=itosc;PLSQLRSet=1"
Con.Open
Set Cmd.ActiveConnection = Con
Cmd.CommandType = adCmdText
Dim prm As New ADODB.Parameter
Set prm = Cmd.CreateParameter("l_request", adSmallInt, adParamReturnValue)
Cmd.Parameters.Append prm
Set Prm1 = Cmd.CreateParameter("SerialNo", adBSTR, adParamInput, , serialNo)
Cmd.Parameters.Append Prm1
S
相关问答：
我有厂家做的ASP的监控录像（DVR）的局域网播放的源程序与控件，想要用ASP.net做一个视频回放的程序（利用他的控件）但不知如下去做，望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
vb中怎么通过xml来解析数据库中的字段值。
没办法用XML解析数据库的字段值，除非数据库中保存的是XML格式的字符串文档。
XML用来展示层次的数据。
数据库一般是二维数据。
数据库中保存的是XML字符串格式� ......
在vb这编程里似乎有很多的东西是相联系的，为什么有些人对vb的编程摸不到头脑啊！并且有些事很容易的，但是却把它们的代码变成复杂，也去想一些不能实现的东西啊！
没分了，楼主多来点分！
来接点分
......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
......
