第一种通过属性设置

首先在属性窗体找到DataSource属性，点击下拉框。第一次用，曾经每加入过的话，点击加入数据源

选择数据类型，下一步，选择数据集，下一步

选择数据连接，点新建连接

在加入链接对话框中更改数据源（我用的SQL Server数据库）,点击下拉框选择server名称（点号默觉得自己的server）。然后在以下连接到数据处选择数据库，測试链接通过的话，点确定。这时又回到数据配置向导，点下一步就能够在数据库中选择你要显示的表了。

加入完毕后，执行窗口数据就显示出来了

 另外一种方法就是通过写代码载入数据

    '定义一个函数查找规定日期内的收取金额
    Public Function check_money(ByVal tstRecharge As Model.RechargeModel) As DataTable
        Dim strSQL As String = "select * from Recharge_info where rechargeDateTime between @startdatetime and @enddatetime"
        Dim params As SqlParameter() = {New SqlParameter("@startdatetime", tstRecharge.start_datetime), New SqlParameter("@enddatetime", tstRecharge.end_datetime)}
        Dim helper As New SqlHelper
        Dim dat = helper.GetDataTable(strSQL, CommandType.Text, params) '调用sqlhelper
        Return dat '返回查到的数据表
    End Function
 Dim db As New DAL.CkeckMoneyDAL '定义一个D层对象，用来调用D层函数
    '定义一个函数，用来检查D层查找金额返回的数据
    Public Function check_return(model As Model.RechargeModel) As DataTable
        Dim dat = db.check_money(model)
        If dat.Rows.Count = 0 Then '检查D层返回的数据表中是否有数据
            Return Nothing
        Else
            Return dat
        End If
    End Function
 Dim thisRecharge As New Model.RechargeModel '定义一个实体层对象，用来接收起止时间
        thisRecharge.start_datetime = DateTimePicker1.Text
        thisRecharge.end_datetime = DateTimePicker2.Text
        Dim ub As New BLL.CheckMoneyBLL '定义一个B层对象，用来调用B层函数
        If ub.check_return(thisRecharge) Is Nothing Then
            MsgBox("该时间段内没有记录，请又一次设置时间段！", MsgBoxStyle.Exclamation, vbOKOnly)
        Else
            dvwTitles.DataSource = ub.check_return(thisRecharge) '把查到的数据传给datagridview
        End If

显示结果：

两种方法各有优缺点，我们须要依据自己的实际情况选择使用。当我们仅仅须要显示整张表的数据或者表中数据不多的情况下，第一种方法最简单只是来，不须要写不论什么代码。假设我们希望数据有选择性的显示，比方上图中就仅仅显示6月18日到6月20日期间的数据，通过写代码尽管貌似繁琐，可是显示结果一目了然，避免了我们从大量数据中寻找我们须要的数据，大大提高了效率。