Question

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班 今天是 “老刘”等。。。

小弟初学编程，大家帮忙指点指点！不胜感激！！！！！！！

Answer 1

文本框设置为数组：Text1(1)到Text1(17)，这样程序非常简单。

Private Sub Command1_Click()
'例如查询记录
Dim strSQL As String
 Call SJK(db)     '打开数据库
 strSQL = "Select * From zhiban Where ID=1"
 Set RS = db.OpenRecordset(strSQL)
 If Not RS.EOF Then
 For I = 1 To 17
    If RS(CStr(I) & "班") <> "" Then Text1(I).Text = RS(CStr(I) & "班")
 Next I
 Else
 MsgBox "无数据！"
 End If
 RS.Close
 db.Close
End Sub

如果需要给地址，发给你。

Answer 2

你可以看看我的空间里的文章：

关于VB6 + Access的简单数据库应用问题
按照这个题目搜索

Answer 3

你如果是用VB做的，就利用VB里的数据控件做数据绑定吧这样容易些。如果你非的要自己写代码建议你学学http://www.w3school.com.cn/aspnet/aspnet_dbconnection.asp的相关知识。毕竟你是要学习，直接给你代码美益处。