Vb.net 如何刷新datagrid和更新数据库?
我在更新数据库时遇到了一些麻烦。我有以下代码:Vb.net 如何刷新datagrid和更新数据库?,vb.net,updating,Vb.net,Updating,我在更新数据库时遇到了一些麻烦。我有以下代码: Dim cmd As OleDbCommand Dim sql As String sql = "UPDATE nmat SET nip = '" & lblNipDosen.Text & "', nim = '" & TxtNIM.Text & "', ntugas = '" & TxtNtugas.Text & "', nabsensi = '" & Txt
Dim cmd As OleDbCommand
Dim sql As String
sql = "UPDATE nmat SET nip = '" & lblNipDosen.Text & "', nim = '" & TxtNIM.Text & "', ntugas = '" & TxtNtugas.Text & "', nabsensi = '" & TxtNabsen.Text & "', nuts = '" & TxtNuts.Text & "', nuas = '" & TxtNuas.Text & "' WHERE nim='" & TxtNIM.Text & "'"
conn.Open()
Dim reader As OleDbDataReader
Try
cmd = New OleDbCommand(sql, conn)
cmd.ExecuteNonQuery()
DataGridView1.Refresh()
Finally
'reader.Close()
End Try
conn.Close()
我的问题是,通过这些代码,在我关闭并再次打开此表单后,网格可以刷新。但是如果我签入我的ms Access,数据根本就没有更改。如何更新我的数据库并在我的datagrid中显示???尝试以下操作:
Dim cmd As OleDbCommand
Dim rstTable As New DataTable()
Dim sql As String
sql = "UPDATE nmat SET nip = '" & lblNipDosen.Text & "', nim = '" & TxtNIM.Text & "', ntugas = '" & TxtNtugas.Text & "', nabsensi = '" & TxtNabsen.Text & "', nuts = '" & TxtNuts.Text & "', nuas = '" & TxtNuas.Text & "' WHERE nim='" & TxtNIM.Text & "'"
conn.Open()
Dim reader As OleDbDataReader
Try
cmd = New OleDbCommand(sql, conn)
rstTable.Load(cmd.ExecuteReader())
DataGridView1.DataSource =rstTable
Finally
'reader.Close()
End Try
conn.Close()
您的gridview列应该绑定到一个字段我正在使用vb.net 2008,没有选项。Bind()在我的DataGridView1中,我会在几分钟内修复它。您确定要查看的是同一个数据库吗?你的连接字符串是什么?