dim conn as new connection dim rs as new recordset Private Sub Form_Load() conn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source='" + App.Path + "\txt.mdb" + "'" rs.open "select * from table",conn,3,3 set mshfexgrid.DataSource=rs'设置表格数据源 end sub Private Sub Command1_Click()'增加数据 rs.Close rs.Open "insert into XXXXX values(XXXXXXXXXXXXXXXXXXXXXXXXXxxxx)" MsgBox "增加成功" rs.Open "select * from table" set mshfexgrid.DataSource=rs'刷新数据 End Sub Private Sub Command2_Click()'删除数据 rs.Close rs.Open "delete * from table" MsgBox "删除成功" rs.Open "select * from table" set mshfexgrid.DataSource=rs'刷新数据 End Sub
dim rs as new recordset
Private Sub Form_Load()
conn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source='" + App.Path + "\txt.mdb" + "'"
rs.open "select * from table",conn,3,3
set mshfexgrid.DataSource=rs'设置表格数据源
end sub
Private Sub Command1_Click()'增加数据
rs.Close
rs.Open "insert into XXXXX values(XXXXXXXXXXXXXXXXXXXXXXXXXxxxx)"
MsgBox "增加成功"
rs.Open "select * from table"
set mshfexgrid.DataSource=rs'刷新数据
End Sub
Private Sub Command2_Click()'删除数据
rs.Close
rs.Open "delete * from table"
MsgBox "删除成功"
rs.Open "select * from table"
set mshfexgrid.DataSource=rs'刷新数据
End Sub