我是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
帮个忙啊~~~
主要是实现用户登陆验证和注册功能。 连接access数据库salev.mdb(当前目录下)
|
|
"select id,username,password from common_operators where username="&text1.text
|
判断是否是本系统用户
注册功能
根据输入的 信息,insert into common_operators values(.....)
各位高手帮忙啊,俺就是不会写数据库连接的语句。另外,vb访问access是不是不能进行insert,delete这些操作啊?我看了好多源代码,都只是select
帮个忙啊~~~
一、用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以上!
另外,还应对用户名和密码由简单的加密,要不然所有人都可以打开Access的人都可以看见密码。^_^ 呵呵
在这里jshm和kshm都是string类型的怎么才能把它转化成整型呢?
convert(int,jshm)這樣jshm就是整型的了
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 .......