Partial Public Class _Default
Inherits System.Web.UI.Page
Dim con As New
OleDb.OleDbConnection("provider=microso
ft.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=microso
ft.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