frmmain.vb

i wan tto down load some porject

'---------------------------------------
'Programmed by: Jomar I. Pabuaya
'Website: http://www.sourcecodester.com
'---------------------------------------

Imports System.Data.SqlClient
Imports System.Data.OleDb

Public Class frmMain
    Private Sub btnMSAccess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMSAccess.Click
        'Set up connection string
        Dim cnString As String

        txtStatus.Text = "Connecting to database using MS Access" & vbCrLf & vbCrLf

        cnString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=..\data\Northwind.mdb"

        Dim sqlQRY As String = "SELECT * FROM Customers WHERE City = 'London'"

        'Create connection
        Dim conn As OleDbConnection = New OleDbConnection(cnString)

        Try
            ' Open connection
            conn.Open()

            txtStatus.Text = txtStatus.Text & "Connection opened" & vbCrLf & vbCrLf

            'create data adapter
            Dim da As OleDbDataAdapter = New OleDbDataAdapter(sqlQRY, conn)

            'create dataset
            Dim ds As DataSet = New DataSet

            'fill dataset
            da.Fill(ds, "Customers")

            'get data table
            Dim dt As DataTable = ds.Tables("Customers")

            'display data
            Dim row As DataRow

            For Each row In dt.Rows
                txtStatus.Text = txtStatus.Text & row("CompanyName") & vbCrLf
            Next row
        Catch ex As SqlException
            txtStatus.Text = "Error: " & ex.ToString & vbCrLf
        Finally
            ' Close connection
            conn.Close()
            txtStatus.Text = txtStatus.Text & vbCrLf & "Connection closed."
        End Try
    End Sub

    Private Sub btnSQLServer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSQLServer.Click
        'Set up connection string
        Dim cnString As String

        txtStatus.Text = "Connecting to database using SQL Server" & vbCrLf & vbCrLf

        cnString = "Data Source=localhost;Integrated Security=True;database=northwind"

        Dim sqlQRY As String = "SELECT * FROM Customers WHERE City = 'London'"

        'Create connection
        Dim conn As SqlConnection = New SqlConnection(cnString)

        Try
            ' Open connection
            conn.Open()

            txtStatus.Text = txtStatus.Text & "Connection opened" & vbCrLf & vbCrLf

            'create data adapter
            Dim da As SqlDataAdapter = New SqlDataAdapter(sqlQRY, conn)

            'create dataset
            Dim ds As DataSet = New DataSet

            'fill dataset
            da.Fill(ds, "Customers")

            'get data table
            Dim dt As DataTable = ds.Tables("Customers")

            'display data
            Dim row As DataRow

            For Each row In dt.Rows
                txtStatus.Text = txtStatus.Text & row("CompanyName") & vbCrLf
            Next row
        Catch ex As SqlException
            txtStatus.Text = "Error: " & ex.ToString & vbCrLf
        Finally
            ' Close connection
            conn.Close()
            txtStatus.Text = txtStatus.Text & vbCrLf & "Connection closed."
        End Try
    End Sub
End Class