Foxtable(狐表)用户栏目专家坐堂 → 出错了DataRowAdding事件


  共有9960人关注过本帖树形打印复制链接

主题:出错了DataRowAdding事件

帅哥哟,离线,有人找我吗?
lenshen
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:23 积分:216 威望:0 精华:0 注册:2011/9/15 14:16:00
出错了DataRowAdding事件  发帖心情 Post By:2011/9/23 17:24:00 [只看该作者]

DataRowAdding事件

 

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT SEQ_BIZ_BASE_INFO.NEXTVAL FROM DUAL"
dt = cmd.ExecuteReader()
e.DataRow("SEQ_ID")=dt.DataRows(0)("SEQ_ID")

 


图片点击可在新窗口打开查看此主题相关图片如下:aa.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
lenshen
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:23 积分:216 威望:0 精华:0 注册:2011/9/15 14:16:00
  发帖心情 Post By:2011/9/23 17:25:00 [只看该作者]

数据库是ORACLE 10g


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/9/23 17:26:00 [只看该作者]

这样就行了:

 

Dim cmd As New SQLCommand
cmd.Connection Name = "数据源名称"
cmd.CommandText = "SELECT SEQ_BIZ_BASE_INFO.NEXTVAL FROM DUAL"
e.DataRow("SEQ_ID")= cmd.ExecuteScalar


 回到顶部
帅哥哟,离线,有人找我吗?
lenshen
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:23 积分:216 威望:0 精华:0 注册:2011/9/15 14:16:00
  发帖心情 Post By:2011/9/23 17:31:00 [只看该作者]

真的可以了,谢!


 回到顶部