。。
。。
Dim SqlAda As New SqlDataAdapter
Dim ds As New DataSet
SqlAda.SelectCommand = SqlCmd Try
SqlAda.Fill(ds)
Dim dt_Insert As DataTable = ds.Tables(0)
Dim dr_Insert As DataRow = dt_Insert.NewRow dr_Insert("ID") = Me.tbid.Text.Trim()
dr_Insert("NAME") = Me.tbname.Text.Trim()
If Me.tbage.Text.Trim() <> String.Empty Then
dr_Insert("AGE") = Int16.Parse(Me.tbage.Text.Trim())
End If
If Me.tbin.Text.Trim() <> String.Empty Then
dr_Insert("IN_DATE") = DateTime.Parse(Me.tbin.Text.Trim())
End If
dr_Insert("SEX") = Me.GetSex().Trim()
dr_Insert("TEL") = Me.tbtel.Text.Trim()
dt_Insert.Rows.Add(dr_Insert)
Dim SqlBuilder As New SqlCommandBuilder(SqlAda)
SqlAda.Update(ds)
MessageBox.Show("增加成功!")
。。
。
。。开始定义了一个datatable并且用ds.tables(0)对其进行赋值,然后对这个datatable进行了更新一列的操作,但是最后没有再让这个datatable和dataset进行关联,直接就用sqldataadapter.updata(ds)就对数据库更新了?
我想不明白,谁给我解释一下
。。
Dim SqlAda As New SqlDataAdapter
Dim ds As New DataSet
SqlAda.SelectCommand = SqlCmd Try
SqlAda.Fill(ds)
Dim dt_Insert As DataTable = ds.Tables(0)
Dim dr_Insert As DataRow = dt_Insert.NewRow dr_Insert("ID") = Me.tbid.Text.Trim()
dr_Insert("NAME") = Me.tbname.Text.Trim()
If Me.tbage.Text.Trim() <> String.Empty Then
dr_Insert("AGE") = Int16.Parse(Me.tbage.Text.Trim())
End If
If Me.tbin.Text.Trim() <> String.Empty Then
dr_Insert("IN_DATE") = DateTime.Parse(Me.tbin.Text.Trim())
End If
dr_Insert("SEX") = Me.GetSex().Trim()
dr_Insert("TEL") = Me.tbtel.Text.Trim()
dt_Insert.Rows.Add(dr_Insert)
Dim SqlBuilder As New SqlCommandBuilder(SqlAda)
SqlAda.Update(ds)
MessageBox.Show("增加成功!")
。。
。
。。开始定义了一个datatable并且用ds.tables(0)对其进行赋值,然后对这个datatable进行了更新一列的操作,但是最后没有再让这个datatable和dataset进行关联,直接就用sqldataadapter.updata(ds)就对数据库更新了?
我想不明白,谁给我解释一下
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货