Visual Basic

DBConn.ConnectionString = "Provider=SQLNCLI;AttachDBFileName=" & App.Path & "\newdb.mdf;Database=newdb;User Instance=true;Trusted_connection=Yes;"

thatraja wrote:

Looks like you have posted this question multiple times

geekgautam wrote:

how to implement using Zedgraph

e.FormattingApplied = True

<br />
Dim DA As SQLDataAdapter<br />
Dim DT As New DataTable   ' I forgot this line before<br />
 <br />
DA = New SqlDataAdapter(SQLcmd)<br />
DA.Fill(DT)<br />
 <br />
Gridview2.Datasource = DT<br />
 <br />

<script runat="server" >          
        
        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.
                sqlCmd.CommandText = "exec ProcedureName'" & TextBox2.Text & "' "
                
                '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.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
        
        
        </script>

<br />
Dim SQLconn As SqlConnection<br />
Dim DA As New SqlDataAdapter<br />
Dim DT As New DataTable<br />
<br />
  SQLconn = New SqlConnection(GetConnString())<br />
<br />
  DA.SelectCommand = New SqlCommand("EXEC z_select_test", SQLconn)<br />
<br />
  DA.Fill(DT)<br />
<br />
  Me.DataGridView1.DataSource = DT<br />