求VB学生成绩管理系统(VB+ACCESS)结合的源码,有能增加 删除 查询 修改的功能。。
展开全部
增加
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
给你范本
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
给你范本
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询