Public Function getInspectMstData(ByVal para As System.Collections.Hashtable) As System.Collections.ArrayList Implements [Interface].ICheckSheet.getInspectMstData
Dim loadPrjParms As SqlParameter()
Dim rdr As SqlDataReader
Dim arrResult As New ArrayList Dim tempInspect As InspectMstInfo ‘自己写的类 loadPrjParms = Me.getInspectInfoParameters(para) ’参数设置函数 rdr = SQLHelper.ExecuteReader(SQLHelper.CONN_STRING, CommandType.Text, SQL_SELECT_INSPECT, loadPrjParms)
While rdr.Read
tempInspect = New InspectMstInfo(CStr(rdr("SIZE")))
arrresult.add(tempinspect)
end while当进入程序时 arrresult的length=0 ,然后执行 Dim arrResult As New ArrayList
时,arrresult的length读取就错误了,然后正确执行 参数设置函数,再读取出记录,SQL语句是正确执行的,不过这时候的rdr所有属性都是obtain error。 SQLHelper.ExecuteReader方法是个通用函数,正确的,单步进取返回的结果是正确的。不知道什么问题,急死了
Dim loadPrjParms As SqlParameter()
Dim rdr As SqlDataReader
Dim arrResult As New ArrayList Dim tempInspect As InspectMstInfo ‘自己写的类 loadPrjParms = Me.getInspectInfoParameters(para) ’参数设置函数 rdr = SQLHelper.ExecuteReader(SQLHelper.CONN_STRING, CommandType.Text, SQL_SELECT_INSPECT, loadPrjParms)
While rdr.Read
tempInspect = New InspectMstInfo(CStr(rdr("SIZE")))
arrresult.add(tempinspect)
end while当进入程序时 arrresult的length=0 ,然后执行 Dim arrResult As New ArrayList
时,arrresult的length读取就错误了,然后正确执行 参数设置函数,再读取出记录,SQL语句是正确执行的,不过这时候的rdr所有属性都是obtain error。 SQLHelper.ExecuteReader方法是个通用函数,正确的,单步进取返回的结果是正确的。不知道什么问题,急死了
解决方案 »
- 请教ADO.NET中的fill()方法问题。。 急!
- asp.net与winfrom之间如何进行通信?
- 谁能给个Visual Studio 2005正式版下载地址
- 发现VS2008里面ASP.NET可以用WINDOWS的弹出对话框嘛!高手释疑,以前03里面是不可以的
- 求教:类型转换无效,CType(Ctx.User.Identity, System.Web.Security.FormsIdentity)为什么?
- 求教如何从jquery-easyui的日历控件中取值啊?
- 关于数组的克隆问题。
- IE打印问题
- 我可以在HTML文件里写服务器端的脚本代码吗?
- 我运行了一个.aspx文件,怎么老是出问题。另外也请大家说一下在win2000下运行一个aspx文件的步骤。
- 怎么样儿做像aspnetpager那样儿的东西,可以放入工具箱中方便运行的,而且可以设置好多属性的,大家帮忙呀!
- 控件数组名的问题
入执行,也出同样的错误,在执行该方法以前,有执行其他的读取操作
以下是读取数据的代码
Public Shared Function ExecuteReader(ByVal connString As String, ByVal cmdType As CommandType, _
ByVal cmdText As String, ByRef cmdParms As SqlParameter()) As SqlDataReader '変数の定義
Dim cmd As SqlCommand = New SqlCommand
Dim conn As SqlConnection = New SqlConnection(connString) '運行する
Try
PrepareCommand(cmd, conn, Nothing, cmdType, cmdText, cmdParms)
Dim rdr As SqlDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
cmd.Parameters.Clear()
Return rdr
Catch e As Exception
conn.Close()
Throw e
End Try End Function
不过即使我先执行我的函数,也是同样的错误
之后rdr里面数据正常吗?