请问应如何添加数据.

[fgfdg33]

我在做一个添加数据的功能，代码如下，当运行到*****句时出错，
错误信息是“未将对象引用设置到对象的实例。”请问何解。谢谢

Dim connLStock As New SqlConnection(strConn)
Dim strLStock As String
Dim adLStock As New SqlDataAdapter()
Dim dsLstock As New DataSet()


With adLStock
****** .SelectCommand.CommandText = "SELECT * FROM LeechdomStock"
.SelectCommand.Connection = connLStock
connLStock.Open()
.Fill(dsLstock, "tblStock")
End With

Dim tblStock As DataTable = dsLstock.Tables("LeechdomStock")
Dim dr As DataRow = tblStock.NewRow

dr("LeechdomID") = ComboBox1.Text.Trim
dr("Factory") = TextBox2.Text.Trim
dr("EntryDate") = DateTimePicker1.Value
dr("ValidDate") = DateTimePicker2.Value
dr("TotalCharge") = TextBox3.Text.Trim
dr("TotalNice") = TextBox3.Text.Trim
dr("Price") = TextBox4.Text.Trim
dr("Nice") = TextBox5.Text.Trim
dr("Packge") = TextBox6.Text.Trim
dr("Specs") = TextBox7.Text.Trim
dr("FormNo") = TextBox8.Text.Trim
dr("Place") = TextBox9.Text.Trim
dr("Provider") = TextBox10.Text.Trim
dr("TradeMark") = TextBox11.Text.Trim
dr("LicenceNo") = TextBox12.Text.Trim
dr("Facies") = TextBox13.Text.Trim
dr("PackgeQuality") = TextBox14.Text.Trim
dr("Verdict") = TextBox15.Text.Trim
dr("Memo") = TextBox16.Text.Trim

tblStock.Rows.Add(dr)

connLStock.Close()

[donger2000]

如果下面代码中没少什么，按理就是对的：
Dim adLStock As New SqlDataAdapter()
Dim dsLstock As New DataSet()


With adLStock
****** .SelectCommand.CommandText = "SELECT * FROM LeechdomStock"
.SelectCommand.Connection = connLStock
connLStock.Open()
.Fill(dsLstock, "tblStock")
End With


建议你试一下：
Dim adLStock As SqlDataAdapter
Dim dsLstock As New DataSet()

adLStock = New SqlDataAdapter()
With adLStock
.SelectCommand.CommandText = "SELECT * FROM LeechdomStock"
.SelectCommand.Connection = connLStock
connLStock.Open()
.Fill(dsLstock, "tblStock")
End With

[dzq_1]

With adLStock
****** .SelectCommand.CommandText = "SELECT * FROM LeechdomStock"
.SelectCommand.Connection = connLStock
connLStock.Open()
.Fill(dsLstock, "tblStock")
End With
改成这样试一试:
connLStock.Open()

adLStock.SelectCommand.Connection = connLStock
adLStock.SelectCommand.CommandText = "SELECT * FROM LeechdomStock"
adLStock.SelectCommand.CommandType = CommandType.Text

adLStock.SelectCommand.ExecuteNonQuery()

adLStock.Fill(dsLstock, "tblStock")

connLStock.Close()

[斗斗来三]

先新键一个COMMAND对象，在连接到DATAADAPTER里去

[fgfdg33]

我修改了一下，错误从原来的地方到了别的地方，如****所示，出错信息还是原来那句“未将对象引用设置到对象的实例。”请问何解。谢谢


Dim connLStock As New SqlConnection(strConn)
Dim strLStock As String
Dim adLStock As New SqlDataAdapter()
Dim dsLstock As New DataSet()
Dim CmdObj As New SqlCommand()

CmdObj.CommandText = "SELECT * FROM LeechdomStock"

CmdObj.Connection = connLStock

connLStock.Open()
With adLStock
.SelectCommand = CmdObj
.SelectCommand.CommandType = CommandType.Text
.Fill(dsLstock, "tblStock")
End With

Dim tblStock As DataTable = dsLstock.Tables("LeechdomStock")
***************Dim dr As DataRow = tblStock.NewRow

dr("LeechdomID") = ComboBox1.Text.Trim
dr("Factory") = TextBox2.Text.Trim
dr("EntryDate") = DateTimePicker1.Value
dr("ValidDate") = DateTimePicker2.Value
dr("TotalCharge") = TextBox3.Text.Trim
dr("TotalNice") = TextBox3.Text.Trim
dr("Price") = TextBox4.Text.Trim
dr("Nice") = TextBox5.Text.Trim
dr("Packge") = TextBox6.Text.Trim
dr("Specs") = TextBox7.Text.Trim
dr("FormNo") = TextBox8.Text.Trim
dr("Place") = TextBox9.Text.Trim
dr("Provider") = TextBox10.Text.Trim
dr("TradeMark") = TextBox11.Text.Trim
dr("LicenceNo") = TextBox12.Text.Trim
dr("Facies") = TextBox13.Text.Trim
dr("PackgeQuality") = TextBox14.Text.Trim
dr("Verdict") = TextBox15.Text.Trim
dr("Memo") = TextBox16.Text.Trim

tblStock.Rows.Add(dr)

connLStock.Close()

[wd_318]

gz