vb.net中使用DAO的问题。

FengZhongXia 2010-11-03 03:38:54
        
Dim dbEn As New dao.DBEngine
Dim dbT As dao.Database
Dim rsT As dao.Recordset
Dim lngDBIndex As Long

dbT = dbEn.OpenDatabase("c:\test.mdb")
rsT = dbT.OpenRecordset("select * from " & "Test")

lngDBIndex=1
rsT(modDatabase.conIndex).Value = lngDBIndex

以上代码如果直接写成:
rsT(modDatabase.conIndex).Value =1

不会出错,如果写成
rsT(modDatabase.conIndex).Value = lngDBIndex   

会出错,出错提示是:没有足够的内存继续执行程序。
要怎么修改呢?
...全文
174 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
FengZhongXia 2010-11-04
  • 打赏
  • 举报
回复
楼上高手。感谢!
兔子-顾问 2010-11-03
  • 打赏
  • 举报
回复
rsT(modDatabase.conIndex).Value
是什么类型的?
比如你可以
MessageBox.Show(rsT(modDatabase.conIndex).Value.GetType().Name)
看看,如果是Integer类型的,修改为
rsT(modDatabase.conIndex).Value = CType(lngDBIndex,Integer)
试试。

16,549

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧