
vb datagridview 中修改了数据 批量保存到数据表中,但数据表没有被更新 恳求帮助
PublicClassForm2PublicdsAsDataSet=NewDataSetPublicconnstrAsStringPublicadAsMySqlDataA...
Public Class Form2
Public ds As DataSet = New DataSet
Public connstr As String
Public ad As MySqlDataAdapter = New MySqlDataAdapter
Public command1 As New MySqlCommand
Public builder As MySqlCommandBuilder
Public BindingSource1 As New BindingSource
Public conn As MySqlConnection = New MySqlConnection("server=localhost;uid=root;pwd=123;database=mysql;pooling=false") Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load conn.Open()
If ConnectionState.Open Then
Label1.Text = "数据库已打开"
Label1.ForeColor = Color.Blue
ad.SelectCommand = New MySqlCommand("select xm_dm,xm_mc,je from hs_sr", conn)
ad.Fill(ds, "hs_sr")
BindingSource1.DataSource = ds
BindingSource1.DataMember = "hs_sr"
DataGridView1.DataSource = BindingSource1
Else
Label1.Text = "连接数据库失败!"
Label1.ForeColor = Color.Red End If ad.Dispose()
conn.Close()
End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim connection As MySqlConnection = New MySqlConnection("server=localhost;uid=root;pwd=123;database=mysql;pooling=false") connection.Open()
Dim select1 As String
select1 = "select xm_dm,xm_mc,je from hs_sr" Dim myAdapter As MySqlDataAdapter = New MySqlDataAdapter(select1, connection) myAdapter.SelectCommand = New MySqlCommand(select1, connection)
myAdapter.Fill(ds, "hs_sr1") myAdapter.SelectCommand = command1
builder = New MySqlCommandBuilder(myAdapter)
DataGridView1.DataSource = BindingSource1
myAdapter.Update(ds.Tables("hs_sr1")) End SubEnd Class 展开
Public ds As DataSet = New DataSet
Public connstr As String
Public ad As MySqlDataAdapter = New MySqlDataAdapter
Public command1 As New MySqlCommand
Public builder As MySqlCommandBuilder
Public BindingSource1 As New BindingSource
Public conn As MySqlConnection = New MySqlConnection("server=localhost;uid=root;pwd=123;database=mysql;pooling=false") Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load conn.Open()
If ConnectionState.Open Then
Label1.Text = "数据库已打开"
Label1.ForeColor = Color.Blue
ad.SelectCommand = New MySqlCommand("select xm_dm,xm_mc,je from hs_sr", conn)
ad.Fill(ds, "hs_sr")
BindingSource1.DataSource = ds
BindingSource1.DataMember = "hs_sr"
DataGridView1.DataSource = BindingSource1
Else
Label1.Text = "连接数据库失败!"
Label1.ForeColor = Color.Red End If ad.Dispose()
conn.Close()
End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim connection As MySqlConnection = New MySqlConnection("server=localhost;uid=root;pwd=123;database=mysql;pooling=false") connection.Open()
Dim select1 As String
select1 = "select xm_dm,xm_mc,je from hs_sr" Dim myAdapter As MySqlDataAdapter = New MySqlDataAdapter(select1, connection) myAdapter.SelectCommand = New MySqlCommand(select1, connection)
myAdapter.Fill(ds, "hs_sr1") myAdapter.SelectCommand = command1
builder = New MySqlCommandBuilder(myAdapter)
DataGridView1.DataSource = BindingSource1
myAdapter.Update(ds.Tables("hs_sr1")) End SubEnd Class 展开
2个回答
展开全部
可以重新将datagridview与数据表绑定一次,autoredraw属性为真
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询