这个insert操作哪里错了???

[fa791222]

<Script Language="VB" Runat="Server">
Dim pertime As datetime = system.datetime.now
Dim MyConnString As string = "Provider=MSDAORA; Data Source=陈浩军; User id=test; Password=erpjw;"
Dim conn1 as OleDbConnection = New OleDbConnection(MyConnString)
Dim ds1 As DataSet = New DataSet()

Sub insert(sender as Object, e as EventArgs)
Dim sql As string = "insert into TAB_CUSTOMER(id,b01,b02,b3) VALUES (num_seq.nextval,'username','"& b02.text &"',TO_date('"+ perTIME +"','YYYY-MM-DD HH24:MI:SS'))"

Dim dr As oleDbDataReader
Dim MyCommand As OleDbCommand = New OleDbCommand(sql,conn1)
MyCommand.Connection.Open()
MyCommand.executeNonQuery()
End sub
</script>

当程序调试时出现:

“/aspnet”应用程序中的服务器错误。
--------------------------------------------------------------------------------

未将对象引用设置到对象的实例。
说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。

异常详细信息: System.NullReferenceException: 未将对象引用设置到对象的实例。

[付长松_华为云MVP]

Dim sql As string = "insert into TAB_CUSTOMER(id,b01,b02,b3) VALUES ("+cstr(num_seq.nextval)+",'username','"& b02.text &"',TO_date('"+ perTIME +"','YYYY-MM-DD HH24:MI:SS'))"

[fa791222]

不,上面这个insert 没错,我试过.

应该是其他错

[CinnXu]

Dim dr As oleDbDataReader

可能这句错,你没有给dr指定值,后面要是调用了,就会出现未将对象引用设置到对象的实例。

[fa791222]

哦知道了,是在作insert时,如b02为空的话,则insert不了!