增加
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\1.mdb"
sql = "Insert Into VbMemo (Title,MemoTime,MemoBody)values('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "')"
conn.Execute sql
conn.Close
删除
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\1.mdb"
l = ListView1.ListItems.Item(ListView1.SelectedItem.Index)
sql = "delete from VbMemo where Id=" & l
conn.Execute sql
查询
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\1.mdb"
rds.Open "Select * From VbMemo", conn, 1, 3
给你范本
没分谁会做?除非现成的复制给你,要不没人会给你做,那一套系统得多少时间,给的分少未必也有人做。祝你能收到牛X的人发的源码给你