DataGrid控件问题

Question

我想在一个窗体中放上一个DataGrid控件来显示用户名和年龄,然后在右侧的多个Textbox中显示出选中用户的详细的资料,并且实现可以修改,保存 要怎么做啊?
谢谢,初用VB

Answer 1

连接数据库成功后，通过SQL语句，打开连接connection.
    定义记录集合dim rs as new recordset，然后SET DATAGRID.DATASOURCE=RS。再REFRESH就可以了。
    单个记录你可以显示在TEXTBOX控件上，只要将RS的fields(n).value赋给TEXTBOXn.TEXT就可以了。
    删除记录，就rs.delete。
    修改，就将TEXTBOX。TEXT赋给rs!no(比如是NO字段)，然后RS.update就ok了。
    增加一个道理，也可以用INSERT 语句，在EXCUTE就可以了。

Answer 2

可能是我没有表达清楚,我是这样的
在左侧显示出所有的用户名和年龄,比方说有10个,分别叫1,2,...10.我现在想看看9这个人的资料,那么我就在左侧点击一下9这个名字,然后在右侧的几个Textbox中就把9这个人的资料全显示出来,如果想修改那么可以在其中修改,然后点击保存 保存数据

Answer 3

Sub XIANSHI() '显示 
 
 On Error GoTo Errhandle
 
    Dim MyStr As Variant
    MyStr = Me.Adodc1.Recordset.Fields(0).Value
    Dim Str2 As String
    Str2 = App.Path & "\DateBase\DateBase.mdb"If MyStr = Null Then
    Call QINGCHU    '清除所有显示框
Else
    '--------->显示第DataGrid内容
    ChDir (App.Path)
      Set Mydb1 = Workspaces(0).OpenDatabase(App.Path & "\DateBase\DateBase.mdb")
      Set MyTable1 = Mydb1.OpenRecordset("员工档案", dbOpenTable)
        If MyTable1.RecordCount > 0 Then
            MyTable1.MoveFirst
            Do While Not MyTable1.EOF
            If MyTable1("编号") = MyStr Then
             Me.Text3.Text = MyStr
             Me.Text1.Text = ConvertNull(MyTable1("姓名"))
             ......