SQL语句在VB数据库编程过程中的应用

《SQL语句在VB数据库编程过程中的应用》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、SQL语句在VB数据库编程过程中的应用摘要：本文列举实例分析数据库编程过程中经常遇到的查询、统计、更新等几个环节中SQL语句的应用。关键字：SQL；多表查询；SQL统计函数；数据的更新Abstact:Thistextenumeratestheexampletosearchapplicationofthequeryandstatistic,renewetc.thatsometachesmetwithinSQLprogrammeprocessusually.Keywords:SQL;searchfrommanyform;SQLstatisticalfuncti

2、on;renewalofdata结构化查询语言SQL是操作数据库的国际标准语言，在现今的大多数数据库软件系统中均得到支持。在开发VB数据管理软件过程中，利用SQL可以使数据的操作大为方便，使VB与数据库的联系更加紧密。1句SQL语句通常可以完成以前由许多条语句才能完成的复杂的数据库查询操作，具有较高的工作效率。1如何在VB中调用SQL语句首先使用OpenDatabase打开一个数据库，建立Database对象，例如db。如果是SELECT语句，使用db.CreateRecordset("SELECT...")就可以了。如果是其他SQL语句，使用db.Exe

3、cute("...")来执行。在VB中，SQL语句往往作为某些特定方法的参数而得以执行(没有FoxPro等数据库软件那样直截了当)，比如可以把SQL语句作为Execute方法的1个字符串参数而执行，其格式如下：object.ExecuteSQL-statement,options　　在其中的SQL-statement字符串中，可以使用标准的SQL语句，如：SELECT、INSERT、DELETE及UPDATE等。下面的例子是在数据库对象DB中执行SQL语句，从当前数据库的EMployees数据表中，选择字段LastName='King'的所有记录，并将这些

4、记录的LastName和FirstName这2个字段的内容，保存到同一数据库的Backup数据表中:DB.Execute("SELECTLastName,FirstNameINTOBackupFORMEmployeesWHERELastName='King';")2多表查询在数据库的操作中，常常会涉及多表查询。所谓多表查询，是指将两个以上的表中的内容通过相关字段连接在一起。这些查询当然可以通过其它算法，利用VB程序本身来实现。但是如果利用VB中的SQL多表查询语句，可将两个表中的数据通过两个表中的共同字段连接来。则求解过程大为简化，程序效率大为提高。以工资

5、库.mdb的数据库为例，数据库中有一个名为“基本工资表”数据表，该数据表的字段有：职工号、部门编号、职工姓名、基本工资、应发工资、实发工资等。另一个为部门表，该数据表的字段有部门编号、部门名称。由于基本工资表没有部门名称字段在浏览基本工资表时为了查询部门名称可以通过SQL语句将基本工资表和部门表的数据通过部门编号字段连接起来。2．1界面设计如下图1所示：6图12．2实现代码设计Functionbrsex()‘浏览时如果表中的性别字段值通过单选按钮显示IfData1.Recordset.性别="男"Thenopt_man.Value=Trueopt_fem.

6、Value=FalseElseopt_man.Value=Falseopt_fem.Value=TrueEndIfEndFunctionFunctionbrdepart()‘根据基本工资表的部门编号查询部门表中的部门名称。deid=Data1.Recordset.部门编号ssql="select*from部门表where部门编号='"&deid&"'"Data2.RecordSource=ssqlData2.RefreshEndFunctionPrivateSubcmd_first_Click()Data1.Recordset.MoveFirstCallb

7、rsexCallbrdepartEndSubPrivateSubcmd_last_Click()Data1.Recordset.MoveLastCallbrdepartCallbrsex6EndSubPrivateSubcmd_next_Click()IfData1.Recordset.EOFThenBeepMsgBox"已到文件尾部！",,"提示"Data1.Recordset.MoveLastElseData1.Recordset.MoveNextIfData1.Recordset.EOFThenBeepMsgBox"已到文件尾部！",,"提示"Dat

8、a1.Recordset.MoveLastEndIfCallbrs