Function IsPassed() As Boolean Dim MyCommand As SQLDataSetCommand = New SQLDataSetCommand("Login", strConnection)
MyCommand.SelectCommand.CommandType = CommandType.StoredProcedure
MyCommand.SelectCommand.Paramenters.Add(New SQLParameter("@UserID", SQLDataTyppe.VarChar, 15))
MyCommand.SelectCommand.Paramenters.Add(New SQLParameter("@Password", SQLDataTyppe.VarChar, 20)) MyCommand.SelectCommand.Paramenters("@UserID").Value = txtUserID.Text
MyCommand.SelectCommand.Paramenters("@Password").Value = txtPassword.Text Dim DS As DataSet = New DataSet
MyCommand.FillDataSet(DS, "UserInfo")
If DS.Tables("UserInfo").Rows.Count > 0 Then
Return (True)
Else
Return (False)
End If
End Function
计算机报错:SQLDataSetCommand 为未定义类型 SQLDataSetCommand 不是DataSetCommand 类对象的派生形式吗?
MyCommand.SelectCommand.CommandType = CommandType.StoredProcedure
MyCommand.SelectCommand.Paramenters.Add(New SQLParameter("@UserID", SQLDataTyppe.VarChar, 15))
MyCommand.SelectCommand.Paramenters.Add(New SQLParameter("@Password", SQLDataTyppe.VarChar, 20)) MyCommand.SelectCommand.Paramenters("@UserID").Value = txtUserID.Text
MyCommand.SelectCommand.Paramenters("@Password").Value = txtPassword.Text Dim DS As DataSet = New DataSet
MyCommand.FillDataSet(DS, "UserInfo")
If DS.Tables("UserInfo").Rows.Count > 0 Then
Return (True)
Else
Return (False)
End If
End Function
计算机报错:SQLDataSetCommand 为未定义类型 SQLDataSetCommand 不是DataSetCommand 类对象的派生形式吗?
楼主是不是用错了? 用SQLCommand