SQL语句在VB数句库遍程过程中的应用.doc

SQL语句在VB数句库遍程过程中的应用.doc

  1. 1、本文档共7页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
SQL语句在VB数句库遍程过程中的应用.doc

SQL语句在VB数据库编程过程中的应用 樊 继 周昕 (平顶山工业职业技术学院,河南 平顶山 467001 ) 摘 要:本文列举实例分析数据库编程过程中经常遇到的查询、统计、更新等几个环节中SQL语句的应用。 关键字:SQL;多表查询;SQL统计函数;数据的更新 中图分类号: 文献标识码: Abstact:This text enumerates the example to search application of the query and statistic,renew etc. that some taches met within SQL programme process usually. Key words:SQL; search from many form ; SQL statistical function; renewal of data 结构化查询语言SQL是操作数据库的国际标准语言,在现今的大多数数据库软件系统中均得到支持。在开发VB数据管理软件过程中,利用SQL可以使数据的操作大为方便,使VB与数据库的联系更加紧密。1句SQL语句通常可以完成以前由许多条语句才能完成的复杂的数据库查询操作,具有较高的工作效率。 1 如何在VB中调用SQL语句 首先使用OpenDatabase打开一个数据库,建立Database对象,例如db。如果是SELECT语句,使用db.CreateRecordset(SELECT ...)就可以了。如果是其他SQL语句,使用db.Execute(...)来执行。 在VB中,SQL语句往往作为某些特定方法的参数而得以执行(没有FoxPro等数据库软件那样直截了当),比如可以把SQL语句作为Execute方法的1个字符串参数而执行,其格式如下: object.Execute SQL-statement,options   在其中的SQL-statement字符串中,可以使用标准的SQL语句,如:SELECT、INSERT、DELETE及UPDATE等。下面的例子是在数据库对象DB中执行SQL语句,从当前数据库的EMployees数据表中,选择字段LastName=King的所有记录,并将这些记录的LastName和FirstName这2个字段的内容,保存到同一数据库的Backup数据表中: DB.Execute(SELECT LastName,FirstName INTO Backup FORM Employees WHERE LastName=King;) 2 多表查询 在数据库的操作中,常常会涉及多表查询。所谓多表查询,是指将两个以上的表中的内容通过相关字段连接在一起。这些查询当然可以通过其它算法,利用VB程序本身来实现。但是如果利用VB中的SQL多表查询语句,可将两个表中的数据通过两个表中的共同字段连接来。则求解过程大为简化,程序效率大为提高。 以工资库.mdb的数据库为例,数据库中有一个名为“基本工资表”数据表,该数据表的字段有:职工号、部门编号、职工姓名、基本工资、应发工资、实发工资等。另一个为部门表,该数据表的字段有部门编号、部门名称。由于基本工资表没有部门名称字段在浏览基本工资表时为了查询部门名称可以通过SQL 语句将基本工资表和部门表的数据通过部门编号字段连接起来。 2.1界面设计 如下图1所示: 图1 2.2实现代码设计 Function brsex() ‘浏览时如果表中的性别字段值通过单选按钮显示 If Data1.Recordset.性别 = 男 Then opt_man.Value = True opt_fem.Value = False Else opt_man.Value = False opt_fem.Value = True End If End Function Function brdepart() ‘根据基本工资表的部门编号查询部门表中的部门名称。 deid = Data1.Recordset.部门编号 ssql = select * from 部门表 where 部门编号= deid Data2.RecordSource = ssql Data2.Refresh End Function Private Sub cmd_first_Click() Data1.Recordset.MoveFirst Call brsex Call brdepart End Sub Private Sub cmd_last_Click() Data1.Recordset.MoveLast Call brd

文档评论(0)

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

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

1亿VIP精品文档

相关文档