Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim sqlDAL As New DAL05.DataAccess.SQLServer(
- 1) This does NOT reduce the number of errors.
- 2) This seems superfluous/moot because "DAL05.DataAccess." is grayed out.
- 3) The red underscore on the second and last "r" of "SQLServer" is NOT removed.
- Public Function GetUserInfo(ByVal userid As String, ByVal password As String, ByVal memberno As String) As DataTable
- Dim sqlDAL As New SQLServer(System.Configuration.ConfigurationManager.AppSettings("OrderEnterConnection"))
- Dim dset As DataSet
- dset = sqlDAL.runSQLDataSet("Exec up_GetUserData_Web_2012 '" + userid + "','" + password + "','" + memberno + "'")
- Return dset.Tables(0)
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement