CSDN首页 空间 新闻 论坛 Blog 下载 读书 网摘 搜索 .NET Java 视频 接项目 求职 在线学习 买书 程序员 通知
英特尔®游戏设计大赛100美元现金周周送 专题改版:Java Web 专题
CSDN社区
搜索 收藏 打印 关闭
CSDN社区 >  Delphi >  VCL组件开发及应用

用 dbExpress 访问SQLServer2000数据库,如何查询相关联表中的数据是否存在!

楼主Gahal(地瓜)2003-06-04 17:54:21 在 Delphi / VCL组件开发及应用 提问

我在做一个小软件,其中用到了的表的关联,做的查询的时候出现了一点问题,请各位大哥帮帮我!  
      表是:主表和附表  
      语句为:      
  with   主表   do  
      begin  
              DataSet.CommandText:='';  
              DataSet.CommandText:='Select   *   from   主表   where   身份证号码='''   +   身份证.Text   +   ''''   ;  
              DataSet.Active   :=True;  
              if   not   eof   then  
                  begin  
                      Name.Text   :=DataSet.FieldValues['姓名'];  
                      Application.MessageBox('网络验证成功!','验证成功',MB_OK+MB_IconInformation);  
                      end  
              else  
                      Application.MessageBox('对不起,你不是企业的正式职员!','新增失败',MB_OK+MB_IconError);  
  end;  
  这样的语句不行,不知还有没有更好方法,在线等待.....急急急急! 问题点数:0、回复次数:4Top

1 楼linzhisong(無聊)回复于 2003-06-04 18:01:15 得分 0

这个吧  
  if   (Name.Text   =DataSet.FieldValues['姓名'])   then    
              Application.MessageBox('网络验证成功!','验证成功',MB_OK+MB_IconInformation);  
  else  
        Application.MessageBox('对不起,你不是企业的正式职员!','新增失败',MB_OK+MB_IconError);  
   
       
  Top

2 楼linzhisong(無聊)回复于 2003-06-04 18:01:47 得分 0

if   (dataset.locate('姓名',name.text,[])   then    
              Application.MessageBox('网络验证成功!','验证成功',MB_OK+MB_IconInformation);  
  else  
        Application.MessageBox('对不起,你不是企业的正式职员!','新增失败',MB_OK+MB_IconError);  
  Top

3 楼lion_lh(xmanx)回复于 2003-06-04 18:12:06 得分 0

with   主表   do  
      begin  
              DataSet.CommandText:='';  
              DataSet.CommandText:='Select   *   from   主表   where   身份证号码='''   +   身份证.Text   +   ''''   ;  
              DataSet.Active   :=True;  
              if   DataSet.RecordCount>0  
                  begin  
                      Name.Text   :=DataSet.FieldValues['姓名'];  
                      Application.MessageBox('网络验证成功!','验证成功',MB_OK+MB_IconInformation);  
                      end  
              else  
                      Application.MessageBox('对不起,你不是企业的正式职员!','新增失败',MB_OK+MB_IconError);  
  end;  
  Top

4 楼Gahal(地瓜)回复于 2003-06-04 18:18:25 得分 0

可以我的"主表"中“学位”时,(学位.text:=DataSet.FieldValues['学位'])出现"学位"不在该数据集中,不知是什么问题!Top

相关问题

  • 能否将accesss数据库关联到SQLServer中?
  • 怎样将formula one 关联到sqlserver 数据库?
  • 有关数据库关联
  • 再次请教VB数据库关联
  • 什么叫关联数据库? 增分
  • 请教svg数据库关联问题!
  • 数据库动态关联的问题
  • 数据库关联问题,在线等
  • treeview和数据库关联的问题?
  • 数据库多对多关联问题

关键词

  • 验证
  • 学位
  • 企业
  • application
  • 网络
  • 主表
  • mb
  • ok+
  • iconerror
  • 验证成功

得分解答快速导航

  • 帖主:Gahal

相关链接

  • Delphi类图书
  • Delphi类源码下载
  • Delphi控件下载

广告也精彩

反馈

请通过下述方式给我们反馈
反馈
网站简介|广告服务|VIP资费标准|银行汇款帐号|网站地图|帮助|联系方式|诚聘英才|English|问题报告
世纪乐知(北京)网络技术有限公司 版权所有, 京 ICP 证 020026 号
北京创新乐知广告有限公司 提供技术支持
Copyright © 2000-2007, CSDN.NET, All Rights Reserved
GongshangLogo