VB 操作 access ,求代码


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