ADO访问ACCESS 的语句的问题。

[powgu]

登录页面的密码验证：
-------------------------------------------------
SQL="Select * From Users Where user='"&userid& "'"
SQL=SQL&"And password ='"&password& "'"

Set rs=GetMdbRs("tree.mdb",SQL,3,"") ++++++这句查询语句不能执行呀！
--------------------------------------
Function GetMdbRs( FileName, Source, Cursor, Password )
Dim conn, rs
Set conn = GetMdbConnection( FileName )
If conn Is Nothing Then Exit Function
Set rs = Server.CreateObject("ADODB.Recordset")
If Err.Number <> 0 Then Exit Function
rs.Open source, conn, Cursor, 2
If Err.Number <> 0 Then Exit Function
Set GetMdbRs=rs
End Function
----------------------------------------
Function GetMdbConnection(FileName)
Dim Provider, DBPath
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
DBPath = "Data Source=" & Server.MapPath(FileName)
Set GetMdbConnection = GetConnection( Provider & DBPath)
End Function

[powgu]

Function GetConnection( Param )
Dim conn

On Error Resume Next
Set GetConnection = Nothing
Set conn = Server.CreateObject("ADODB.Connection")
If Err.Number <> 0 Then Exit Function

conn.Open Param
If Err.Number <> 0 Then Exit Function
Set GetConnection = conn
End Function

[qunluo]

晕，不错的代码！那里来的！

[patchclass]

GetMdbRs( FileName, Source, Cursor, Password )
Password 参数怎么没有用啊？会不会是你只copy了一部分？

[powgu]

呵，网上DOWN 下来的。
我也觉得不错。