[已解决]为什么写入数据库身份证号带X时弹出语法错误

qinhuan66

求助为什么提交数据到数据库时，身份证号若带X弹出下图提示，不带X时可以正常提交。谢谢



代码如下：
AdoCmd.CommandText = "CREATE TABLE " & Database & _
                             " (序号 text(3),录入时间 datetime,报销年份 INTEGER,报销月份 INTEGER,定点医疗机构名称 text(50),单位名称 text(50),医保卡号 text(12)," & _
                             "姓名 text(8),性别 text(2),年龄 text(2),就诊日期 datetime ,出生年月 datetime ,身份证号 text(18),病种名称 text(50),类别 text(10)," & _
                             "本年度慢性病就诊次数 INTEGER,前期帐户余额 real,当前帐户余额 real,上次范围内费用累计 real,本年范围内费用累计 real,本年范围内大病范围内费用累计 real," & _
                             "甲类药费 real,自费药品 real,超范围 real,医疗费用总额 real,起付标准支付金额 real,统筹基金支付金额 real," & _
                             "个人帐户支付金额 real,个人支付金额 real,大病求助基金支付金额 real)"
        AdoCmd.Execute , , 1    'adCmdText
        Set AdoCmd = Nothing
        Set AdoxCat = Nothing
        Set AdoConn = Nothing

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-22 10:59

1.         strSql = " insert into " & Database & " values(" & [B2] & ",#" & [D2] & "#," & [F2] & ",'" & [F3] & "','" & [B3] & "','" & [B4] & "','" & [F4] & "','" & _
   
2.                  [B5] & "','" & [D5] & "','" & [F5] & "',#" & [B6] & "#,#" & [D6] & "#,'" & [F6] & "','" & [B7] & "','" & [F7] & "','" & _
   
3.                  [B8] & "','" & [D8] & "','" & [F8] & "','" & [B9] & "','" & [D9] & "','" & [F9] & "','" & _
   
4.                  [B10] & "','" & [D10] & "','" & [F10] & "','" & [B11] & "','" & [D11] & "','" & [F11] & "','" & _
   
5.                  [B12] & "','" & [D12] & "','" & [F12] & "')"
   

复制代码

跳转到最佳答案楼层

hwc2ycy

看看SQL语句吧。

qinhuan66

hwc2ycy 发表于 2013-5-22 10:18
看看SQL语句吧。

还是查不错出在哪里。{:041:}

hwc2ycy

发附件吧。

qinhuan66

hwc2ycy 发表于 2013-5-22 10:39
发附件吧。

谢谢老师：
测试.rar (116.71 KB, 下载次数: 5)

2013-5-22 10:46 上传

点击文件名下载附件

hwc2ycy

insert into mzmxb values(1,#2013/5/22#,2013,'5','江南市人民医院','江南市东兴镇卫生院','042100200192','张三','男','34',#2013/5/5#,#1979/9/18#,46010419690918125X,'流感','在职待遇','1','50','0','0','0','0','0','0','0','1000','200','500','50','450','0')

你的身份证号是文本类型，要加''

qinhuan66

hwc2ycy 发表于 2013-5-22 10:54
insert into mzmxb values(1,#2013/5/22#,2013,'5','江南市人民医院','江南市东兴镇卫生院','042100200192' ...

谢谢老师指点。可以了谢谢

hwc2ycy

1.         strSql = " insert into " & Database & " values(" & [B2] & ",#" & [D2] & "#," & [F2] & ",'" & [F3] & "','" & [B3] & "','" & [B4] & "','" & [F4] & "','" & _
   
2.                  [B5] & "','" & [D5] & "','" & [F5] & "',#" & [B6] & "#,#" & [D6] & "#,'" & [F6] & "','" & [B7] & "','" & [F7] & "','" & _
   
3.                  [B8] & "','" & [D8] & "','" & [F8] & "','" & [B9] & "','" & [D9] & "','" & [F9] & "','" & _
   
4.                  [B10] & "','" & [D10] & "','" & [F10] & "','" & [B11] & "','" & [D11] & "','" & [F11] & "','" & _
   
5.                  [B12] & "','" & [D12] & "','" & [F12] & "')"
   

复制代码

hwc2ycy

数字不用加任何符号，文件加'，日期加#

qinhuan66

hwc2ycy 发表于 2013-5-22 11:00
数字不用加任何符号，文件加'，日期加#

谢谢老师帮讲解指导。谢谢