Question

vb access数据库 大神请进

数据库名：Data 表名 jiaoshi 字段：教学楼 教室 人数

vb界面 建立command1 按钮 dataGrid1 表 adodc1控件
求 按下按钮C1 是字段：教室 全部变成0 变存入数据库中
谢谢

Answer 1

Private Sub Command1_Click()
    With Adodc1.Recordset
        .MoveFirst
        While Not .EOF
            .Fields("教室").Value = 0
            .Update
            .MoveNext
        Wend
    End With
    Adodc1.Refresh
    Form_Load
End Sub

Private Sub Form_Load()
    Adodc1.CommandType = adCmdText
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\data.mdb"
    Adodc1.RecordSource = "select 教学楼,教室,人数 from jiaoshi"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
End Sub