关于修改datagridview中的数据问题?
哪吒 2011-03-30 09:40:03 Public dataConnection As OleDbConnection
Public dataAdapter As OleDbDataAdapter
Public dataSet As DataSet
Public connstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\故障查询.mdb;Persist Security Info=True;Jet OLEDB:Database Password=****"
-----------------
Public Function getDataFromDB(ByVal sqlstr As String) As DataSet
Try
dataConnection = New OleDbConnection
dataConnection.ConnectionString = connstr ' 设置连接字符串
dataAdapter = New OleDbDataAdapter(sqlstr, dataConnection)
' 实例化数据适配器,并设置查询字符串
dataSet = New DataSet
dataSet.Clear()
dataAdapter.Fill(dataSet) ' 填充数据集
dataConnection.Close() ' 关闭连接
Catch ex As Exception
MsgBox(ex.Message)
dataConnection.Close()
End Try
If dataSet.Tables(0).Rows.Count > 0 Then
Return dataSet ' 若找到相应的数据,则返回数据集
Else
Return Nothing ' 若没有找到相应的数据,返回空值
End If
End Function
--------------------以下是查询代码
Private Sub 查询_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
If TextBox1.Text = "" Then
Dim sqlstr As String
Dim ds As DataSet
sqlstr = "SELECT *from 故障表"
ds = getDataFromDB(sqlstr)
If ds Is Nothing Then
MsgBox("没有符合条件的记录!")
DataGridView1.DataSource = Nothing
Else
DataGridView1.DataSource = ds.Tables(0) ' 将数据集中的数据追加到数据控件中
End If
Else
Dim sqlstr As String
Dim ds As DataSet
sqlstr = "SELECT *FROM 故障表 WHERE 故障现象 Like '%" & TextBox1.Text & "%'"
ds = getDataFromDB(sqlstr)
If ds Is Nothing Then
MsgBox("没有符合条件的记录!")
DataGridView1.DataSource = Nothing
Else
DataGridView1.DataSource = ds.Tables(0) ' 将数据集中的数据追加到数据控件中
End If
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
---------------------------我想在原有基础上增加一个按钮,在datagridview修改后,点击更新按钮,将update到数据库中。
Private Sub btUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btUpdate.Click
???????????????????????????????????
End Sub
求方法和代码。