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