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

zl_xue 2003-11-21 02:12:28
我把数据库连接改用类写了,但就是不好用!!是什么问题阿!
代码如下:

'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.


问题是什么阿,谢谢!
...全文
30 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
zl_xue 2003-11-21
  • 打赏
  • 举报
回复
ok 了!!!
3ks
火电 2003-11-21
  • 打赏
  • 举报
回复

类用得时候要初始化
久想楼上说的
zl_xue 2003-11-21
  • 打赏
  • 举报
回复
我试试
acewang 2003-11-21
  • 打赏
  • 举报
回复
Dim OrclConn As ConnectToOraDB
---->Dim OrclConn As ConnectToOraDB=new ConnectToOraDB()
zl_xue 2003-11-21
  • 打赏
  • 举报
回复
Try
OrclConn.conOrclOpen() '错误在这
OrclComm.Connection = OrclConn.con
DtgData.DataSource = OrclComm.ExecuteReader
DtgData.DataBind()

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

62,244

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见,支持健康理性的辩论和互动,反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

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