VB 操作 access ,求代码

[史蒂芬-刘]

小弟想写一个VB 值班记录表，只会话窗体！求大虾给予代码支持。

数据名 gongsi.mdb
数据表 zhiban
数据库密码 123456
字段 1班 | 2班 | 3班 | 4班 |5班 | 6班 |7班 | 8班 |9班 | 10班 |11班 | 12班 |13班 | 14班 |15班 | 16班 |17班 |

如何读取每个班的字段显示到text1/...text17 呢？
并且可以修改数据，比如 1班 今天是 “老刘”等。。。

[一如既往哈]

你的上一个主题，已经给你一份基本的代码，你根据那个修改一下，就可以了....... 如果都是现成代码，对自己没好处。 提示一点：你的数据库字段应该还有一个“日期”字段，否则你怎么知道哪天哪班对应的是谁？

Sub TestMDB()
    On Error GoTo errs
    Dim ConnStr As String, MyConn As ADODB.Connection, i As Long
    ''打开数据库
    ConnStr = "provider=microsoft.jet.oledb.4.0;data source=d:\gongsi.mdb" ''这里目录可更改
    ConnStr = ConnStr & ";jet oledb:database password=123456"
    Set MyConn = New ADODB.Connection
    MyConn.ConnectionString = ConnStr
    MyConn.Open
    ''读取数据
    Dim Rs As New ADODB.Recordset, mySQL As String
    mySQL = "select * from zhiban where 日期='2013-7-31'" '
    Rs.Open mySQL, MyConn, adOpenKeyset, adLockOptimistic
    With Rs
        If .RecordCount > 0 Then
            ''.MoveFirst ''移动到第一条
            ''MsgBox .Fields("字段名").Value
            ''textbox为控件数组
            For i = 1 To 17
                TextBox(i - 1).Text = .Fields(CStr(i) & "班").Value
            Next
        End If
    End With
    '''如果要更新内容，用下面代码(大概是这样的，自己调试下....)
    '''mySQL = "update zhiban set 1班='老刘' where 日期='2013-7-31'"
    '''Rs.Open mySQL, MyConn, adOpenKeyset, adLockOptimistic
    Rs.Close
    Set Rs = Nothing
    MyConn.Close
    Set MyConn = Nothing
    Exit Sub
errs:
    MsgBox Err.Description
End Sub

自己调试下.......

[史蒂芬-刘]

麻烦谁能给个完整的代码用用。不甚感激。

[of123]

如果是我来设计，不会用 17 个字段，而是如下： 数据表 zhiban 字段 banci zhibanren 1 老刘 ......