May was a big month for new releases from Linux Academy! Take a look at what our team built recently in our blog. You can access the newest releases from our blog.
Private Sub GetGridData( _ Optional ByVal sStatus As String = "New", _ Optional ByVal sBookmark As Char = "") Dim sSQL As String Dim sWHERE As String = "WHERE 1=1 " If sStatus <> "Enabled" Then sBookmark = "" dlBookmark.Visible = False Else ' Do something else sBookMark = "x" End If sSQL = "SELECT * FROM MySQLView " & sWHERE If sBookmark <> "" Then ' FixSQL wraps single quotes around a string sSQL &= "AND Left(Name, 1) = " & FixSQL(sBookmark) & " " End If sSQL &= "ORDER BY Status, Name" Dim dr As SqlDataReader = dbHelper.OpenDataReader(sSQL) MyDataGrid.DataSource = dr MyDataGrid.DataBind() End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.