level 1
yaolinsong
楼主
用传参的方法总是提示必须声明变量@n
Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
conn.Open db.GetStrConn
cmd.ActiveConnection = conn
cmd.CommandType = adCmdText
cmd.Parameters.Append cmd.CreateParameter("@n", adVarChar, adParamInput, 50, m_user.Name)
cmd.Parameters.Append cmd.CreateParameter("@p", adVarChar, adParamInput, 50, m_user.Pass)
cmd.CommandText = "select * from Users where [UserName]=@n and [UserPassword]=@p"
Set rs = cmd.Execute
2018年12月03日 08点12分
1
Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
conn.Open db.GetStrConn
cmd.ActiveConnection = conn
cmd.CommandType = adCmdText
cmd.Parameters.Append cmd.CreateParameter("@n", adVarChar, adParamInput, 50, m_user.Name)
cmd.Parameters.Append cmd.CreateParameter("@p", adVarChar, adParamInput, 50, m_user.Pass)
cmd.CommandText = "select * from Users where [UserName]=@n and [UserPassword]=@p"
Set rs = cmd.Execute
