- 1、本文档共7页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 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
您可能关注的文档
- PROCES-SG001I-ZH-P_PlantPAx分布式控制系统-Rockwell.PDF
- ProteinDeconvolution40软件用于单克隆抗体分子量测定.PDF
- PR触控式无纸记录器操作说明书.PDF
- PTR89应用程序编程接口V100.PDF
- PTS系列网络存储器技术白皮书-广州思唯奇计算机科技有限公司.PDF
- PublicLibraryAssessment公共图书馆的绩效评估-UniversityofIllinois.ppt
- PUI-Q1核心板说明书.PDF
- PVM并行程序设计.PDF
- QNAPTurboNAS与SSD快取技术之介绍.PDF
- R7F0C002串行阵列单元3线串行IO(从发送接收)-RenesasElectronics.PDF
- 2024年中国车库间市场调查研究报告.docx
- 2024至2030年诊断设备项目投资价值分析报告.docx
- 2024至2030年中国高压钠气灯电源数据监测研究报告.docx
- 2024至2030年阳角项目投资价值分析报告.docx
- 2024年05月深圳市标准技术研究院2024年招考笔试历年典型考题与考点剖析含答案详解.docx
- 2024至2030年Y型内螺纹过滤器项目投资价值分析报告.docx
- 2024年羟乙腈项目可行性研究报告.docx
- 2024年中国铝门窗数控双头切割锯市场调查研究报告.docx
- 2024至2030年PVC充气枕项目投资价值分析报告.docx
- 2024至2030年中国弧型钢化玻璃行业投资前景及策略咨询研究报告.docx
文档评论(0)