使用datagridview vb.net更新DATABASE

作者: biu~
发布时间: 2024-08-23 10:59:56 (18天前)
转自：

3 条回复

0#
回复此人
易米烊光 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 这将做你想要的。 </p> <pre> <code> Imports System.Data.SqlClient Public Class Form1 Dim sCommand As SqlCommand Dim sAdapter As SqlDataAdapter Dim sBuilder As SqlCommandBuilder Dim sDs As DataSet Dim sTable As DataTable Private Sub load_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles load_btn.Click Dim connectionString As String = "Data Source=.;Initial Catalog=pubs;Integrated Security=True" Dim sql As String = "SELECT * FROM Stores" Dim connection As New SqlConnection(connectionString) connection.Open() sCommand = New SqlCommand(sql, connection) sAdapter = New SqlDataAdapter(sCommand) sBuilder = New SqlCommandBuilder(sAdapter) sDs = New DataSet() sAdapter.Fill(sDs, "Stores") sTable = sDs.Tables("Stores") connection.Close() DataGridView1.DataSource = sDs.Tables("Stores") DataGridView1.ReadOnly = True save_btn.Enabled = False DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect End Sub Private Sub new_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles new_btn.Click DataGridView1.[ReadOnly] = False save_btn.Enabled = True new_btn.Enabled = False delete_btn.Enabled = False End Sub Private Sub delete_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles delete_btn.Click If MessageBox.Show("Do you want to delete this row ?", "Delete", MessageBoxButtons.YesNo) = DialogResult.Yes Then DataGridView1.Rows.RemoveAt(DataGridView1.SelectedRows(0).Index) sAdapter.Update(sTable) End If End Sub Private Sub save_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save_btn.Click sAdapter.Update(sTable) DataGridView1.[ReadOnly] = True save_btn.Enabled = False new_btn.Enabled = True delete_btn.Enabled = True End Sub End Class </code> </pre> <P> <a href="http://vb.net-informations.com/datagridview/vb.net_datagridview_database.htm" rel="nofollow noreferrer"> http://vb.net-informations.com/datagridview/vb.net_datagridview_database.htm </A> </p> </DIV>

编辑
1#
回复此人
淋了一整夜的雨 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 你只是太过分了。把事情简单化。您绑定到单个表。您只需要一个select语句，并在末尾添加所选的表名。单个DataAdapter和DataTable。 DataTable可以更新数据库，而无需再次通过ComboBox舞蹈。 </p> <P> 使用块将确保您不仅关闭连接而且将其处理掉。 </p> <pre class="lang-vb prettyprint-override"> <code> Private dt As DataTable Private da As SqlDataAdapter '**EDIT** move declare of rq to class level Private rq As String Private Sub ComboBox3_SelectedvalueChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedValueChanged '**EDIT** moved declaration to Class level rq = "select * from [cutting software].dbo." & ComboBox3.SelectedItem.ToString dt = New DataTable Using cn As New SqlConnection("Your connection string") da = New SqlDataAdapter(rq, cn) da.Fill(dt) 'If the connection is closed, the DataAdapter will open and close it for you End Using DataGridView1.DataSource = dt End Sub Private Sub edit_Click(sender As Object, e As EventArgs) Handles edit.Click Dim cmdb As New SqlCommandBuilder(da) Using cn As New SqlConnection("Your connection string") '**EDIT** Add line to re-establish connection for adapter da.SelectCommand = New SqlCommand(rq, cn) da.Update(dt) End Using End Sub </code> </pre> <P> 的<strong> 编辑 </强> 重新建立DataAdapter的连接。 </p> </DIV>

编辑

登录后才能参与评论