Dynamic world

                          ASP.NET

Partial Public Class _Default

    Inherits System.Web.UI.Page

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

        Dim cn As New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=d:\dd.mdb")

        cn.Open()

        Dim da As New OleDb.OleDbDataAdapter

        Dim ds As New DataSet

        Dim s As String

        s = "select * from data"

        da = New OleDb.OleDbDataAdapter(s, cn)

        da.Fill(ds, "dd")

        Dim i, max As Integer

        max = ds.Tables("dd").Rows.Count

        Dim flag As Boolean = False

        For i = 0 To max - 1 Step 1

            If (TextBox1.Text = ds.Tables("dd").Rows(i).Item(0)) Then

                TextBox2.Text = ds.Tables("dd").Rows(i).Item(1)

                Flag = True

            End If

        Next

        If flag = False Then

            Response.Write("Not found")

        End If

        'TextBox1.Text = ds.Tables("dd").Rows(0).Item(0)

        'TextBox2.Text = ds.Tables("dd").Rows(0).Item(1)

    End Sub

End Class

Partial Public Class _Default

    Inherits System.Web.UI.Page

    Dim con As New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=d:\school.mdb")

    Dim da As OleDb.OleDbDataAdapter

    Dim ds As New DataSet

    Dim dc As New OleDb.OleDbCommandBuilder

    Shared maxrcord, inc As Integer

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

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

        Try

            con.Open()

            Response.Write("connection opened")

            Dim sql As String

            sql = "select * from data"

            da = New OleDb.OleDbDataAdapter(sql, con)

            da.Fill(ds, "school")

            TextBox1.Text = ds.Tables("school").Rows(0).Item(1)

            TextBox2.Text = ds.Tables("school").Rows(0).Item(2)

            TextBox3.Text = ds.Tables("school").Rows(0).Item(3)

        Catch ex As Exception

            Response.Write(ex.Message)

        End Try

    End Sub

    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click

        Try

            ds.Tables("school").Rows(inc).Item(1) = TextBox1.Text

            ds.Tables("school").Rows(inc).Item(2) = TextBox2.Text

            ds.Tables("school").Rows(inc).Item(3) = TextBox3.Text

            Dim cb As New OleDb.OleDbCommandBuilder(da)

            da.Update(ds, "school")

            Response.Write("Data updated")

        Catch ex As Exception

            Response.Write(ex.Message)

        End Try

    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click

        inc = -1

        Dim sql As String

        con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = d:\school.mdb"

        con.Open()

        sql = "select * from data"

        da = New OleDb.OleDbDataAdapter(sql, con)

        da.Fill(ds, "school")

        maxrcord = ds.Tables("school").Rows.Count

        Response.Write(maxrcord)

        'MsgBox(maxrecord)

    End Sub

End Class

Partial Public Class _Default

    Inherits System.Web.UI.Page

    Dim con As New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=d:\school.mdb")

    Dim da As OleDb.OleDbDataAdapter

    Dim ds As New DataSet

    Dim dc As New OleDb.OleDbCommandBuilder

    Shared maxrcord, inc As Integer

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

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

        Try

            con.Open()

            Response.Write("connection opened")

            Dim sql As String

            sql = "select * from data"

            da = New OleDb.OleDbDataAdapter(sql, con)

            da.Fill(ds, "school")

            TextBox1.Text = ds.Tables("school").Rows(0).Item(1)

            TextBox2.Text = ds.Tables("school").Rows(0).Item(2)

            TextBox3.Text = ds.Tables("school").Rows(0).Item(3)

        Catch ex As Exception

            Response.Write(ex.Message)

        End Try

    End Sub

    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click

        Try

            ds.Tables("school").Rows(inc).Item(1) = TextBox1.Text

            ds.Tables("school").Rows(inc).Item(2) = TextBox2.Text

            ds.Tables("school").Rows(inc).Item(3) = TextBox3.Text

            Dim cb As New OleDb.OleDbCommandBuilder(da)

            da.Update(ds, "school")

            Response.Write("Data updated")

        Catch ex As Exception

            Response.Write(ex.Message)

        End Try

    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click

        inc = -1

        Dim sql As String

        con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = d:\school.mdb"

        con.Open()

        sql = "select * from data"

        da = New OleDb.OleDbDataAdapter(sql, con)

        da.Fill(ds, "school")

        maxrcord = ds.Tables("school").Rows.Count

        Response.Write(maxrcord)

        'MsgBox(maxrecord)

    End Sub

    Protected Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.Click

        con.Open()

        Dim i, m As Integer

        da = New OleDb.OleDbDataAdapter("select * from data", con)

        da.Fill(ds, "school")

        m = ds.Tables("school").Rows.Count

        m = m - 1

        For i = 0 To m Step 1

            'TextBox7.Text += ds.Tables("school").Rows(i).Item(1) + ds.Tables("school").Rows(i).Item(2)

            TextBox7.Text += ds.Tables("school").Rows(i).Item(1) + ds.Tables("school").Rows(i).Item(2)

        Next

    End Sub

End Class