第11章 数据库.ppt

  1. 1、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
使用可视化数据管理器可以非常方便地建立数据库,打开已建立好的数据库,添加表,对表进行修改、添加、删除、查询等操作。 可视化数据管理器窗口介绍如下图所示。 11.2.2 数据的基本操作 完成表结果的建立之后,就可以向表中添加数据了。对数据表进行添加、编辑、删除、查找等操作,首先要保证此数据库已经打开。如果数据库已关闭,可以执行“可视化数据管理器”中“文件”菜单中的“打开数据库”命令将其打开。在数据库窗口中,右键表名,选择“打开”命令,(或者双击表名)即可打开如图所示的数据输入窗口之一。 在开始添加数据之前,应首先声明确定记录集的类型和数据的显示方式,这项工作可以通过“可视化数据管理器”窗口的工具栏完成。 1、记录集类型按钮组 VB使用记录集(Recordset)对象来访问数据库中的记录,所谓记录集对象是指来自基本表或查询结果的记录全集。VB访问记录集可以有三种方式。表类型(Table)、动态集类型(Dynaset)、快照类型(Snapshot)。 表类型记录集:以这种方式打开表时,所进行的添加、删除、修改等操作都将直接更新表中的数据。、 动态集类型记录集:以这种方式打开表或由查询返回的数据时,所进行的添加、删除、修改等操作都先在内存中进行,操作速度较快。 快照类型记录集:以这种方式打开的表或由查询返回的数据仅供读取,不能修改和添加新纪录。 2、数据显示按钮组 在新窗体上使用Data 控件;在新窗体上不使用Data 控件;在新窗体上使用DBGrid控件。 在新窗体上使用DBGrid控件。 3、事务方式按钮组 事务是用户定义的一个数据库操作的序列,这些操作要么全做,要么不做。 这三个按钮分别是: 开始事务:开始一个新的事务 回滚当前事务:撤销自开始事务以来对数据库所做的一切修改。 提交当前事务:确认自开始事务以来对数据库所做的修改,原有数据将不能恢复。 只要处理与数据库相关的事情,几乎都与查询有关,对数据库中的数据进行查询可以有2种方法:使用查询生成器和使用查询语句。 1、使用查询生成器 利用可视化数据管理器的“查询生成器”可以很方便地建立查询语句,查看、执行和保存查询语句。建立步骤如下: 打开“实用程序”| “查询生成器”菜单, 打开|“查询生成器” 对话框;选择要 查询的表名,选择 字段名称、运算符 和值等查询条件。 2、使用SQL语句:使用查询生成器生成SQL语句方便、可靠、但是其功能受到一定的限制。实际上,查询功能只是结构化查询语言SQL的一部分,SQL包括更多的功能,如可以建立表,修改表结构,对数据库中的数据进行添加、删除、修改、排序、统计等操作。可以直接在SQL窗口或代码中输入SQL语句来实现各种功能。 如select语句、insert语句、delete语句、update语句 VB答疑 86页,第4题 Option Explicit Private Sub Form_Click() Dim i As Integer Dim x1 As String, x2 As String For i = 1 To 1000 x1 = CStr(i) x2 = CStr(i ^ 2) If x1 = Right(x2, Len(x1)) Then Print i; “是同构数” End If Next i End Sub Option Explicit Private Sub Form_Click() Dim a(), i As Integer, n As Integer, m As Integer a = Array(29, 21, 15, 13, 11, 9, 7, 5, 3, 1) n = UBound(a) ReDim Preserve a(n + 1) m = Val(InputBox(“请输入要插入的数)) For i = UBound(a) - 1 To 0 Step -1 If m = a(i) Then a(i + 1) = a(i) If i = 0 Then a(i) = m Else a(i + 1) = m Exit For’注意这个语句,一旦找到比自己大的数,就要提前退出循环 End If Next i For i = 0 To n + 1‘或Ubound(a) Print a(i) Next i End Sub 2. Print K-1 t = a(k, j): a(k, j) = a(j, k): a(j, k) = t 3)选中microsoft ado data control 6.0和microsoft datagrid control 6.0复选框,单击确定按钮。 岗而聋尺绣盲袁赣卒害苍沾凛削畦搔弓淑乒佯兢采库

文档评论(0)

yan666888 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档