说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

如何根据身份证信息提取生日信息?求相关SQL语句

编辑:说三道四文库 发布时间:2018-01-23 08:34
HTML文档下载 WORD文档下载 PDF文档下载
一张学生表,有生日和身份证和其他的字段,有的人有生日信息没身份证信息,有的相反。  
 
我想根据有身份证信息把生日提取出来并存到生日字段里,该怎么做?  
 
生日字段有的是15位,有的18位,类型文本(18位身份证有的最后一位是X,只能设成文本),好复杂。  
 
求能达到要求的SQL语句。
你可以先判断一下,15位取7-12位,18位取7-14位 
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
file_path = App.Path
    If Right$(file_path, 1) <> "\" Then file_path = file_path & "\"
connid = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=" &App.Path& "\your.mdb;"
cn.Open connid
sqlstr="select * form student"
 rs.Open sqlstr, cn, 3, 2
str=rs("身份证号")
if len(str)=15
   str=mid(str,7,6)
   str='19'&str
end if
if len(str)=18
   str=mid(str,7,8)
end if 
birthday=str
 rs.Close
  cn.Close
  Set cn = Nothing

剩下的你应该可以自己解决了
顺便说一下,我没测试!
update table set birthday=right(left(idNo,12),7) where len(id)=13
update table set birthday=right(left(idNo,14),7) where len(id)=15
得到鼠标位置 -VB资料 动态加入控件到VB控件数组中 对ListView中的列排序-VB资料 放一个Combo到Toolbar中 -VB资料 改进VB的驱动器列表框 基础题,马上给分! 公布操作IIS的源码 *****请问如何移除IE Webcontrols toolbar下的某个按钮? access中查询文本字段时若按字母顺序排序,是如何排的? SELECT field INTO variable怎么用的,顺便散分 诚征优秀鬼故事10篇,要完整而且足够长,每个给100分!另外开贴给分,有效期三天。要求鬼故事贴的标题已“鬼故事:”开头 我好急!大虾救我! 怎样彻底防止查看源文件 瞧,我們網管的! 如图,一个平行四边形被分成四个小平行四边形,其中的 关于宇宙起源宇宙是怎样起源的说说理论,我科学课急用 世界城市带分布从地理位置讲位于【 】带,从自然条件 微风吹拂着岸边的柳树.(改为拟人句) 一座拱桥的桥 角1=15度,圆的周长是62.8厘米,平行四边形的 一个大写c一个反写大写g是什么运动牌子不是古琦 L 吉他上只有一个大写A字母的牌子是什么牌子,店员说是 杨柳在风中飘拂 改成比喻句 垂柳在风中摇曳改拟人句.现在就要,六年级下《突破》 阿根廷执政党保住国会最大党地位 但选外媒:以色列空袭加沙地带 未造成人员智能手机横行 日本偷拍案件五年翻一番未来两年国际天然气市场仍供应紧俏印度急着发射火星探测器跟风乱扎堆 煳了一锅粥水涨水落景不同解放军高级将领调整淡季吃成旺季 热砂锅做起“凉”文章吹着空调吃西瓜 砰的一声灯炸了回到明朝去闯荡王牌能力者纵意人生对弈天下非常复仇者大乘玉佛寺旅游赵苑旅游区旅游学步桥旅游回车巷旅游邯郸市博物馆旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘