Visual Basic

dvSortedView.Sort = e.SortExpression + " " + getSortDirectionString(e.SortDirection)

Public Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
            
            Dim sqlConn As New SqlConnection
            Dim sqlCmd As New SqlClient.SqlCommand
            'Dim sqlReader As SqlDataReader
            Dim sqlAdapter As New SqlDataAdapter
            Dim sqlDataTable As New DataTable
                        
            'If no values are supplied in the textbox, throw an error message.
            If TextBox2.Text = "" Then
                MsgBox("A centre code needs to be provided...")
            End If
            
            If TextBox2.Text <> "" Then
            
                'Telling the system the location of the database.
                sqlConn.ConnectionString = "server=serverName;Initial Catalog=dbName;Trusted_Connection=yes"

                'Here we are opening the connection to the database.
                'sqlConn.Open()
                
                'This is to say that sqlCmd is a stored procedure.
                'sqlCmd.CommandType = System.Data.CommandType.StoredProcedure
                        
                'This is creating the command to execute the stored procedure based on the information given in the connection string.
                'sqlCmd = sqlConn.CreateCommand

                'The command is triggered to execute the stored procedure which grabs all information for the specific centre.
                sqlAdapter.SelectCommand = New SqlCommand("exec ProcName'" & TextBox2.Text & "' ", sqlConn)
                
                'This will read the rows in the database.
                'sqlReader = sqlCmd.ExecuteReader()
                
                'If there are rows of data that match are criteria
                'If (sqlReader.HasRows) Then

                    'The rows of data are grabbed for the specific centre from the database using the data reader.
                'GridView2.DataSource = sqlReader
                'GridView2.DataBind()
                    
                'sqlAdapter = New SqlDataAdapter(sqlCmd)
                    sqlAdapter.Fill(sqlDataTable)
                    
                GridView2.DataSource = sqlDataTable
 
                
                'GridView2.DataSource = sqlDataTable
                GridView2.DataBind()
                    
                Else
                    MsgBox("The centre code provided does not exist...")
                'End If
                
                'This is closing the connection to the database once we have finished with it.
                'sqlConn.Close()
                
              
            End If
        End Sub
                           
        
        


        Public Sub gvSorting_Sorting(ByVal sender As Object, ByVal e As GridViewSortEventArgs)
               
            Dim dt = TryCast(Session("TaskTable"), DataTable)
            Dim dtSortView As New DataTable
            dtSortView = GridView2.DataSource
              
            If dtSortView Is Nothing Then
                Dim dvSortedView As New DataView(dtSortView)
                
                dvSortedView.Sort = e.SortExpression + " " + getSortDirectionString(e.SortDirection)
                               
                GridView2.DataSource = dvSortedView
                GridView2.DataBind()
            End If
        End Sub
                   
        Public Function getSortDirectionString(ByVal SortDirection As SortDirection) As String
            
            Dim newSortDirection As String = String.Empty
                  
            If (SortDirection = SortDirection.Ascending) Then
                newSortDirection = "ASC"
            Else
                newSortDirection = "DESC"
                'Return newSortDirection
            End If
            
            Return newSortDirection
            
        End Function

sqlAdapter.Fill(sqlDataTable)

' Here is where I'm storing the data in a session variable
If Not (Session("TaskTable") Is Nothing) Then
    Session.Remove("TaskTable")
End If

Session("TaskTable") = sqlDataTable

GridView2.DataSource = sqlDataTable

    Protected Sub GridView2_Sorting(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.GridViewSortEventArgs) Handles GridView2.Sorting
        Dim dt As DataTable

        ' Now I'm pulling the data from the session variable out.
        dt = TryCast(Session("TaskTable"), DataTable)

        Dim dv As New DataView(dt)

' I have to store the Sort Direction in the Viewstate because the Grid 
' does not automatically remember the change of the sort direction.

        If ViewState("SortDirection") Is Nothing Then
            ViewState("SortDirection") = "ASC"
        End If

        If ViewState("SortDirection") = "ASC" Then
            dv.Sort = e.SortExpression & " " & "DESC"
            ViewState("SortDirection") = "DESC"
        Else
            dv.Sort = e.SortExpression & " " & "ASC"
            ViewState("SortDirection") = "ASC"
        End If

        GridView2.DataSource = dv
        GridView2.DataBind()
    End Sub

Dim strFileSize As String = ""
        Dim di As New IO.DirectoryInfo("C:\path")
        Dim aryFi As IO.FileInfo() = di.GetFiles("*.pdf")
        Dim fi As IO.FileInfo

        For Each fi In aryFi
            strFileSize = (Math.Round(fi.Length / 1024)).ToString()
            
            'yourdatagridcell("File Name: {0}", fi.Name)
            'yourdatagridcell("File Full Name: {0}", fi.FullName)
            'yourdatagridcell("File Size (KB): {0}", strFileSize)
            'yourdatagridcell("File Extension: {0}", fi.Extension)
            'yourdatagridcell("Last Accessed: {0}", fi.LastAccessTime)
            'yourdatagridcell("Read Only: {0}", (fi.Attributes.ReadOnly = True).ToString)
        Next

Imports System.IO
Imports System
Imports System.Drawing
Imports System.Windows.Forms

Public Class SearchAvi

    Private Sub BtnGetAviFiles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGetAviFiles.Click

        Dim dir1 As New IO.DirectoryInfo("c:")
        Dim dir2 As IO.FileInfo() = dir1.GetFiles()
        Dim files1 As IO.FileInfo

        For Each files1 In dir2
            FrmListBox.Items.Add(files1)
        Next

    End Sub

Push start directory onto stack
loop while stack is non-empty
pop last element off the stack (directory)
do action on element (here: find all *.pdf files)
list all subdirectories and for each push full subdirectory path on the stack
end loop

dineshp123 wrote:

HOW TO MAKE SIMPLE WEB SERVICES IN VB6.0 ANY ONE KNOWS PLEASE EXPLAIN!!!!!!!!