Access如何给字段添加有效性的教程
下面咱们就来看看怎样在Access中给字段添加有效性教程。
具体操作步骤：
1、打开你要修改的数据表，然后点击视图选项
2、在弹出的下拉菜单中，找到 设计视图
3、打开了设计视图面板，在设计视图中，我们给毕业院校添加一个有效性规则，点击一下毕业院校的字段，这样就能选中它
4、接着点击查询选项，如红色箭头所示
5、在有效性规则这一栏，输入 in（&北大&,&清华&,&首都师范&），这句代码的意思就是，这个字段的数据必须是 北大、清华、首都师范这三个大学，其他数据都不能录入。
6、点击保存按钮
7、弹出一个警告消息，因为数据表中已经有了数据，但是这些数据不符合现在刚刚设立的有效性规则。我们点击 是，这样就就开始用新的规则来测试数据了
8、等待几分钟，弹出了一个新的警告信息，点击是，意思是继续用这个规则来约束数据，这样原来的数据就被删除了。
9、点击菜单栏上面的数据表视图，这样就返回到了数据表视图。
10、我们看到原有的数据已经删除了那些不符合有效性规则的数据。
11、我们尝试输入&河大&这两个字
12、提示消息说不符合有效性规则，这样你的表就只能输入符合有效性规则色数据了
顶一下(0) 踩一下(0)
热门标签：Delphi中的Access技巧小结
Delphi中的Access技巧小结
　　1.DELPHI中操作ACCESS数据库(建立.mdb文件,压缩数据库) 　　以下代码在WIN2K,D6,MDAC2.6下测试通过, 编译好的程序在WIN98第二版无ACCESS环境下运行成功. //在之前uses ComObj,ActiveX //声明连接字符串 Const SConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;' +'Jet OLEDB:Database Password=%s;';
//============================================================================= // Procedure: GetTempPathFileName // Author : ysai // Date :
// Arguments: (None) // Result : string //============================================================================= function GetTempPathFileName(): //取得临时文件名 var SPath,Sfile&:array [0..254] begin GetTempPath(254,SPath); GetTempFileName(SPath,'~SM',0,SFile); result:=SF DeleteFile(PChar(result));
//============================================================================= // Procedure: CreateAccessFile // Author : ysai // Date :
// Arguments: FileName:SPassWord:string='' // Result : boolean //============================================================================= function CreateAccessFile(FileName:SPassWord:string=''): //建立Access文件，如果文件存在则失败 var STempFileName: vCatalog:OleV begin STempFileName:=GetTempPathFileN try vCatalog:=CreateOleObject('ADOX.Catalog'); vCatalog.Create(format(SConnectionString,[STempFileName,PassWord])); result:=CopyFile(PChar(STempFileName),PChar(FileName),True); DeleteFile(STempFileName); except result:=
//============================================================================= // Procedure: CompactDatabase // Author : ysai // Date :
// Arguments: AFileName,APassWord:string // Result : boolean //============================================================================= function CompactDatabase(AFileName,APassWord:string): //压缩与修复数据库,覆盖源文件 var STempFileName: vJE:OleV begin STempFileName:=GetTempPathFileN try vJE:=CreateOleObject('JRO.JetEngine'); <pactDatabase(format(SConnectionString,[AFileName,APassWord]), format(SConnectionString,[STempFileName,APassWord])); result:=CopyFile(PChar(STempFileName),PChar(AFileName),false); DeleteFile(STempFileName); except result:=
//============================================================================= // Procedure: ChangeDatabasePassword// Author : ysai // Date :
// Arguments: AFileName,AOldPassWord,ANewPassWord:string // Result : boolean //============================================================================= function ChangeDatabasePassword(AFileName,AOldPassWord,ANewPassWord:string): //修改ACCESS数据库密码 var STempFileName: vJE:OleV begin STempFileName:=GetTempPathFileN try vJE:=CreateOleObject('JRO.JetEngine'); <pactDatabase(format(SConnectionString,[AFileName,AOldPassWord]), format(SConnectionString,[STempFileName,ANewPassWord])); result:=CopyFile(PChar(STempFileName),PChar(AFileName),false); DeleteFile(STempFileName); except result:=
　　2.ACCESS中使用SQL语句应注意的地方及几点技巧 　　以下SQL语句在ACCESS XP的查询中测试通过.　　建表: Create Table Tab1 ( ID Counter, Name string, Age integer, [Date] DateTime); 　　技巧: 　　自增字段用 Counter 声明. 　　字段名为关键字的字段用方括号[]括起来,数字作为字段名也可行.
　　建立索引: 　　下面的语句在Tab1的Date列上建立可重复索引 Create Index iDate ON Tab1 ([Date]); 　　完成后ACCESS中字段Date索引属性显示为 - 有(有重复). 　　下面的语句在Tab1的Name列上建立不可重复索引 Create Unique Index iName ON Tab1 (Name); 　　完成后ACCESS中字段Name索引属性显示为 - 有(无重复). 　　下面的语句删除刚才建立的两个索引 Drop Index iDate ON Tab1; Drop Index iName ON Tab1;
ACCESS与SQLSERVER中的UPDATE语句对比: SQLSERVER中更新多表的UPDATE语句: UPDATE Tab1 SET a.Name = b.Name FROM Tab1 a,Tab2 b WHERE a.ID = b.ID; 　　同样功能的SQL语句在ACCESS中应该是 UPDATE Tab1 a,Tab2 b SET a.Name = b.Name WHERE a.ID = b.ID; 　　即:ACCESS中的UPDATE语句没有FROM子句,所有引用的表都列在UPDATE关键字后. 　　上例中如果Tab2可以不是一个表,而是一个查询,例: UPDATE Tab1 a,(Select ID,Name From Tab2) b SET a.Name = b.Name WHERE a.ID = b.ID;
　　访问多个不同的ACCESS数据库-在SQL中使用In子句: Select a.*,b.* From Tab1 a,Tab2 b In 'db2.mdb' Where a.ID=b.ID; 　　上面的SQL语句查询出当前数据库中Tab1和db2.mdb(当前文件夹中)中Tab2以ID为关联的所有记录. 　　缺点-外部数据库不能带密码. 　　补充:看到ugvanxk在一贴中的答复,可以用 Select * from [c:\aa\a.pwd=1111].table1; ACCESS XP测试通过
　　在ACCESS中访问其它ODBC数据源 　　下例在ACCESS中查询SQLSERVER中的数据 SELECT * FROM Tab1 IN [ODBC] [ODBC;Driver=SQL SUID=PWD=;Server=127.0.0.1;DataBase=D] 　　外部数据源连接属性的完整参数是: [ODBC;DRIVER=SERVER=DATABASE=UID=PWD=] 　　其中的DRIVER=driver可以在注册表中的 HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\ 　　中找到异构数据库之间导数据参见 碧血剑 的
　　ACCESS支持子查询
　　ACCESS支持外连接,但不包括完整外部联接,如支持 LEFT JOIN 或 RIGHT JOIN 　　但不支持 FULL OUTER JOIN 或 FULL JOIN
　　ACCESS中的日期查询 　　注意:ACCESS中的日期时间分隔符是#而不是引号 Select * From Tab1 Where [Date]&##; 在DELPHI中我这样用 SQL.Add(Format( 'Select * From Tab1 Where [Date]&#%s#;', [DateToStr(Date)]));
　　ACCESS中的字符串可以用双引号分隔,但SQLSERVER不认,所以为了迁移方便和兼容, 建议用单引号作为字符串分隔符.
H3C认证Java认证Oracle认证
基础英语软考英语项目管理英语职场英语
.NETPowerBuilderWeb开发游戏开发Perl
二级模拟试题一级模拟试题一级考试经验四级考试资料
软件测试软件外包系统分析与建模敏捷开发
法律法规历年试题软考英语网络管理员系统架构设计师信息系统监理师
高级通信工程师考试大纲设备环境综合能力
路由技术网络存储无线网络网络设备
CPMP考试prince2认证项目范围管理项目配置管理项目管理案例项目经理项目干系人管理
职称考试题目
招生信息考研政治
网络安全安全设置工具使用手机安全
生物识别传感器物联网传输层物联网前沿技术物联网案例分析
Java核心技术J2ME教程
Linux系统管理Linux编程Linux安全AIX教程
Windows系统管理Windows教程Windows网络管理Windows故障
数据库开发Sybase数据库Informix数据库
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&delphi7操作数据库之Access_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
delphi7操作数据库之Access
上传于|0|0|文档简介
&&原创完整的delphi7操作Access数据库实例
阅读已结束，如果下载本文需要使用3下载券
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩18页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢1. delphi 4如何动态创建ACCESS数据库表？2.如何用字段内的文本做dbgrid的字段名？
Description of your first forum.
6 篇帖子 & 分页：1 / 1
由 kchsun & 星期一, 日 23:12
4如何动态创建ACCESS数据库表？
2. 我有一个ACCESS数据库表，字段名是英文，对应有一个字段是用来放英文对应的中文名，因该库表的中文字段名可由用户指定，所以只好把它当成字段内的数据供用户修改，但我想用dbgrid显示数据却只能是英文名，怎么办？
由 silly & 星期一, 日 23:58
1.with qryCreat do
& &SQL.Add('create table MYTABLE(COL1 int not null) ');
& &ExecSQL;
2.dbgrdMyGrid.Columns[0].Title.Caption := FieldByName('CHINESENAME').AsS
由 Liu JZX & 星期二, 日 13:59
&with Table1 do
& &Active := F &{ The Table component must not be active }
& &{ First, describe the type of table and give it a name }
& &DatabaseName := 'DBDEMOS';
& &TableType := ttP
& &TableName := 'CustInfo';
& &{ Next, describe the fields in the table }
& &with FieldDefs do
& & &Add('Field1', ftInteger, 0, True);
& & &Add('Field2', ftString, 30, False);
& &{ Next, describe any indexes }
& &with IndexDefs do
& & &{ The first index has no name because it is a Paradox primary key }
& & &Add('', 'Field1', [ixPrimary, ixUnique]);
& & &Add('Fld2Indx', 'Field2', [ixCaseInsensitive]);
that we have specified what we want, create the table }
& &CreateT
for i:=0 to table1.fields.count-2;
&dbgrid1.columns[i].title.caption:=table1.feildbyname('EnglishFieldNmae').
由 Another_eYes & 星期二, 日 14:04
--&但我想用dbgrid显示数据却只能是英文名，怎么办?
dbgrid当然可以显示中文名.
设计时点dbgrid.columns你就知道了. 运行时动态改变也行.
由 cytown & 星期二, 日 17:57
1. 可以用SQL语句创建TABLE, 方法
QUERY1.SQL.ADD('CREATE TABLE TEST (F1 CHAR(8), F2 CHAR(10))');
QUERY1.EXECSQL;
2. EYES的说法是正确的, 不过可以用SQL解决的简单一点:
SQL='SELECT XM AS &姓名&, XB AS &性别&, MZ AS &名字& FROM TABLE1'
由 kchsun & 星期二, 日 22:43
谢了！各位，虽说我今天已经解决了，还是多谢各位，分平分了吧，再次感谢
6 篇帖子 & 分页：1 / 1