in my asp.net+vb web i am using this code to count and display the numbers.
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim connectString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\web\WingAMS.mdb"
Dim con As OleDbConnection = New OleDbConnection(connectString)
con.Open()
Dim qstr, qstr1, qstr2, qstr3 As String
qstr = "select count(*) from PersData where trade='Mech'"
qstr1 = "select count(*) from PersData where Trade='Tech'"
qstr2 = "select count(*) from PersData where Trade='Clerk'"
qstr3 = "select count(*) from PersData where Trade='Storeman'"
Dim OleDb As New OleDbDataAdapter(qstr, con)
Dim OleDb1 As New OleDbDataAdapter(qstr1, con)
Dim OleDb2 As New OleDbDataAdapter(qstr2, con)
Dim OleDb3 As New OleDbDataAdapter(qstr3, con)
Dim dt, dt1, dt2, dt3 As New DataSet
dt.Clear()
dt1.Clear()
dt2.Clear()
dt3.Clear()
OleDb.Fill(dt, "PersData")
OleDb1.Fill(dt1, "PersData")
OleDb2.Fill(dt2, "PersData")
OleDb3.Fill(dt3, "PersData")
lt1txt.Text = dt.Tables("PersData").Rows(0).Item(0)
m1txt.Text = dt1.Tables("PersData").Rows(0).Item(0)
b1txt.Text = dt2.Tables("PersData").Rows(0).Item(0)
l1.Text = dt3.Tables("PersData").Rows(0).Item(0)
lt.Text = Val( lt1txt.text) +Val(l1.Text) + Val(m1.Text) + Val(bb1.Text)
Is there any another procedure to do so that large number of counting can be done
