data控件问题(急,帮帮忙)

Question

不要用text控件直接连数据库
比如你的text控件是txtpass
那么你可以用下面的确定按钮代码：set conn=server.createobject("adodb.connection")
path=server.mappath("load.mdb")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&path
set rs=server.createobject("adodb.recordset")
if rs.open "select * from user where 密码 ='"&txtpass.text&"'",conn,adopendynamic,adlockpessimistic
then 
'成功
else
’失败
end if

Answer 1

多up 
多up 
多up 

Answer 2

别用傍定模式，自己写SQL语句比较好

Answer 3

我上面给你的程序有点毛病！那是vbs的，其实也好使只要小小的修改就可以了！
下面是vb的，我调了一下好使！
改正如下：
Dim conn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click()
Dim ConnStr, name As String
    name = txtid.Text
    ConnStr = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
              "Data Source=e:\load.mdb"
    conn.Open ConnStr
    
    SQL = "Select * From user Where 用户名= '" & name & "'"
    rs.Open SQL, conn
    rs.MoveFirst
    
If rs.Fields(0) <> "" Then
If rs.Fields(1) = txtpass.Text Then Form2.Show
Else
MsgBox "错误"
End If
End Sub
我的load数据库里有两个字段 用户名 密码。