返回定义利用DataTable、DataSet返回SQL Server的表或者单个字段
改章节朋友在北京吃饭的时候突然想到的...近期就有想写几篇关于返回定义的笔记,所以回家到之后就奋笔疾书的写出来发表了
DataTable 是一个临时保存数据的网格虚拟表(表现内存中数据的一个表)。DataTable是 ADO.NET 库中
的核心对
象。它可以被应用在 VB 和 ASP 上。它无须代码就可以简略的绑定数据库。它拥有
风格的用户界面。
1>返回整个表的数据
Public Function BackDB(ByVal strconstr As String) As DataTable '定义连接字符串 Dim Connstr As String = ConfigurationManager.AppSettings("Connstr") '定义数据库连接对象(参数为上一行连接字符串) Dim conn As SqlConnection = New SqlConnection(Connstr) '定义命令对象 Dim sqlcmd As New SqlCommand(strconstr, conn) '定义返回的结果 Dim ds As New DataSet '定义数据库查询对象(strsql(param1):用于查询执行的sql语句。conn(param2):连接对象) Dim da As New SqlDataAdapter(sqlcmd) '将查询所得数据填充到ds对象中 da.Fill(ds) '返回ds对象中第一个表的记载 Return ds.Tables(0) End Function
上述是返回查询到数据的第一个表,也可以这样da.Fill(ds,"表名")返回特定表的数据。
2>返回单个字段
Public Function testsingle(ByVal strsql As String) As Entity.StudentInfo Implements IDAL.ICheckStInfo.CheckStInfo '定义实体类 Dim stinfo As New Entity.StudentInfo '定义用于存放返回值的datatable对象 Dim dt As New DataTable '定义sqlhelper对象 Dim sqlbackdb As New SQLHelper.DBHandle '定义用于查询的sql语句 Dim strconn As String = "SELECT * FROM Student_Info WHERE CARDNO = '" + strsql + " '" '存储Sqlhelp的返回值 dt = sqlbackdb.BackDB(strconn) '将返回值放入实体类 stinfo.Cash = dt.Rows(0)(6).ToString '返回实体类值 Return stinfo End Function
文章结束给大家分享下程序员的一些笑话语录:
爱情观
爱情就是死循环,一旦执行就陷进去了。
爱上一个人,就是内存泄露--你永远释放不了。
真正爱上一个人的时候,那就是常量限定,永远不会改变。
女朋友就是私有变量,只有我这个类才能调用。
情人就是指针用的时候一定要注意,要不然就带来巨大的灾难。