[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 __________________________________________________________________________ 你的连接已经写死，硬编码 看看微软的企业库中数据库操作部分 __________________________________________________________________________ 请问楼上的兄弟“微软的企业库中数据库操作部分” 在那里看哦。。给个地址哦。。 谢谢拉 __________________________________________________________________________ 需要学习。看微软的企业库中数据库操作部分 __________________________________________________________________________

原文地址：https://www.jb51.cc/vb/263667.html