菜鸟问题，在线等待，关于asp.net+vb.net 的数据连接 用类写的~~

[zl_xue]

我把数据库连接改用类写了，但就是不好用！！是什么问题阿！
代码如下：

'SML0790.vb
Imports sanden.ConnectToOraDB '自定义类
Imports System.Data.OracleClient
Imports System.Diagnostics
Imports System.Data
Imports System

Public Class SML0790
Inherits System.Web.UI.Page
Protected WithEvents DtgData As System.Web.UI.WebControls.DataGrid
Protected WithEvents EventLog As System.Diagnostics.EventLog
Protected WithEvents pbExpExl As System.Web.UI.WebControls.Button


Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Call insetDataToDtg
Call InsetDataToDtg()

End Sub

'Insert data to Datagrid
Private Sub InsetDataToDtg()

Dim SqlTxt As String = "SELECT * FROM HELP "
Dim OrclConn As ConnectToOraDB
Dim OrclComm As New OracleCommand(SqlTxt)

Try
OrclConn.conOrclOpen()
OrclComm.Connection = OrclConn.con
DtgData.DataSource = OrclComm.ExecuteReader
DtgData.DataBind()

Catch e As Exception
Console.WriteLine(e.Message)
End Try

'Connect closed
Try
OrclConn.conOrclClose()
Catch e As Exception
Console.WriteLine(e.Message)
End Try

End Sub
End Class

类文件如下：
'ConnectToOraDB.vb

Imports System.Data.OracleClient

Public Class ConnectToOraDB

Private connectString As String = "User Id=SYSTEM;Password=NET;Data Source=ORCL;"
Public con As OracleConnection = New OracleConnection()

'Connect Open
Public Sub conOrclOpen()

Try
con.Open()
Catch E As Exception
Console.WriteLine(E.Message)
End Try

End Sub

'Connect Close
Public Sub conOrclClose()
Try
con.Close()
Catch Ex As Exception
Console.WriteLine(Ex.Message)
End Try
End Sub

End Class

错误异常如下：
Object reference not set to an instance of an object.


问题是什么阿，谢谢！

[zl_xue]

Try
OrclConn.conOrclOpen() '错误在这
OrclComm.Connection = OrclConn.con
DtgData.DataSource = OrclComm.ExecuteReader
DtgData.DataBind()

Catch e As Exception
Console.WriteLine(e.Message)
End Try

[acewang]

Dim OrclConn As ConnectToOraDB
---->Dim OrclConn As ConnectToOraDB=new ConnectToOraDB()

[zl_xue]

我试试

[火电]

类用得时候要初始化
久想楼上说的

[zl_xue]

ok 了！！！
3ks