4.2 算法与数据管理

42算法与数据管理,1SQL语言及其功能SQL：StructuredQueryLanguage结构化查询语言，是对数据操作的命令集。SQL功能：可以面向数据库执行查询、从数据库取回数据、可在数据库中插入新的记录、可更新数据库中的数据、可从数据库删除记录、可创建新数据库、可在数据库中创建新表等。其功能可归结为查询、定义、操纵和控制等几个方面。,SELECT语句从数据库中查询数据，并以表格形式返回查询结果。用法：SELECTDISTINCT目标列表达式1AS别名，目标列表达式2AS别名,FROM表名1，表名2WHERE条件表达式例如语句：“Select*FROMinfo”表示查询数据表“info”中的全部数据。DELETE语句的功能为删除表中指定的记录。格式：DELETEFROM表名WHERE条件,【例】删除用户名为“donghan”的所有记录。DELETEFROMUsersWHEREUserName“donghan”；UPDATE语句功能为更新表中指定记录中指定字段的值。格式：UPDATE表名SET字段1表达式，字段2表达式2，字段N表达式NWHERE条件INSERT语句功能是向数据表中插入新的记录，格式：INSERTINTO表名(字段1，字段N)VALUES(表达式1，表达式N)；,2.算法在数据管理中的综合应用VB程序获取到的Access数据库中数据，可采用数组等方式进行存储，并可以通过编程对数据进行各种加工处理，如统计、分析、查找、排序等。使用数组读取数据表的主要步骤为：先定义数组建立与数据库的连接打开数据表使用DoWhile语句读取Fields对象中的记录到数组中关闭数据库连接,【例】将student.accdb数据中，家长数据表“jizhang”中的手机号码字段记录“cmcc”读取到数组phone中。程序代码如下：Dimphone(1To100)AsString学生家长手机号码DimnumAsInteger统计班级人数变量PrivateSubForm_Load()DimconnAsNewADODB.Connection,rsAsNewADODB.RecordsetDimstrSQLAsStringconn.ConnectionString“ProviderMicrosoft.ACE.OLEDB.12.0；DataSource”App.Path“student.accdb”conn.OpenstrSQL“SELECT*FROMjizhang”Setrs.ActiveConnectionconnrs.OpenstrSQLnum0DoWhileNotrs.EOFnumnum1cmcc字段存储的家长手机号码phone(num)rs.Fields(“cmcc”)rs.MoveNextLooprs.Close关闭数据表conn.Close关闭数据库连接MsgBox“家长手机号码读取完成，共有”Str(num)“个。”EndSub,本节课学习要求识记基本的SQL语句，初步掌握从ADO对象中获取数据的方法(使用数组来读取数据库记录的方法)，能够使用合适的算法来处理从数据库中获取的数据。考查方式为填空题。,1某电视台的直播节目结束后，主持人从参与短信投票的观众中抽取若干名幸运观众。假设共有n(n0ThenFori1Tonluck(i)“”NextiList1.ClearFori1Ton抽取幸运编号tInt(Rnd*num)1DoWhilecheck(phone(t)tInt(Rnd*num)1Loopphone(i)=luck(t)List1.AddItemMid(luck(i),1,3)“*”Mid(luck(i),8,4)NextiEndIfEndSub,check函数用于判断随机抽中的幸运观众电话号码是否重复，函数值为True表示号码重复Functioncheck(sAsString)AsBooleanDimiAsIntegercheckFalseFori1TonIfluck(i)sThencheckTrueExitFor中止FOR循环EndIfNextiEndFunction,PrivateSubForm_Load()DimconnAsNewADODB.Connection,rsAsNewADODB.RecordsetDimstrSQLAsStringconn.ConnectionString“ProviderMicrosoft.ACE.OLEDB.12.0；DataSource”App.Path“lottery.accdb”conn.OpenstrSQL“SELECT*FROMvote”Setrs.ActiveConnectionconnrs.OpenstrSQLnum0DoWhileNotrs.EOFnumnum1cellphone字段存储的是参与投票的手机号码phone(num)rs.Fields(“cellphone”)rs.MoveNextLooprs.Closeconn.CloseSetrsNothingSetconnNothingList1.AddItem“抽奖数据初始化完成，”“参与抽奖共”Str(num)“人。”EndSub程序划线处代码有错，请改正。(1)加框处应改为_。(2)加框处应改为_。,luck(i)=phone(t),luck(i)=s,某学生个人信息数据库存储了学生的基本情况信息，包括学号“xuehao”、学生姓名“xingming”、家庭电话“phone”和家庭地址“adds”等信息。下列VB程序的功能用来实现根据学号查询并显示学生信息。程序运行界面如下图所示：,PrivateSubCommand1_Click()DimconnAsNewADODB.Connection,rsAsNewADODB.RecordsetDimstrSQLAsStringconn.ConnectionString“ProviderMicrosoft.ACE.OLEDB.12.0；DataSource”&App.Path“stu.accdb”conn.OpenstrSQL“SELECT*FROMstudentwherexuehao”Text1.Text“”Setrs.ActiveConnectionconnrs.Open_If_ThenMsgBox“找不到该学生”ElseText2.Textrs.Fields(“xinming”)Text3.Textrs.Fields(“phone”)Text4.Textrs.Fields(“adds”)EndIfrs.Closeconn.CloseEndSub,请问答下列问题：(1)该程序查询的数据文件名是_。(2)在文本框Text3中显示的_数据表的_字段信息。(3)划线处应填入的代码为_。(4)划线处应填入的代码为_。注：该示例程序在素材文件夹下vb40文件夹中。,stu.accdb,student,phone,strSQL,rs.EOF,3用来查询2014年全国各省(市/自治区)人口情况的VB程序界面如下图所示：,其中31个省(市/自治区)的具体数据存放在数据库文件“count.accdb”的“shenf”数据表中。运行程序，在列表框List1中显示各省份及其对应的人口信息。在文本框Text1中输入要查询的省(市/自治区)名称后，单击“查询”按钮Command1。在文本框Text2和Text3中分别显示该省(市/自治区)所对应的人口数据与全国排名。按此要求编写的程序如下：,Dimsf(1To31)AsStringDimrk(1To31)AsSingleDimiAsIntegerPrivateSubCommand1_Click()DimmAsSingle,nAsString,jAsIntegerFori1To30Forj31Toi1Step1Ifsf(j)sf(j-1)Thennsf(j):sf(j)sf(j1):sf(j1)nm_EndIfNextjNextii1,Ifi32ThenMsgBox“输入有误，请重新输入！”EndSub,PrivateSubForm_Load()DimconnAsNewADODB.ConnectionDimrsAsNewADODB.Recordsetconn.ConnectionString“ProviderMicrosoft.ACE.OLEDB.12.0；DataSource”&App.Path“count.accdb”conn.OpenSetrs.ActiveConnectionconnrs.Open“SELECT*FROMshenf”i0DoWhileNotrs.EOFii1sf(i)rs.Fields(“shenfen”)shenfen字段存储各省市自治区的名称rk(i)rs.Fields(“num”)num字段存储各省人口总数rs.MoveNextList1.