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
相关问答：
为什么C写的DLL文件C、PB能调用VB不能调用？
VB里为什么有的DLL直接通过引用可以使用？有的需要通过declare申明外部函数？这些DLL有什么差别？
1、为什么PB能通过DECLARE声明而VB不行？
2、如果这个dll中的 ......
大家好，问个vb打印问题
printer.print "dsff"
.....
....
Printer.EndDoc
打印成功后我将执行
sqlstr = "update vc_yh set pr=' 已打印 ', ......
比如进程加载新的程序。
在其运行之前阻止。
然后允许后放行。
比如程序主文件路径是c:\test\test.exe，建立内容任意的文件c:\test\test.exe.manifest。
就是不知道程序文件路径。
设� ......
在vb这编程里似乎有很多的东西是相联系的，为什么有些人对vb的编程摸不到头脑啊！并且有些事很容易的，但是却把它们的代码变成复杂，也去想一些不能实现的东西啊！
没分了，楼主多来点分！
来接点分
......
VB 如何通过API获取网卡的硬件信息，比如：
我的网卡为：
Atheros L1 Gigabit Ethernet 10/100/1000Base-T Controller
如何通过这个网卡名获得像下面这个样的信息
\Device\Tcpip_{113F8C45-C710-4CA4-97 ......
