ACCESS编程SQL基础知识点1

/ACCESS(基础知识点SQL编程)数据库基础知识基本概念:选择题、填空题。数据、信息、处理。数据处理技术发展：人工、文件、数据库。数据库系统：含数据库、管理系统、应用系统、计算机、人（管理员）。数据模型：层次、网状、关系。关系模型概念：实体、属性、域、主键、联系、实体完整性、参照完整性。数据表：结构、记录（元组）。关系:实体间联系—表,E-R模型,规范化:第1-5范式关系运算：选择、投影、连接。集合的并、交、差、积。联系：1:1一对一,1:m一对多,多对多m:n创建数据库表：结构、记录。视图：表设计、数据表。多种方式建表：设计器、字段模板、网站、导入。表结构：描述表的属性。记录：数据、内容。字段名：列的名称。实体的属性。字段大小：数据位数－列的宽度。格式：>强制大写,<强制小,@占位符,如短日期。小数位数。精度。数值范围。掩码：0-数字,9数字空格,#,L-必字母,?-可字母,A-必字母数字,a-可字母数字,&-必任1字符,C-可任1字符。见表2-5。标题：窗体的标签。默认值：自动填充初始值。有效性规则：必须满足的条件。表的有效性（记录有效性）有效性文本：违反有效性规则，弹出对话框上的“文字”。必填字段：选择是/否。索引：加快搜索、查询的速度。重复/不重复。主键。查阅属性：查询/SQLSQL（StructuredQueryLanguage）结构化查询语言。提供交互工具“查询设计器”。1.选择查询2.参数查询3.交叉查询4.操作查询1.)删除查询2.)更新查询3.)追加查询4.)生成查询筛选条件：比较运算符、like、in、between…and多表查询：连接，join….On左/右/内/全—连接。嵌套查询：in/notin。Union：查询结果并。3.3查询语句SelectSELECT[ALL|DISTINCT][TOPnExpr[PERCENT]]

[Alias.]Select_Item[AS]Column_Name]

[,[Alias.]Select_Item[AsColumn_Name]...]FROM[FORCE]

Table[ASLocal_Alias]

[[INNER|LEFT[OUTER]|RIGHT[OUTER]|FULL[OUTER]JOIN

DatabaseName!]Table[[AS]Local_Alias]

[ONJoinCondition…][[INTODestination]

|[TO[ADDITIVE]|TOPRINTER[PROMPT]

|TOSCREEN]][PREFERENCEPreferenceName]

[NOCONSOLE]

[PLAIN]

[NOWAIT][WHEREJoinCondition[ANDJoinCondition...]

[AND|ORFilterCondition[AND|ORFilterCondition...]]][GROUPBYGroupColumn[,GroupColumn...]]

[HAVINGFilterCondition][UNION[ALL]SELECTCommand][ORDERBYOrder_Item[ASC|DESC][,Order_Item[ASC|DESC]...]]模块与VBA编程变量：类型、定义、赋值、常数。表达式：把变量(常量/函数)用“运算符”联接成有意义（能计算的）式子。算术、字符、日期、关系、逻辑—运算符—表达式。书写规则。函数：常用内部函数：数值、字符、日期、类型转换。输入：inputbox(提示[,标题][,默认值][,X坐标][,Y坐标])输出：MsgBox(<提示信息>[,类型[,对话框标题]])三大程序结构：顺序、选择、循环结构。选择结构：对给定的条件进行分析、比较和判断，根据结果采取不同的操作。让计算机具有智能性。“选择结构”或称“分支结构”if<条件>then…else….endcaseselectcase….case……endcase循环结构也称重复结构，是按照给定的条件，重复执行程序段（语句组）。DoWhile…[exit]….LoopFori=初值to终值[step]….[exit]….Next数组:一组变量用统一名称表示。定义,使用:数组(下标)过程函数:定义、调用。参数:形参、虚参、实参，数值传递,地址传递。窗体窗体:程序界面窗口。由可视化对象作成。类型：纵栏式、表格式、数据表、主\子窗体、图表、透视表、透视图、导航、分割窗体。创建窗体：窗体：快速所有字段窗体窗体设计：设计视图空白窗体：用布局视图设计窗体。窗体向导：通过向导设计纵栏式等窗体导航：创建具有导航按钮6种布局窗体。其他窗体：创建多个项目、分割窗体、模式对话框、透视图、透视表等6种窗体。工具箱：画对象、属性窗口。对象：数据与代码的集合。即属性事件、方法代码窗口：如何操作对象，文本框输入输出、列表框输出（list0.additem数据）窗体结构：主体、窗体页眉、页面页眉、页面页脚、窗体页脚。设计视图：视图、主题、控件、页眉/脚、工具5个组。排列：堆积、表格。表、行列、合并、移动、位置、调整大小6个组格式：所选内容、字体、数字、背景、格式5个组。对象：标签、文本框、列表框、组合框、命令按扭、选项按扭、复选框、图象等对象的属性与应用。报表设计“表/查询”的打印格式，只能输出的格式化窗体。类型：纵栏式、表格式、图表、标签。报表设计器组成：区域：报表页眉、页面页眉、组页眉、主体….有7个区。数据源：表、查询、SQL语句。分组：“排序分组”窗格，可有多级分组。汇总：页脚区汇总项：总计、平均、最大，=sum()、=avg()等标签：可多栏打印的小的标签报表。视图：预览/打印、设计、报表视图。宏宏：可以完成人工复杂的手写代码。一般在“命令按钮”运行宏取代手写“代码”。宏操作：窗口、宏命令、数据库对象、系统命令、用户界面命令等分类。独立宏和嵌入的宏。宏设计窗格：应用。注释Comment。分组(块)Group。条件宏：根据条件控制其中的那些宏操作执行。最多可以嵌套10级子宏：一个宏中可以定义多个子宏，每个子宏都能被单独调用执行并完成一个任务。运行：命令按钮调用、自动运行的宏AutoExec。选择题（30题30分）基本概念。复习第一章内容，关系、实体、域、记录、属性（字段）….数据库：表的属性，有效性。编程基础：变量、表达式。程序结构：分支、循环、顺序。三大序结构。窗体：概念、布局、分类。SQL：选择正确的语句。其他：宏、报表等覆盖所有章节。概念填空（10题10分）数据库的6个对象是表、查询、窗体、报表、宏和模块。与选择题范围相同，填写答案。填写基本概念：数据库基本概念：关系、参照完整性、主关键字….查询设计器、窗体、报表、宏的基本概念、组成、分类。程序填空（10个空20分）把程序空出关键词。DO____I<100___MOD(I,2)=1…..ENDIFloop完善SQL语句。书写正确的表达式。1.作业3中SQL命令。图书交叉表（作者出版社）TRANSFORMCount(图书.[书名])AS书名之计数SELECT图书.[作者],Count(图书.[书名])AS总数FROM图书GROUPBY图书.[作者]PIVOT图书.[出版社];三个表查询SELECT图书类别.类别名称,图书.图书编号,图书.书名,借阅.借书证号,借阅.借阅日期FROM图书类别INNERJOIN(借阅INNERJOIN图书ON借阅.图书编号=图书.图书编号)ON图书类别.类别号=图书.类别号ORDERBY图书类别.类别名称,图书.图书编号DESC,图书.书名DESC;查询价格降序SELECT图书.*,图书.价格FROM图书ORDERBY图书.价格DESC;查询图书所有信息SELECT图书.序号,图书.图书编号,图书.类别号,图书.书名,图书.作者,图书.出版社,图书.出版日期,图书.价格,图书.在馆否,图书.简介,图书.封面照FROM图书;查询价格10-25SELECT图书.*,图书.价格FROM图书WHERE(((图书.价格)Between10And25));查询清华经济SELECT图书.*,图书.出版社FROM图书WHERE(((图书.出版社)Like"*经济*"Or(图书.出版社)Like"*清华*"));类别统计图书册数SELECT图书.类别号,Count(图书类别.类别号)AS类别号之计数1FROM图书类别INNERJOIN图书ON图书类别.类别号=图书.类别号GROUPBY图书.类别号;输入作者姓名：参数查询２.按出版社统计册数，平均价格，册数在２以上。select出版社,count(*)as统计册数,avg(价格)as平均价格from图书groupby出版社havingcount(*)>2３.检索“类别号,类别名称,图书编号,书名,作者,借书证号”，分别用where、join联接书写。SELECT图书.类别号,类别名称,图书.图书编号,书名,作者,借书证号FROM图书,图书类别,借阅WHERE图书类别.类别号=图书.类别号and借阅.图书编号=图书.图书编号SELECT图书类别.类别号,类别名称,图书.图书编号,书名,作者,借书证号FROM(图书类别INNERJOIN图书ON图书.类别号=图书类别.类别号)INNERJOIN借阅ON图书.图书编号=借阅.图书编号;４.查询“出版社”出版的所有书全都大于20.0（该出版社未有小于20元的书，同评三好学生条件）。SELECT*FROM图书WHERE价格>20;5.更新查询、追加查询、删除查询。（可直接在查询里生成后变成SQL视图）UPDATE借阅SET借阅.借阅日期=[借阅日期]+10;INSERTINTO图书(出版社)SELECT图书.出版社FROM图书WHERE(((图书.出版社)="清华"));DELETE图书.作者FROM图书WHERE(((图书.作者)="李辉"));update图书set价格=价格*0.9where出版日期=#1989-10-1#insertinto图书表2(书名,作者)select图书(书名,作者)from图书（由于两个表的格式不一样，所以未能追加）6.用命令建立“图书2”表table，修改字段，删除该表。创建：createtable图书2(序号char(12),图书编号char(12),类别号char(1),书名char(8),作者char(3),出版社char(10),出版日期date,价格money,在馆否char(2),简介char(12),封面照char(50))增加“读者评价”altertable图书2add读者评价memo删除：droptable图书2'编写求解一元二次方程根。'2.从键盘输入一串字母，大写输出。'3.输入三角形的边长a,b,c，计算面积s。'4.显示今天的日期，显示今天是“星期x”。计算到2014年元旦还有几天。'5.输入金额，计算最佳付款方式（张数最少Subm_1()DimaAsStringa=InputBox("请输入字母")MsgBoxUCase(a)EndSubSubm_2()DimaAsSingle,bAsSingle,cAsSingle,pAsSingle,sAsSinglea=Val(InputBox("请输入三角形第1条边长"))b=Val(InputBox("请输入三角形第2条边长"))c=Val(InputBox("请输入三角形第3条边长"))s=(a+b+c)/2area=Sqr(s*(s-a)*(s-b)*(s-c))MsgBox"面积为"&areaEndSubSubm_3()DimaAsDouble,bAsDouble,cAsDoubleDimx1AsDouble,x2AsDoublea=InputBox("输入系数A:")b=InputBox("输入系数B:")c=InputBox("输入系数C:")x1=(-b+Sqr(b*b-4*a*c))/(2*a)x2=(-b-Sqr(b*b-4*a*c))/(2*a)MsgBox("方程的根x1是"&x1)MsgBox("方程的根x2是"&Str(x2))EndSubSubm_41()InputBox("当前日期是星期几")MsgBox"今天是星期"&(Weekday(Date-1))EndSubSubm_42()InputBox("今天距2014年元旦还有？天")MsgBox(DateDiff("y",#10/30/2013#,#1/1/2014#))EndSubSubm_5()x=InputBox("请输入金额")a=x\100b=(x-100*a)\50c=(x-100*a-50*b)\20d=(x-100*a-50*b-20*c)\10e=(x-100*a-50*b-20*c-10*d)\5F=(x-100*a-50*b-20*c-10*d-5*e)\2g=(x-100*a-50*b-20*c-10*d-5*e-2*F)\1MsgBox"100元需"&a&("张")&"50元需"&b&("张")&"20元需"&c&("张")&"10元需"&d&("张")&"5元需"&e&("张")&"2元需"&F&("张")&"1元需"&g&("张")EndSubOptionCompareDatabase'.产生两个1-100的随机数，口算两个的数的和。'2.三个数据的排序。'3.输入收入总金额，计算个人所得税。'4.输入整数，判断是否“质数”。'5.输入年份，判断是否“闰年”。'6.求解一元二次方程，当无解显示信息不要出错！Subm6_1()DimaAsByte,bAsByte,cAsBytea=Rnd()*90+10b=Rnd()*90+10c=InputBox("请输入"+Str(a)+"+"+Str(b)+"=")Ifa+b=cThenMsgBox"您答对了",48,"正确"ElseMsgBox"您答错了,正确答案是"+(Str(a+b))EndIfEndSubSubm6_2()Dima%,b%,c%,x%,y%,z%a=InputBox("输入A=")b=InputBox("输入B=")c=InputBox("输入C=")Ifa<bThenIfc<aThenx=cy=az=bElseIfc<bThenx=ay=cz=bElsex=ay=bz=cEndIfEndIfEndIfIfb<aThenIfc<bThenx=cy=bz=aElseIfc<aThenx=by=cz=aElsex=by=az=cEndIfEndIfEndIfMsgBox"结果是"+Str(z)+">="+Str(y)+">="+Str(x)EndSubSubm6_3()DimmAsInteger,nAsIntegerm=InputBox("请输入收入金额")m=m-3500Ifm<0Thenn=0ElseIfm<=1500Thenn=m*0.03ElseIfm<=4500Thenn=1500*0.03+(m-1500)*0.1ElseIfm<=9000Thenn=1500*0.03+3000*0.1+(m-4500)*0.2Elsen=1500*0.03+3000*0.1+4500*0.2+(m-9000)*0.3EndIfEndIfEndIfEndIfMsgBox"应缴纳税金"&n&("元")EndSubSubm6_4()DimiAsInteger,nAsIntegern=Val(InputBox("请输入数字"))i=2c=Int(Sqr(n))DoWhilei<=cIfnModi=0ThenExitDoi=i+1'在For以外的LoopIfi>cThenMsgBoxn&"是素数"ElseMsgBoxn&"不是素数"EndIfEndSubSubm6_5()a=InputBox("请输入年份的数字")If(aMod4=0AndaMod100<>0)Or(aMod400=0)ThenMsgBox"闰年"ElseMsgBox"非闰年"EndIfEndSubSubm6_6()Dima,b,cAsDoubleDimx1AsString,x2AsStringa=InputBox("请输入一元二次方程的系数a")b=InputBox("请输入一元二次方程的系数b")c=InputBox("请输入一元二次方程的系数c")Ifa=0Thenx1=-c/bx2="非一元二次方程，仅有一解"MsgBox("系数为"+a&b&c+"的一元二次方程的根分别为"&x1)MsgBox("系数为"+a&b&c+"的一元二次方程的根分别为"&x2)ElseIfb^2-4*a*c>=0Thenx1=(-b+Sqr(b^2-4*a*c))/(2*a)x2=(-b-Sqr(b^2-4*a*c))/(2*a)MsgBox("系数为"+a&b&c+"的一元二次方程的根分别为"&x1)MsgBox("系数为"+a&b&c+"的一元二次方程的根分别为"&x2)Elsex1=Str((-b)/(2*a))&"+"&Str(Sqr(4*a*c-b^2)/(2*a))&"i"x2=Str((-b)/(2*a))&"-"&Str(Sqr(4*a*c-b^2)/(2*a))&"i"MsgBox"此方程在实数范围内无解"EndIfEndIfEndSubOptionCompareDatabaseOptionCompareBinary'1.找出1-N（输入）的所有质数。'2.输出2000年-4000年的“闰年”年份。'3.打印九九表。'4.输入一行字符，统计大写字母、小写字母、数字、和其他字符的个数。'5.计算两个数的最大公约数。'6.找出1-1000的水仙花数。如三位数abc,若abc=a3+b3+c3，叫水仙花数Subm_1()DimnAsInteger,iAsInteger,jAsIntegerDimbAsBooleann=InputBox("输入","输入你要确定的整数")Fori=2Tonb=TrueForj=2Toi-1IfiModj=0Thenb=FalseEndIfNextjIfbThen'不用写其他的运算符Debug.PrintiEndIfNextiEndSubSubm2_()DimiAsIntegeri=InputBox("请输入2000年至2400年的任一年份")Fori=2000To2400'if(i%4==0&&i%100!=0||i%400==0)'如果i除以4的余数等于0并且i除以100的余数不等于0或者i除以400的余数等于0条件成立If(iMod4=0AndiMod100<>0)OriMod400=0ThenDebug.Printi;"";'引号和分号b=b+1'b在前面没有定义IfbMod10=0ThenDebug.PrintiEndIfNextiEndSubSubm九九表7_3()Dimi%,j%Fori=1To9Forj=1ToiDebug.PrintCStr(i)+"x"+CStr(j)+"=";i*j;NextDebug.PrintNextEndSubSubm7_41()DimaAsInteger,bAsInteger,cAsInteger,dAsInteger,mAsString,LAsIntegerm=InputBox("请输入一串字符：")L=Len(m)Fori=1ToLm=Mid(m,1,L)SelectCasemCase"A"To"Z"a=a+1Case"a"To"z"b=b+1Case"0"To"9"c=c+1CaseElsed=d+1'cstr(len(m))是计算所有输入的个数'cstr是指转换成字符串，字符前不需空一格EndSelectNextiMsgBoxm&"字符个数是："&CStr(Len(m))&Chr(13)&Chr(10)&"大写字符个数是："&a&"小写字符个数是："&b&"数字字符个数是："&c&"其他字符个数是："&dEndSubSubm7_5()DimmAsIntegerDimnAsIntegerDimrAsIntegerDimaAsInteger,bAsIntegerm=InputBox("请输入其中的一个正整数")n=InputBox("请输入另一个正整数")a=mb=nr=aModbDoWhiler<>0'循环语句r不等于0a=bb=rr=aModbLoopDebug.Printm;"与";n;"这两个正整数的最大公约数为：";bEndSubSubm7_6()DimiAsInteger,sAsIntegerDimaAsInteger,bAsInteger,cAsIntegerDebug.Print"1到1000所有水仙花数：";Fori=1To1000a=i\100'取百位数b=i\10Mod10'或b=iMod100\10取十位数c=iMod10'取个位数s=a^3+b^3+