ado.net出现"存储器不是参数存储器"错误。
ado.net(vb.net)+oracle编写的程序,现在执行程序的时候,只有很少的几个纪录出现“存储器不是参数存储器”
Dim conn As New OleDbConnection(ConfigurationSettings.AppSettings("ReportCnn"))
'获取正文信息
Dim bFile() As Byte
Dim i As Int16
Dim docFile As System.IO.File
Dim dp As New OleDbDataAdapter("select wjlx,wj,jh,wjmc,SQRQ,id from sys_documents_b where id='" & sID & "'", conn)
Dim dt As New DataSet
Try
conn.Open()
dp.Fill(dt)
'tab标头
m_strTabText = dt.Tables(0).Rows(0).Item(0)
'文件名称
m_strTabTarget = dt.Tables(0).Rows(0).Item("jh") & "_" & dt.Tables(0).Rows(0).Item("id") & "_" & dt.Tables(0).Rows(0).Item("wjmc")
'文件路径
Dim strDiskDocName As String = Server.MapPath(".") & "\" & dt.Tables(0).Rows(0).Item("jh") & "_" & dt.Tables(0).Rows(0).Item("id") & "_" & dt.Tables(0).Rows(0).Item("wjmc")
'如果文件存在,判断是否最新的,否则删除重新生成
If docFile.Exists(strDiskDocName) Then
If dt.Tables(0).Rows(0).Item("SQRQ") > docFile.GetCreationTime(strDiskDocName) Then
docFile.Delete(strDiskDocName)
If docFile.Exists(strDiskDocName & ".htm") Then docFile.Delete(strDiskDocName & ".htm")
End If
End If
If Not docFile.Exists(strDiskDocName) Then
'文件内容
bFile = dt.Tables(0).Rows(i).Item("wj")
'生成文件
Dim oFile As New System.IO.FileStream(strDiskDocName, IO.FileMode.Create)
oFile.Write(bFile, 0, bFile.Length)
oFile.Flush()
oFile.Close()
End If
Catch ex As Exception
Finally
dt.Clear()
dt.Dispose()
dp.Dispose()
End Try
什么问题?
大家救命。