郁闷：文本框绑定字段后，如何将修改结果更新到数据库？

southdoor 2003-08-25 10:46:24

如果绑定的是datagrid1，则一句就搞定了 SqlDataAdapter4.Update(DataSet11, "本公司信息")
可为什么textbox1绑定就不行呢？

...全文

85 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

banni2003 2003-08-28

打赏
举报

试试这个。
Dim orow As DataRow = DataSet11.Tables("本公司信息").NowRows()
orow.Item("全称") = Trim(TextBox1.Text)
orow.Item("帐号") = Trim(TextBox11.Text)
orow.Item("开户行") = Trim(TextBox10.Text)
orow.Item("联系电话") = Trim(TextBox13.Text)
orow.Item("联系人") = Trim(TextBox3.Text)
orow.Item("传真") = Trim(TextBox16.Text)
orow.Item("投诉电话") = Trim(TextBox7.Text)
Dataset11.Tables("本公司信息").Rows.Add(orow)
SqlDataAdapter4.Update(DataSet11, "本公司信息")

chenzhongfei 2003-08-28

打赏
举报

dim a() as datarow
a(0)=mydataset.tables("本公司信息").row(i)
mydataadapter.Update(a())
说是要刷row要是一数组你看这样行不行
刷完后不用 mydataset.tables("本公司信息").row(i).acceptchanges

chenzhongfei 2003-08-26

打赏
举报

呵呵我记错了那就直接mydataadapter.Update(mydataset.tables("本公司信息")）
updata row的语法我忘记了

southdoor 2003-08-25

打赏
举报

to：chenzhongfei(尘中飞) (
不行，语法就通不过。

chenzhongfei 2003-08-25

打赏
举报

晕这样也可以先要知道这是第i行然后在
dr（i）.item("全称") = TextBox1.Text
dr（i）.item("帐号") = TextBox2.Text
dr（i）.item("开户行") = TextBox3.Text
dr（i）.item("联系电话") = TextBox4.Text
dr（i）.item("联系人") = TextBox5.Text
dr（i）.item("传真") = TextBox6.Text
dr（i）.item("投诉电话") = TextBox7.Text
mydataadapter.Update(mydataset.tables("本公司信息").row(i))
mydataset.tables("本公司信息").row(i).acceptchanges

islkeng 2003-08-25

打赏
举报

试一试这样写吧：
Dim dt As DataTable
dt = mydataset.Tables("本公司信息")
Dim dr As DataRow = dt.NewRow
dr("全称") = TextBox1.Text
dr("帐号") = TextBox2.Text
dr("开户行") = TextBox3.Text
dr("联系电话") = TextBox4.Text
dr("联系人") = TextBox5.Text
dr("传真") = TextBox6.Text
dr("投诉电话") = TextBox7.Text
dt.Rows.Add(dr)
DataGrid1.ReadOnly = False
Dim sqlcmdb As SqlCommandBuilder = New SqlCommandBuilder(mydataadapter)
mydataadapter.Update(mydataset, "本公司信息")

southdoor 2003-08-25

打赏
举报

Dim orow As DataRow = DataSet11.Tables("本公司信息").Rows(0)
orow.Item("全称") = Trim(TextBox1.Text)
orow.Item("帐号") = Trim(TextBox11.Text)
orow.Item("开户行") = Trim(TextBox10.Text)
orow.Item("联系电话") = Trim(TextBox13.Text)
orow.Item("联系人") = Trim(TextBox3.Text)
orow.Item("传真") = Trim(TextBox16.Text)
orow.Item("投诉电话") = Trim(TextBox7.Text)
orow.update '''‘’‘’‘’‘’‘’‘’‘’‘’''这里怎么写？？？？？
SqlDataAdapter4.Update(DataSet11, "本公司信息")

rock29 2003-08-25