Private Sub Form_Load() '初始化表格 With VSFlexGrid1 .Rows = 1 .Cols = 4 .FixedRows = 1 .FixedCols = 0 .ColWidth(0) = 1000 .ColWidth(1) = 2000 .ColWidth(2) = 1000 .ColWidth(3) = 2000 .TextMatrix(0, 0) = "学号" .TextMatrix(0, 1) = "姓名" .TextMatrix(0, 2) = "班级" .TextMatrix(0, 3) = "联系方式" End With '清空文本框内容 Text1 = "" Text2 = "" Text3 = "" Text4 = "" '设置数据库路径 str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/Database1.mdb;Persist Security Info=False" '打开数据库 conn.Open str '调用子程序刷新表格 Call reVSEnd Sub3,编写表格刷新的子程序reVS,该子程序用于刷新表格,并将数据库内所有数据添加到表格内。如下所示: 添加数据时,要确保主键字段不能重复,否则会出错,因此在添加前应先判断主键字段是否重复。'刷新表格,将数据库内的数据添加到表格内Sub reVS() Dim i% '重置表格为1行VSFlexGrid1.Rows = 1 '设置sql查询语句 sql = "select * from s1" '查询数据库,并添加到rs集合内 rs.Open sql, conn, 3, 3 '根据查询结果,将数据写入到表格中显示 If rs.RecordCount > 0 Then For i = 1 To rs.RecordCount With VSFlexGrid1 .AddItem "" .TextMatrix(.Rows - 1, 0) = rs("学号") .TextMatrix(.Rows - 1, 1) = rs("姓名") .TextMatrix(.Rows - 1, 2) = rs("班级") .TextMatrix(.Rows - 1, 3) = rs("联系方式") End With rs.MoveNext Next i End If '关闭集合 rs.CloseEnd Sub4,编写“添加”的代码,如下:'添加Private Sub Command1_Click() If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Then MsgBox "请输入完整的信息" Exit Sub End If '设置sql查询语句 sql = "select * from s1 where 学号='" & Text1 & "'" '查询数据库,并添加到rs集合内 rs.Open sql, conn, 3, 3Ifrs.RecordCount=0Then '添加一行数据至数据库中 rs.AddNew rs("学号") = Text1 rs("姓名") = Text2 rs("班级") = Text3 rs("联系方式") = Text4 rs.Update rs.Close Else MsgBox "已有重复学号" rs.Close Exit Sub End If'刷新表格 Call reVS MsgBox "添加成功" '清空文本框内容 Text1 = "" Text2 = "" Text3 = "" Text4 = ""End Sub5,编写“删除”按钮代码,如下: 删除某条数据前,应先判断数据库内是否有此数据,如果没有则不要使用删除语句,否则会出错。