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
相关问答：
vb写的程序编译后,运行若出错,如何知道到在哪一行?
按Ctrl+F5预编译，出错时会跳转到错误行
不是那样的了,我是要求编译成EXE后运行,提示出错能否提示错在哪一行.
我编译后在我的电脑上运行没问题,但� ......
TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
大家好，我用上面一个东西赋值 TF1.text = & ......
vb中怎么通过xml来解析数据库中的字段值。
没办法用XML解析数据库的字段值，除非数据库中保存的是XML格式的字符串文档。
XML用来展示层次的数据。
数据库一般是二维数据。
数据库中保存的是XML字符串格式� ......
用VB怎么只针对windows自带的文件的右键添加菜单 如（.txt .doc)
这个是只针对以这两个为扩展名的文件操作
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[随便起名]\command]
@= ......
