用ADO,ACCESS2000......?

Question

'引用 Microsoft OLE DB Service Component 1.0 Type Libary
Private Sub Command1_Click()
Dim x As New MSDASC.DataLinks
Dim c As New ADODB.Connection
x.PromptEdit c
Debug.Print c.ConnectionString
c.Open
End Sub

Answer 1

Dim cn As New Connection 
cn.execute "delete from USER where 用户名='"& text1&"'"
cn.execute "insert into USER values('"& text1 &"','"& text2 &"','"& text3 &"')"
要应用到登录上，只要读取用户选择的用户名并判断口令是否与该记录一致。

Answer 2

Dim cn As New Connection
cn.execute "delete from USER where 用户名='"& text1&"'"
cn.execute "insert into USER(用户名,密码,是否为管理员) values('"& text1 &"','"& text2 &"','"& text3 &"')"
要应用到登录上，只要读取用户选择的用户名并判断口令是否与该记录一致。

Answer 3

一、添加用户'定义ADO对象
dim cn as new adodb.connection     '连接对象
dim rst as new adodb.recordset     '记录集对象'打开数据库连接
cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库路径及名称(如d:\database.mdb);Persist Security Info=False"'填充记录集
rst.open "select 用户名,密码,是否为管理员 from user",cn,adOpenStatic, adLockOptimistic'按添加按钮，添加用户
rst.addnew
rst.fields("用户名")=text1.text
rst.fields("密码")=text2.text
rst.fields("是否为管理员")=text3.text
rst.update'关闭、清除ADO对象
rst.close
cn.closeset rst=nothing
set cn=nothing二、登录窗体应用'定义ADO对象
dim cn as new adodb.connection     '连接对象
dim rst as new adodb.recordset     '记录集对象'打开数据库连接
cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库路径及名称(如d:\database.mdb);Persist Security Info=False"'填充记录集
rst.open "select 用户名,密码,是否为管理员 from user",cn,adOpenStatic, adLockOptimistic'登录窗体按确定
if rst.eof then
  msgbox "库中无用户信息！"
else
  rst.movefirst
  rst.find "用户名='" & text1.text & "'"
  if rst.eof then
    msgbox "库中无此用户！"
  else
    if rst.fields("密码")<>text2.text then
      msgbox "密码不正确！"
    else
      根据操作权限进行处理..............
    endif
  endif
endif'关闭、清除ADO对象
rst.close
cn.closeset rst=nothing
set cn=nothing