VB.NET datagridview 修改后的数据如何保存回数据库。 20
我把数据表读出来显示到了datagridview后,然后在datagridview做了更改,然后如何把整个datagridview的数据更新回数据库中的数据表呢?我使用的...
我把数据表读出来显示到了datagridview后,然后在datagridview做了更改,然后如何把整个datagridview的数据更新回数据库中的数据表呢?
我使用的数据库是mysql
部分代码是这样的:
Imports MySql.Data.MySqlClient ’使用ADO连接
Dim da As MySqlDataAdapter
Dim ds As DataSet '定义数据集
Dim mSqlConn As MySqlConnection
Dim strSQL As String
‘根据筛选规则筛选出数据并显示
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
If (ToolStripTextBox1.Text = "") Then
If (ToolStripComboBox1.SelectedIndex <> 0) Then
MsgBox("关键字不能为空!", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "提示")
Exit Sub
End If
End If
Select Case ToolStripComboBox1.SelectedIndex
Case 0
strSQL = "select * from customerinfo"
Case 1
strSQL = "select * from customerinfo where ci_name like '%" & ToolStripTextBox1.Text & "%'"
Case 2
strSQL = "select * from customerinfo where ci_tel like '%" & ToolStripTextBox1.Text & "%'"
Case 3
strSQL = "select * from customerinfo where ci_cell like '%" & ToolStripTextBox1.Text & "%'"
Case 4
strSQL = "select * from customerinfo where ci_district like '%" & ToolStripTextBox1.Text & "%'"
End Select
mSqlConn = New MySqlConnection(mstrSQLconnection)
Try
If mSqlConn.State = ConnectionState.Closed Then mSqlConn.Open()
'定义适配器
da = New MySqlDataAdapter(strSQL, mSqlConn)
ds = New DataSet
da.Fill(ds, "客户信息") '适配器填充数据集
dbGridShow.DataSource = ds.Tables("客户信息")
da.Dispose()
ds.Dispose()
mSqlConn.Close()
mSqlConn.Dispose()
Catch ex As Exception '异常捕获
If mSqlConn.State = ConnectionState.Open Then
mSqlConn.Close()
MsgBox(ex.Message)
End If
End Try
End Sub 展开
我使用的数据库是mysql
部分代码是这样的:
Imports MySql.Data.MySqlClient ’使用ADO连接
Dim da As MySqlDataAdapter
Dim ds As DataSet '定义数据集
Dim mSqlConn As MySqlConnection
Dim strSQL As String
‘根据筛选规则筛选出数据并显示
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
If (ToolStripTextBox1.Text = "") Then
If (ToolStripComboBox1.SelectedIndex <> 0) Then
MsgBox("关键字不能为空!", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "提示")
Exit Sub
End If
End If
Select Case ToolStripComboBox1.SelectedIndex
Case 0
strSQL = "select * from customerinfo"
Case 1
strSQL = "select * from customerinfo where ci_name like '%" & ToolStripTextBox1.Text & "%'"
Case 2
strSQL = "select * from customerinfo where ci_tel like '%" & ToolStripTextBox1.Text & "%'"
Case 3
strSQL = "select * from customerinfo where ci_cell like '%" & ToolStripTextBox1.Text & "%'"
Case 4
strSQL = "select * from customerinfo where ci_district like '%" & ToolStripTextBox1.Text & "%'"
End Select
mSqlConn = New MySqlConnection(mstrSQLconnection)
Try
If mSqlConn.State = ConnectionState.Closed Then mSqlConn.Open()
'定义适配器
da = New MySqlDataAdapter(strSQL, mSqlConn)
ds = New DataSet
da.Fill(ds, "客户信息") '适配器填充数据集
dbGridShow.DataSource = ds.Tables("客户信息")
da.Dispose()
ds.Dispose()
mSqlConn.Close()
mSqlConn.Dispose()
Catch ex As Exception '异常捕获
If mSqlConn.State = ConnectionState.Open Then
mSqlConn.Close()
MsgBox(ex.Message)
End If
End Try
End Sub 展开
1个回答
展开全部
以下是我的,现成的作业的OLEDB数据库中,这是的ACCESS2003样的,你一个SQL-
第一次加入的形式DataGridView1的BindingSource1,BindingNavigator1 Button1控件的每一个,然后在BindingNavigator1控制,以添加一个按钮ToolStrip_Save
密钥OleDbCommandBuilder(自己改SqlClient.SqlCommandBuilder)
--------以下是对整个类的代码---------- ------------------------------------------------ ...... />进口System.Data.OleDb
公共类Form1中
昏暗的DS作为数据集
昏暗的结核病作为数据表
昏暗的AP作为OleDbDataAdapter的
</私人小button1_Click的( BYVAL发件人为System.Object,BYVAL e由于System.EventArgs)处理Button1.Click“手动
Me.DataGridView1.AllowUserToAddRows =假
TB =新的DataTable
AP = OleDbDataAdapter的(”选择* 70.7“,CN)”这里是SQL命令,Cn为连接到数据库,您的康恩
ap.Fill(TB)= TB Me.BindingSource1.DataSource
Me.BindingNavigator1.BindingSource = Me.BindingSource1
Me.DataGridView1.DataSource Me.BindingSource1
末次
私人小ToolStrip_Save_Click(BYVAL发件人作为系统。对象'e由于System.EventArgs)处理ToolStrip_Save.Click调用保存
Save_Data()
END SUB
专用功能Save_Data()作为布尔“保存数据库的操作
尝试
> Me.DataGridView1.EndEdit()
Me.BindingSource1.EndEdit()
昏暗的BD作为新OleDbCommandBuilder(AP)
ap.UpdateCommand = bd.GetUpdateCommand
ap.Update( Me.BindingSource1.DataSource)
,则返回true
抓住作为例外
MSGBOX(ex.Message)
则返回false
结束前尝试
端的功能p>私人小ToolStrip_Cancel_Click(BYVAL发件人为System.Object的,BYVAL e视)处理ToolStrip_Cancel.Click“
button1_Click的(发件人,E)
END SUB
第一次加入的形式DataGridView1的BindingSource1,BindingNavigator1 Button1控件的每一个,然后在BindingNavigator1控制,以添加一个按钮ToolStrip_Save
密钥OleDbCommandBuilder(自己改SqlClient.SqlCommandBuilder)
--------以下是对整个类的代码---------- ------------------------------------------------ ...... />进口System.Data.OleDb
公共类Form1中
昏暗的DS作为数据集
昏暗的结核病作为数据表
昏暗的AP作为OleDbDataAdapter的
</私人小button1_Click的( BYVAL发件人为System.Object,BYVAL e由于System.EventArgs)处理Button1.Click“手动
Me.DataGridView1.AllowUserToAddRows =假
TB =新的DataTable
AP = OleDbDataAdapter的(”选择* 70.7“,CN)”这里是SQL命令,Cn为连接到数据库,您的康恩
ap.Fill(TB)= TB Me.BindingSource1.DataSource
Me.BindingNavigator1.BindingSource = Me.BindingSource1
Me.DataGridView1.DataSource Me.BindingSource1
末次
私人小ToolStrip_Save_Click(BYVAL发件人作为系统。对象'e由于System.EventArgs)处理ToolStrip_Save.Click调用保存
Save_Data()
END SUB
专用功能Save_Data()作为布尔“保存数据库的操作
尝试
> Me.DataGridView1.EndEdit()
Me.BindingSource1.EndEdit()
昏暗的BD作为新OleDbCommandBuilder(AP)
ap.UpdateCommand = bd.GetUpdateCommand
ap.Update( Me.BindingSource1.DataSource)
,则返回true
抓住作为例外
MSGBOX(ex.Message)
则返回false
结束前尝试
端的功能p>私人小ToolStrip_Cancel_Click(BYVAL发件人为System.Object的,BYVAL e视)处理ToolStrip_Cancel.Click“
button1_Click的(发件人,E)
END SUB
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |