我是一个全新的,真正的菜鸟,迟到的首发,根本没有以前的编码经验而且还是一个(也是全新的)实习生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
请,如何解决,我不理解(现在温柔)谢谢。