我是vb白痴,现在有几行代码要写,各位帮忙啊~~~~
主要是实现用户登陆验证和注册功能。                    连接access数据库salev.mdb(当前目录下)
                                  |
                                  |
      "select id,username,password from common_operators where username="&text1.text
                                  |
                            判断是否是本系统用户
注册功能
                    根据输入的 信息,insert into common_operators values(.....)
各位高手帮忙啊,俺就是不会写数据库连接的语句。另外,vb访问access是不是不能进行insert,delete这些操作啊?我看了好多源代码,都只是select
帮个忙啊~~~

解决方案 »

  1.   

    连接数据库可一般用ADO 或用DAO:
    一、用DAO:
    先引用DAO3.6:
    dim db as database,rst as Recordset
    set db=opendatabase(app.path & "\salev.mdb")
    set rst=db.OpenRecordset("select id,username,password from common_operators where username="&text1.text)
    if not rst.eof and not rst.bof then
       '是本系统用户
    else
       '不是本系统用户
    endif
    '注册:
    rst.addnew
    rst!ID=注册信息
    rst!....
    rst.update
    rst.close
    db.closevb访问access是可以删除的,查到要删除的记录后,执行rst.delete即可二、用ADO连接数据库
    Dim cn As new ADODB.Connection, rs As new ADODB.Recordset
    cn.Open "app.path & "\salev.mdb"
    rs.Open "select id,username,password from common_operators where username="&text1.text, cn
    其余与DAO差不多
    注意要引用ADO2.1以上!
      

  2.   

    "select id,username,password from common_operators where username='"&text1.text &"'" select 是关于表的操作,上面的语句的作用是选中username等于text1.text的纪录。    要实现用户登陆,应该打开始据库,然后遍历所有记录,看用户名是否有所输入的相等,然后再判断密码是否正确。
        另外,还应对用户名和密码由简单的加密,要不然所有人都可以打开Access的人都可以看见密码。^_^   呵呵
      

  3.   

    可以执行insert和delete操作的,句法遵照SQL规定
      

  4.   

    弄好了,还有个问题就是在sql语句中字段类型的转换比如说,select (jshm-kshm)/50 as bs from tfp_kc .......
    在这里jshm和kshm都是string类型的怎么才能把它转化成整型呢?
      

  5.   

    用convert:
    convert(int,jshm)這樣jshm就是整型的了
      

  6.   

    access:
    select (Cint(jshm)-Cint(kshm))/50 as bs from tfp_kc .......sqlserver:
    select (Cast(jshm as int)-Cast(kshm as int))/50 as bs from tfp_kc .......
      

  7.   

    (cint(right(jshm,8))-cint(right(xsyb,8))+1)/" & mbfs 楼上的大哥,提示说表达式中数据类型不匹配