.NET (Core and Framework)

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim con As New OleDb.OleDbConnection

        Dim dbProvider As String
        Dim dbSource As String

        Dim ds As New DataSet

        Dim tables As DataTableCollection = ds.Tables

        Dim source1 As New BindingSource()

        Dim da As New OleDb.OleDbDataAdapter

        Dim isFirstColumn As Boolean = True
        Dim author As String = ""
        Dim publisher As String = ""
        Dim yearpublished As String = ""
        Dim genre As String = ""


        Dim aa As String = authorList.Text

        Dim bb As String = publisherList.Text

        Dim cc As String = yearpublishedList.Text

        Dim dd As String = genreList.Text

        Dim astring As String = "SELECT * FROM books "

        If authorList.SelectedIndex > -1 Then
            If isFirstColumn Then
                author = "WHERE author = '" & aa & "' "
            Else
                author = "AND author = '" & aa & "' "
            End If
            isFirstColumn = False
        End If

        If publisherList.SelectedIndex > -1 Then
            If isFirstColumn Then
                publisher = "WHERE publisher = '" & bb & "' " '
            Else
                publisher = "AND publisher = '" & bb & "' "
            End If
            isFirstColumn = False
        End If

        If yearpublishedList.SelectedIndex > -1 Then
            If isFirstColumn Then
                yearpublished = "WHERE yearpublished = '" & cc & "' " '
            Else
                yearpublished = "AND yearpublished = '" & cc & "' "
            End If
            isFirstColumn = False
        End If

        If yearpublishedList.SelectedIndex > -1 Then
            If isFirstColumn Then
                genre = "WHERE genre = '" & dd & "' "
            Else
                genre = "AND genre = '" & dd & "' "
            End If
            isFirstColumn = False
        End If

        dbProvider = "PROVIDER=Microsoft.ACE.OLEDB.12.0;"

        dbSource = "Data Source = C:\Documents and Settings\james\Desktop\authors2.accdb"

        con.ConnectionString = dbProvider & dbSource

        con.Open()



        Dim sql As String = astring & author & publisher & yearpublished & genre

        da = New OleDb.OleDbDataAdapter(sql, con)



        da.Fill(ds, "books")



        Dim view1 As New DataView(tables(0))

        source1.DataSource = view1

        DataGridView1.DataSource = view1

        DataGridView1.Refresh()





<pre lang="vb"><pre lang="vb"><pre lang="vb">

Quote:

Framework:
If I say you to cut a paper of dimension 5m by 5m then surely you would do that. But then I ask you to cut 1000 paper of the same dimension. Then you won't do the measuring for 1000 times, obviously you would make a frame of 5m by 5m and then with the help of it you would be able to cut 1000 papers in less time. So, what you did is you made a framewok which would do that type of task. So, instead of performing same type of task again and again for same type of applications, what you do is you create a framework having all those facilities together in one nice packet and hence providing the abstraction for your application and more importantly many applications.