VB登陆

本帖最后由 bcrun 于 2011-09-13 11:03:44 编辑

解决方案 »

  1.   

    你先在sql语句上设个断点，看到底是怎么回事
      

  2.   

    我感觉你那RS更本就没有返回值  rs永远是EOF 需要返回的 我一般都不这样写 
    sql = “”
    rs。open sql ,conn,1,1有返回值的一般这样写  conn.Execute 我都用于没返回值的 比如清空 啥的
      

  3.   

    数据库查询账号，看下这里的成品例子
    http://blog.csdn.net/xiaoyao961/article/details/6762423
      

  4.   

    把这三句换成你的就好了ConnStr = "Provider=MSDASQL.1;Persist Security Info=false;User ID=sa;Extended Properties=DRIVER=Microsoft Access Driver (*.mdb);"  
       If usemdw Then ConnStr = ConnStr & "DBPROP_JETOLEDB_SYSDBPATH=" & Chr(34) & "F:\PROGRA~1\MICROS~2\OFFICE\SYSTEM.MDW" & Chr(34) & ";user=admin;pass=abc;"  
       ConnStr = ConnStr & "DBQ=" & Mdbfilepath & ";Password=" & Mdbpassword ConnStr = "Provider=SQLOLEDB.1;Password=sa123456;Persist Security Info=True;User ID=sa;" _
      & "Initial Catalog=图书物流信息管理系统;Server=s2224"
      

  5.   

    谢谢大家 主要是  rs.MoveFirst 没有接 rs.moveNext,而且少个循环