前端之家收集整理的这篇文章主要介绍了
[VB.NET]高手来帮我看一下我的代码了??,
前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
高手来帮我看一下我的
代码了?? Imports System.Data Imports System Imports System.Data.
sqlClient Public Class Class1 Public myconn As
sqlConnection Public mycomm As
sqlCommand Public mydt As DataTable Public Function DBopen() As Boolean Try myconn = New
sqlConnection( Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pubs ) myconn.Open() Catch ex As Exception Message
Box.Show(ex.ToString) End Try End Function Public Function DBclose() As Boolean Try myconn.Close() myconn = Nothing myconn.Dispose() Catch ex As Exception Message
Box.Show(ex.ToString) End Try End Function End Class 这是我在一个类中定义
数据库连接,,我觉得不太好,,但是我又不会改。。 请那位大哥大姐帮我给好一点咯。。 这样定义到
页面上我要用到myconn时候,,我觉得不到他的返回值哦。 总觉得这样写的是在不怎么好的 望指正。。 __________________________________________________________________________ 你定义的是
函数,
函数是需要返回值的,而你没有明确的指定。 你可以把你的
函数改成子过程,也就是 sub 另外你也可以指定
函数的返回值的。如: Imports System.Data Imports System Imports System.Data.
sqlClient Public Class Class1 Public myconn As
sqlConnection Public mycomm As
sqlCommand Public mydt As DataTable Public Function DBopen() As Boolean Try myconn = New
sqlConnection( Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pubs ) myconn.Open() dbopen=true Catch ex As Exception Message
Box.Show(ex.ToString) dbopen=false End Try End Function Public Function DBclose() As Boolean Try myconn.Close() myconn = Nothing myconn.Dispose() dbclose=true Catch ex As Exception Message
Box.Show(ex.ToString) declose =false End Try End Function End Class __________________________________________________________________________ 你的连接已经写死,硬编码 看看微软的企业库中
数据库操作部分 __________________________________________________________________________ 请问楼上的兄弟“微软的企业库中
数据库操作部分” 在那里看哦。。给个地址哦。。 谢谢拉 __________________________________________________________________________ 需要学习。看微软的企业库中
数据库操作部分 __________________________________________________________________________