[Sajad]

السلام عليكم

اولا Datareader

PHP كود :

    Dim connString As String = ""
Dim myConn As New SqlConnection(connString)
Dim strQuery As String = "select col1, col2,... from tablename"
Dim myCommand As New SqlCommand(strQuery, myConn)
myConn.Open()
Dim myReaderAs SqlDataReader = myCommand.ExecuteReader()
While (myReader.Read())
MessageBox.Show(myReader("col1").ToString())
MessageBox.Show(myReader("col2").ToString())
End While
myReader.Close()
myConn.Close() 


ثانيا DataTable

PHP كود :

olecon = New OleDbConnection(constr)
            oleadp = New OleDbDataAdapter("select * from std", olecon)

            myset = New DataSet("Student")
            mytable = New DataTable()

            Try

                olecon.Open()
                oleadp.Fill(myset, "Student")
                mytable = myset.Tables("Student")


                dataGridView1.DataSource = mytable
            Catch ex As Exception

                MessageBox.Show(ex.Message)
            Finally
                olecon.Close()
            End Try
        End Sub

Private Sub Filling(p As Integer)
            id_txt.Text = mytable.Rows(p)("std_ID").ToString()
            name_txt.Text = TryCast(mytable.Rows(p)("std_Name"), String)
            age_txt.Text = TryCast(mytable.Rows(p)("std_Age"), String)
        End Sub 


ثالثا DataView

PHP كود :

Imports System.Data.SqlClient
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connetionString As String
        Dim connection As SqlConnection
        Dim command As SqlCommand
        Dim adapter As New SqlDataAdapter
        Dim ds As New DataSet
        Dim dv As DataView
        Dim sql As String
        connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"
        sql = "Select  * from product"
        connection = New SqlConnection(connetionString)
        Try
            connection.Open()
            command = New SqlCommand(sql, connection)
            adapter.SelectCommand = command
            adapter.Fill(ds, "Create DataView")
            adapter.Dispose()
            command.Dispose()
            connection.Close()

            dv = ds.Tables(0).DefaultView
            DataGridView1.DataSource = dv

        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class 


Sorting in dataview

PHP كود :

Imports System.Data.SqlClient
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connetionString As String
        Dim connection As SqlConnection
        Dim command As SqlCommand
        Dim adapter As New SqlDataAdapter
        Dim ds As New DataSet
        Dim dv As DataView
        Dim sql As String
        connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"
        sql = "Select  * from product"
        connection = New SqlConnection(connetionString)
        Try
            connection.Open()
            command = New SqlCommand(sql, connection)
            adapter.SelectCommand = command
            adapter.Fill(ds, "Sort DataView")
            adapter.Dispose()
            command.Dispose()
            connection.Close()

            dv = New DataView(ds.Tables(0), "Product_Price > 100", "Product_Price Desc", DataViewRowState.CurrentRows)
            DataGridView1.DataSource = dv

        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class 


Filtering

PHP كود :

Imports System.Data.SqlClient
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connetionString As String
        Dim connection As SqlConnection
        Dim command As SqlCommand
        Dim adapter As New SqlDataAdapter
        Dim ds As New DataSet
        Dim dv As DataView
        Dim sql As String
        connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"
        sql = "Select  * from product"
        connection = New SqlConnection(connetionString)
        Try
            connection.Open()
            command = New SqlCommand(sql, connection)
            adapter.SelectCommand = command
            adapter.Fill(ds, "Filter DataView")
            adapter.Dispose()
            command.Dispose()
            connection.Close()

            dv = New DataView(ds.Tables(0), "Product_Price < = 500", "Product_Name", DataViewRowState.CurrentRows)
            DataGridView1.DataSource = dv

        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class 


ملاحظة: امثلة الDataView منقولة

بالتوفيق ان شاءالله