in my asp.net+vb+access web i am having a page in which i am counting and displying the numbers in text boxes/labels. it works fine.
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\Wing.mdb"
Dim con As OleDbConnection = New OleDbConnection(connectString)
con.Open()
Dim qstr, qstr1, qstr2, qstr3, qstr4, qstr5, qstr6 As String
qstr = "select count(*) from PersData where TypeOfEmp='MD'"
qstr1 = "select count(*) from PersData where TypeOfEmp='SL'"
qstr2 = "select count(*) from PersData where TypeOfEmp='CRI'"
qstr3 = "select count(*) from PersData where TypeOfEmp='HER'"
qstr4 = "select count(*) from PersData where TypeOfEmp='S1'"
qstr5 = "select count(*) from PersData where TypeOfEmp='S3'"
qstr6 = "select count(*) from PersData where TypeOfEmp='TRO'"
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 OleDb4 As New OleDbDataAdapter(qstr4, con)
Dim OleDb5 As New OleDbDataAdapter(qstr5, con)
Dim OleDb6 As New OleDbDataAdapter(qstr6, con)
Dim dt, dt1, dt2, dt3, dt4, dt5, dt6 As New DataSet
dt.Clear()
dt1.Clear()
dt2.Clear()
dt3.Clear()
dt4.Clear()
dt5.Clear()
dt6.Clear()
OleDb.Fill(dt, "PersData")
OleDb1.Fill(dt1, "PersData")
OleDb2.Fill(dt2, "PersData")
OleDb3.Fill(dt3, "PersData")
OleDb4.Fill(dt4, "PersData")
OleDb5.Fill(dt5, "PersData")
OleDb6.Fill(dt6, "PersData")
mdtxt1.Text = dt.Tables("PersData").Rows(0).Item(0)
critxt1.Text = dt2.Tables("PersData").Rows(0).Item(0)
her1txt.Text = dt3.Tables("PersData").Rows(0).Item(0)
s1txt1.Text = dt4.Tables("PersData").Rows(0).Item(0)
s3.Text = dt5.Tables("PersData").Rows(0).Item(0)
tro.Text = dt6.Tables("PersData").Rows(0).Item(0)
end sub
I am willing to add a chart for the same i tried fushion chart but the source iused in it is xml. how can i amend an existing xml file with the data above. my Data.xml file is as under
<chart caption='State of Colonels' subcaption=' ' xAxisName='Appointments ' yAxisName='Strength' numberPrefix=''>
<set label='md' value='91' color='00FF00' />
<set label='SL' value='21' color='FF0000' />
<set label='rit' value='26' color='00FF00' />
<set label='her' value='92' color='00FF00s' />
<set label='s1' value='15' color='FF0000' />
<set label='s3' value='15' color='FF0000' />
<set label='tro' value='10' color='FF0000' />
</chart>
i want to amend the value with the value of the text boxes that i had tried manually it works fine.