我可以/我应该使用FILL来填充VB.NET 2010中的DATATABLE

时间:2015-11-09 21:10:43

标签: sql-server vb.net datatable vb.net-2010

我是一个全新的,真正的菜鸟,迟到的首发,根本没有以前的编码经验而且还是一个(也是全新的)实习生vb.net开发人员(内部移动来自不同的业务领域,不是IT或任何东西,非常沉没或深入游泳。

第一项任务是'现代化'纸张程序,我有一个简单的前端工作正常。我正在尝试处理稍后在单独的控制台应用程序中写入的数据库条目,但我无法将条目输入数据表(非常简单的数据库,单个表,数据集会太复杂?)。

我不知道如何使用模块,方法等;我的前端是几个简单的形式,所以有点让它变得容易。

我从Wrox Beginning VB2010采购了基本要点,因为雇主在VS2010上。它说填充适用于数据集和数据表;我知道该表是使用正确的列创建的,但它没有填充。

这是我的代码:

Dim objDataAdapter As SqlClient.SqlDataAdapter
Dim objConnection As SqlClient.SqlConnection

Dim strConn As String
Dim strTableName As String = "MyTableName"

Sub Main()

    strConn = "Server = MySQLServer\Name: Database = MyDatabase; Integrated Security = SSPI; Application Name =MyApplicationName"

    objDataAdapter = New SqlClient.SqlDataAdapter()
    objDataAdapter.SelectCommand = New SqlClient.SqlCommand
    objDataAdapter.SelectCommand.Connection = objConnection
    objConnection = New SqlClient.SqlConnection(strConn)
    objConnection.Open()

    objDataAdapter.SelectCommand.CommandText = "SELECT [MyFirstSQLColumn]"
    objDataAdapter.SelectCommand.CommandText &= ",[MySecondSQLColumn]"
    objDataAdapter.SelectCommand.CommandText &= "WHERE DATE IS TODAY(sic)"

    Dim dtbTodaysTableEntries As New DataTable(strTableName)
    dtbTodaysTableEntries.Columns.Add("FirstDTColumn")
    dtbTodaysTableEntries.Columns.Add("SecondDTColumn")

    objDataAdapter.Fill(dtbTodaysTableEntries)
    objConnection.Close()

End Sub

请,如何解决,我不理解(现在温柔)谢谢。

0 个答案:

没有答案