datagrid单元格中数据如何修改，并保存到数据库

Question

将datagrid中任意一个单元格中数据修改，然后通过按钮点击保存到数据库。

Answer 1

你要将datagrid的属性定为“也许更新”即可。

Answer 2

datagrid本身的更改我没有试过，
我用的是一个text文本控件，根据你点的格子位置，移动上去，进行修改
然后把datagrid内容保存到数据中

Answer 3

你可以用data控件与datagrid绑定，直接更改就可是写进数据库，当然是data和数据库已绑定

Answer 4

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mysql As String
Dim i As Integer
Private Sub Command2_Click(Index As Integer)
Select Case Index
    Case 0
         conn.Execute ("insert into 员工信息 (姓名,政治面貌,科室,职务,生日,军烈属),工资总" _
& " select '" & Trim(Text1.Text) & "','" & Trim(Text2.Text) & "','" & Trim(Text3.Text) & "','" & Trim(Text4.Text) & "','" & Trim(Text5.Text) & "','" & Trim(Text6.Text) & "'")
    Case 1
        End
End Select
End Sub
Private Sub Form_Load()
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;data source=gzgl.dll;persist security info=false"
conn.CursorLocation = adUseClient
conn.Open
mysql = "select * from 员工信息,工资总 where 员工信息.编号=工资总.编号"
Set rs = conn.Execute(mysql)
Set DataGrid1.DataSource = rs
For i = 0 To rs.Fields.Count - 1
    DataGrid1.Columns(i).Width = 600
Next i
Me.Width = Screen.Width - 400
Me.Height = Screen.Height - 400
DataGrid1.Height = Me.Height - Toolbar1.Height - 400
Command2(0).Left = (Me.Width / 2) - Command2(0).Width
Command2(1).Left = (Me.Width / 2) - Command2(0).Width + Command2(1).Width + 200
DataGrid1.Enabled = True
Me.Top = 0
End Sub