vb编写学生基本信息实现access数据库的增删改查

这个代码怎么写,真心不会,谢谢,实现增删改查,连接access数据库,谢谢,坐等。... 这个代码怎么写,真心不会,谢谢,实现增删改查,连接access数据库,谢谢,坐等。 展开
 我来答
zdingyun
2015-11-15 · 知道合伙人软件行家
zdingyun
知道合伙人软件行家
采纳数:15429 获赞数:48174
1982年上海业余工业大学化工系毕业 现退休

向TA提问 私信TA
展开全部

1)首先需要用Office软件中的Access软件建立一个学生基本信息数据库。表中新建几个表,可以是学生名册表,学生各专业课程分数登录表等等。

2)VB新建数据工程,此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。

3)然后在FORM1窗体中添加ADO数据控件,右键-ADODC1控件属性页-使用连接字符串,选生成,在提供者选项中选MICROSOFT jet 4.0 OLE DB Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串,注意该字符串可复制到程序代码用于编程。

ADODC1控件属性页的数据源内有命令文本(SQL)编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。

4)可以将SQL查询语句赋值给ADO数据控件的RecordSource属性来达到添加、删除、修改或查询。

5)数据的输入、修改等可灵活应用文本框或数据表格控件与ADO数据控件通过代码绑定。

6)想使用ADO数据对象,也可将ADO数据控件所写的代码较方便的移植给ADO数据对象。

典型的ADO数据控件的数据连接和查询代码:

Private Sub Command4_Click()
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB;Persist Security Info=False"
    Adodc1.RecordSource = "select * from Authors where Author='Jacobs_Russell'"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
End Sub

典型的数据对象代码:

Private Sub Command11_Click()
    Dim cn As New ADODB.Connection '定义数据库的连接
    Dim rs As New ADODB.Recordset
    Dim sql As String
    sql = "select * from guzhang_sj" ' where madanhao='1'"
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wd.mdb;Persist Security Info=False"
    cn.Open
    rs.CursorLocation = adUseClient
    rs.Open sql, cn, adOpenDynamic, adLockOptimistic
    Set MSHFlexGrid1.DataSource = rs
    rs.AddNew
    rs.Fields(0).Value = "14"
    rs.Update
End Sub
七鑫易维信息技术
2024-09-02 广告
Play Video 七鑫易维是致力于机器视觉和人工智能领域的高新科技企业,迄今已专注眼球追踪技术的研发、创新与应用超过14年,拥有完全自主知识产权,全球专利总量655余项。 作为眼球追踪技术领域的全球知名品牌,七鑫易维的产品体系覆盖眼动分... 点击进入详情页
本回答由七鑫易维信息技术提供
hunter2k
2014-04-01 · TA获得超过3987个赞
知道小有建树答主
回答量:1376
采纳率:66%
帮助的人:643万
展开全部
1、连接ACCESS
set db=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("<数据库路径及名称>")'最好放在同一路径下
db.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs= Server.CreateObject("ADODB.RecordSet")
rs.open "select * from <表名>&"'",db
2、将控件和数据表绑定
3、分别在添加、删除、更新、及那几个移动数据指针的按钮上添加命令:rs.append,rs.delete rs.update,rs.bof,rs.eof,rs.movenext,rs.MovePrevious
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
junyfm
2014-04-01 · TA获得超过163个赞
知道小有建树答主
回答量:184
采纳率:0%
帮助的人:106万
展开全部

我这里有个类似的程序,你修改一下就可以了。。   见附件。。。

更多追问追答
追问
我看了,我用vs2010vb做的界面,打不开啊
追答
VB6.0。。。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式