Dim ID As Integer
ID = rs.Fields("序号1")  
''''''''''''将读出的自动编号“序号1”放到整形ID里
strsql = "select * from 借出表 where 序号2 = '" & ID & "'"
Set rs2 = con.Execute(strsql)
''''''''''''上句提示数据类型不匹配在ACCESS中,序号1和序号2都是自动编号,但是执行第三句的时候,出现问题!
谢谢各位高手相救

解决方案 »

  1.   

    strsql = "select * from 借出表 where 序号2 = " & cstr(ID)&";" 
      

  2.   

    也可以把 Dim ID As Integer 这句改成 dim id 呵呵。不正规哈。想到做asp的时候这样用的所以就写出来了。应该可以哈。楼主可以参考下
      

  3.   

    序号2是字符形,就strsql = "select * from 借出表 where 序号2 = '" & cstr(ID)&"'" 
    是整形,就strsql = "select * from 借出表 where 序号2 = " & ID
      

  4.   

    序号2是字符形,就strsql = "select * from 借出表 where 序号2 = '" & cstr(ID)&"'" 
    是整形,就strsql = "select * from 借出表 where 序号2 = " & ID
    ===========================
    自动编号字段一般都是数值型的。。