Advertisement
Guest User

Untitled

a guest
Dec 2nd, 2016
60
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.65 KB | None | 0 0
  1. Dim sqlDAL As New DAL05.DataAccess.SQLServer(
  2.  
  3. 1) This does NOT reduce the number of errors.
  4.  
  5. 2) This seems superfluous/moot because "DAL05.DataAccess." is grayed out.
  6.  
  7. 3) The red underscore on the second and last "r" of "SQLServer" is NOT removed.
  8.  
  9. Public Function GetUserInfo(ByVal userid As String, ByVal password As String, ByVal memberno As String) As DataTable
  10. Dim sqlDAL As New SQLServer(System.Configuration.ConfigurationManager.AppSettings("OrderEnterConnection"))
  11. Dim dset As DataSet
  12. dset = sqlDAL.runSQLDataSet("Exec up_GetUserData_Web_2012 '" + userid + "','" + password + "','" + memberno + "'")
  13. Return dset.Tables(0)
  14. End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement