这样就行了：
Dim cmd As New SQLCommandcmd.Connection Name = "数据源名称"cmd.CommandText = "SELECT SEQ_BIZ_BASE_INFO.NEXTVAL FROM DUAL"e.DataRow("SEQ_ID")= cmd.ExecuteScalar
加好友 
发短信
Post By：2011/9/23 17:26:00 [显示全部帖子]
