我作了个VB窗体,想在这个窗体上显示一个信息表的查询表。查询表中的的部分内容是由信息表中“身份证号码”字段生成的“出生日期、性别、年龄”等。加载ADO控件并在其属性ConnectionString中设置“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\人员信息显示\db1.mdb;Mode=Read;Persist Security Info=False“,在RecordSource中选择人员信息表查询表,把窗体上各Text文本框与其DataSource:Adodc1连接并在DataField属性中选择了相应的名称。运行结果就是缺少“年龄”字段的内容,其它各项都能正常显示。请前辈指导!本人菜鸟一个也无高分。 

解决方案 »

  1.   


    谢谢lxq19851204你的关注。
    详情是信息表的字段有“编号、姓名、身份证号码、出生日期、性别、年龄、婚否等等,其中的出生日期、性别和年龄这三个字段没有填实际内容,它由信息表查询表根据身份证号码自动生成并填充;然后依上表做了个查询表,此查询表能完全显示信息表包括由身份证号码自动生成的生日性别和年龄;在VB窗体上用DATA控件也能在TextBox控件上显示,但是用Adodc控件时其它项目也都可以显示,就是“年龄”字段没有内容显示。
      

  2.   

    http://download.csdn.net/source/1498324
      

  3.   

    Dim aa$
    aa = Mid(adodc1.Recordset.fields("身份证号码"), 7, 4)
    adodc1.Recordset.fields("年龄") = CStr(Year(Now) - Val(aa) + 1)