[VB.NET]高手来帮我看一下我的代码了??

前端之家收集整理的这篇文章主要介绍了[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 MessageBox.Show(ex.ToString) End Try End Function Public Function DBclose() As Boolean Try myconn.Close() myconn = Nothing myconn.Dispose() Catch ex As Exception MessageBox.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 MessageBox.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 MessageBox.Show(ex.ToString) declose =false End Try End Function End Class __________________________________________________________________________ 你的连接已经写死,硬编码 看看微软的企业库中数据库操作部分 __________________________________________________________________________ 请问楼上的兄弟“微软的企业库中数据库操作部分” 在那里看哦。。给个地址哦。。 谢谢拉 __________________________________________________________________________ 需要学习。看微软的企业库中数据库操作部分 __________________________________________________________________________

猜你在找的VB相关文章