4 Replies - 533 Views - Last Post: 29 June 2013 - 06:18 AM Rate Topic: -----

#1 786_student  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 20
  • Joined: 29-June 13

IndexOutOfRangeException Was Unhandled

Posted 29 June 2013 - 05:54 AM

Hi..

We are getting this error : 'IndexOutOfRangeException was unhandled' in the highlighted part of the code although we have required column. Please help !

Thank You!



Imports System.Data.OleDb
Partial Public Class update
    Inherits System.Web.UI.Page
    Protected con As OleDbConnection
    Protected con1 As OleDbConnection
    Protected con2 As OleDbConnection


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

        Label2.Text = Date.Now.Month
        Label3.Text = Date.Now.Year

        month()
        Panel5.Visible = False



    End Sub
    Sub month()
        If Label2.Text = "6" Then
            Label2.Text = "June"
        ElseIf Label2.Text = "1" Then
            Label2.Text = "January"
        ElseIf Label2.Text = "2" Then
            Label2.Text = "February"
        ElseIf Label2.Text = "3" Then
            Label2.Text = "March"
        ElseIf Label2.Text = "4" Then
            Label2.Text = "April"
        ElseIf Label2.Text = "5" Then
            Label2.Text = "May"
        ElseIf Label2.Text = "7" Then
            Label2.Text = "July"
        ElseIf Label2.Text = "8" Then
            Label2.Text = "August"
        ElseIf Label2.Text = "9" Then
            Label2.Text = "September"
        ElseIf Label2.Text = "10" Then
            Label2.Text = "October"
        ElseIf Label2.Text = "11" Then
            Label2.Text = "November"
        ElseIf Label2.Text = "12" Then
            Label2.Text = "December"
        End If
    End Sub
    Sub month1()
        If Label2.Text = "6" Then
            Label2.Text = "June"
        ElseIf Label2.Text = "1" Then
            Label2.Text = "January"
        ElseIf Label2.Text = "2" Then
            Label2.Text = "February"
        ElseIf Label2.Text = "3" Then
            Label2.Text = "March"
        ElseIf Label2.Text = "4" Then
            Label2.Text = "April"
        ElseIf Label2.Text = "5" Then
            Label2.Text = "May"
        ElseIf Label2.Text = "7" Then
            Label2.Text = "July"
        ElseIf Label2.Text = "8" Then
            Label2.Text = "August"
        ElseIf Label2.Text = "9" Then
            Label2.Text = "September"
        ElseIf Label2.Text = "10" Then
            Label2.Text = "October"
        ElseIf Label2.Text = "11" Then
            Label2.Text = "November"
        ElseIf Label2.Text = "12" Then
            Label2.Text = "December"
        End If
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Dim total As New getdeduction1
        total.a = TextBox10.Text
        total.b = TextBox11.Text
        total.c = TextBox12.Text
        total.e = TextBox14.Text
        total.f = TextBox15.Text
        total.g = TextBox16.Text
        total.h = TextBox17.Text
        total.i = TextBox18.Text
        total.j = TextBox19.Text
        total.k = TextBox20.Text
        total.l = TextBox21.Text
        total.m = TextBox22.Text
        total.n = TextBox9.Text
        total.o = TextBox34.Text
        TextBox24.Text = total.gettotal
        mynetsalary()
        mynetsalary1()

        Panel5.Visible = True
        TextBox38.Text = Date.Now.Year
        DropDownList1.SelectedIndex = Date.Now.Month

        Try


            Dim str As String
            Dim cmd As OleDbCommand
            con = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\\sal1.mdb")
            con.Open()

            'str = "update employee set EPS = '" + TextBox28.Text + "',PFC = '" + TextBox29.Text + "',pension = '" + TextBox37.Text + "',emp_name = '" + TextBox30.Text + "',desig='" + TextBox2.Text + "',TotalPay='" + TextBox4.Text + "',salary = '" + TextBox1.Text + "',basic='" + TextBox5.Text + "',da='" + TextBox6.Text + "',allowance='" + TextBox7.Text + "',medical='" + TextBox8.Text + "',pfd='" + TextBox9.Text + "',pfln='" + TextBox10.Text + "',stfln='" + TextBox11.Text + "',frln='" + TextBox12.Text + "',lfee='" + TextBox14.Text + "',elec='" + TextBox15.Text + "',mtrnt='" + TextBox16.Text + "',tcch='" + TextBox17.Text + "',ctv='" + TextBox18.Text + "',lip='" + TextBox19.Text + "',itax='" + TextBox20.Text + "',bicc='" + TextBox21.Text + "',rst='" + TextBox22.Text + "',netsalary='" + TextBox32.Text + "',ttldn='" + TextBox24.Text + "', BITS = '" + TextBox34.Text + "',month='march',Year = ' 2012 ' where bank_acno='" + Label5.Text+ "'"

            str = "update employee set EPS = '" + TextBox28.Text + "',PFC = '" + TextBox29.Text + "',pension = '" + TextBox37.Text + "',emp_name = '" + TextBox30.Text + "',desig='" + TextBox2.Text + "',TotalPay='" + TextBox4.Text + "',Salary='" + TextBox1.Text + "',basic='" + TextBox5.Text + "',da='" + TextBox6.Text + "',allowance='" + TextBox7.Text + "',medical='" + TextBox8.Text + "',pfd='" + TextBox9.Text + "',pfln='" + TextBox10.Text + "',stfln='" + TextBox11.Text + "',frln='" + TextBox12.Text + "',lfee='" + TextBox14.Text + "',elec='" + TextBox15.Text + "',mtrnt='" + TextBox16.Text + "',tcch='" + TextBox17.Text + "',ctv='" + TextBox18.Text + "',lip='" + TextBox19.Text + "',itax='" + TextBox20.Text + "',bicc='" + TextBox21.Text + "',rst='" + TextBox22.Text + "',netsalary='" + TextBox32.Text + "',ttldn='" + TextBox24.Text + "',month1='" + DropDownList1.SelectedValue + "',year1 = '" + TextBox38.Text + "', BITS = '" + TextBox34.Text + "',empid = '" + TextBox36.Text + "' where bank_acno='" + Label5.Text + "'"
            cmd = New OleDbCommand(str, con)
            cmd.ExecuteNonQuery()
            Response.Write("<script>alert('DATA UPDATED SUCCESSFULLY'); window.location.href='update.aspx'</script>")
            'Label4.Text = "DATA UPDATED SUCCESSFULLY"
            con.Close()
            UpdateSetDeduction1()
        Catch ex As Exception
            Response.Write("<script>alert('Error..!!'); window.location.href='update.aspx'</script>")
        End Try
    End Sub
    Sub getSalary()
        Dim total As New getpayment1
        total.p = TextBox5.Text
        total.q = TextBox6.Text
        TextBox1.Text = total.gettotal
    End Sub
    Sub mynetsalary()
        Dim mytotalpay As New getdeduction1
        mytotalpay.a = TextBox7.Text
        mytotalpay.b = TextBox8.Text
        mytotalpay.d = TextBox1.Text
        mytotalpay.e = TextBox24.Text
        mytotalpay.f = TextBox37.Text
        TextBox4.Text = mytotalpay.totalpay
    End Sub
    Sub mynetsalary1()
        Dim a, b, c As Integer
        a = TextBox1.Text
        b = TextBox24.Text
        c = a - b
        TextBox32.Text = c

    End Sub
    Sub mynetsalary2()
        Dim newtotal As New getnetsalary1
        newtotal.u = TextBox1.Text
        newtotal.v = TextBox24.Text
        TextBox32.Text = newtotal.getminus
    End Sub

   
    Sub UpdateSetDeduction1()
        Try


            Dim str As String
            Dim cmd As OleDbCommand
            con = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\\sal1.mdb")
            con.Open()
            str = "update Setdeduction set DA='" + TextBox13.Text + "',PFD = '" + TextBox25.Text + "',EPS = '" + TextBox26.Text + "', PFC='" + TextBox27.Text + "' where Bank_acno = '" + Label5.Text + "'"
            cmd = New OleDbCommand(str, con)
            cmd.ExecuteNonQuery()

            con.Close()
        Catch ex As Exception
            Response.Write("<script>alert('Error..!!'); window.location.href='update.aspx'</script>")
        End Try
    End Sub

    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
        TextBox33.Text = ""
        clear()
    End Sub
    Sub clear()
        TextBox1.Text = ""
        TextBox2.Text = ""
        Label5.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
        TextBox9.Text = ""
        TextBox10.Text = ""
        TextBox11.Text = ""
        TextBox12.Text = ""
        TextBox14.Text = ""
        TextBox15.Text = ""
        TextBox16.Text = ""
        TextBox17.Text = ""
        TextBox18.Text = ""
        TextBox19.Text = ""
        TextBox20.Text = ""
        TextBox21.Text = ""
        TextBox22.Text = ""
        TextBox24.Text = ""
        TextBox30.Text = ""
        TextBox32.Text = ""
        TextBox28.Text = ""
        TextBox29.Text = ""
        TextBox34.Text = ""

        TextBox36.Text = ""
        Label4.Text = ""
    End Sub
    Protected Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.TextChanged

    End Sub

    Protected Sub TextBox33_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox33.TextChanged
        Try


            If TextBox33.Text = "" Then

                Response.Write("<script>alert('please dont leave the fields empty'); window.location.href='update.aspx'</script>")

            Else
                clear()
                Dim flag As Integer = 0
                Dim str As String
                Dim cmd As OleDbCommand
                Dim dtr As OleDbDataReader
                con = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\\sal1.mdb")
                con.Open()
                str = "select * from employee where sno = " + TextBox33.Text + ""
                cmd = New OleDbCommand(str, con)
                dtr = cmd.ExecuteReader
                While dtr.Read
                    If dtr(0).ToString() = "" Then
                        Label5.Text = ""
                        TextBox30.Text = ""
                        TextBox2.Text = ""
                        TextBox5.Text = ""
                        TextBox6.Text = ""
                        TextBox1.Text = ""
                        TextBox9.Text = ""
                        TextBox28.Text = ""
                        TextBox29.Text = ""
                        TextBox10.Text = ""
                        TextBox12.Text = ""
                        TextBox11.Text = ""
                        TextBox14.Text = ""
                        TextBox17.Text = ""
                        TextBox16.Text = ""
                        TextBox15.Text = ""
                        TextBox20.Text = ""
                        TextBox19.Text = ""
                        TextBox18.Text = ""
                        TextBox21.Text = ""
                        TextBox22.Text = ""
                        TextBox24.Text = ""
                        TextBox32.Text = ""

                        TextBox7.Text = ""
                        TextBox37.Text = ""
                        TextBox4.Text = ""
                        TextBox8.Text = ""
                        TextBox36.Text = ""
                        flag = 1
                    Else
                        Label5.Text = dtr(1)
                        TextBox30.Text = dtr(2)
                        TextBox2.Text = dtr(3)
                        TextBox5.Text = dtr(6)
                        TextBox6.Text = dtr(7)
                        TextBox1.Text = dtr(8)
                        TextBox9.Text = dtr(9)
                        TextBox28.Text = dtr(10)
                        TextBox29.Text = dtr(11)
                        TextBox10.Text = dtr(12)
                        TextBox12.Text = dtr(13)
                        TextBox11.Text = dtr(14)
                        TextBox14.Text = dtr(15)
                        TextBox17.Text = dtr(16)
                        TextBox16.Text = dtr(17)
                        TextBox15.Text = "0"
                        TextBox20.Text = dtr(20)
                        TextBox19.Text = dtr(21)
                        TextBox18.Text = dtr(22)
                        TextBox21.Text = dtr(23)
                        TextBox22.Text = dtr(24)
                        TextBox24.Text = dtr(25)
                        TextBox32.Text = dtr(26)

                        TextBox7.Text = dtr(28)
                        TextBox37.Text = dtr(29)
                        TextBox4.Text = dtr(30)
                        TextBox8.Text = "0"
                        TextBox34.Text = dtr(19)
                        TextBox36.Text = dtr(31)

                        flag = 1
                    End If

                End While
                dtr.Close()
                con.Close()
               

                getthings()
                newda()
                getSalary()
                mynetsalary2()
                mynetsalary()
                'getIR()
                mypfd()
                neweps()
                pfc()
                'newpfc()
                pfc0()


            End If
        Catch ex As Exception
            Response.Write("<script>alert('No Records found'); window.location.href='Update.aspx'</script>")
        End Try
        [b]Dim str1 As String
        Dim cmd1 As OleDbCommand
        Dim dtr1 As OleDbDataReader
        con2 = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\\sal1.mdb")
        con2.Open()
        str1 = "select PFD from SetDeduction where srno = " + TextBox33.Text + ""
        cmd1 = New OleDbCommand(str1, con2)
        dtr1 = cmd1.ExecuteReader
        While dtr1.Read
            Label6.Text = [color="#FF0000"]dtr1(2)[/color]
        End While
        dtr1.Close()
        con2.Close()[/b]
    End Sub

    Protected Sub TextBox5_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox5.TextChanged
        Try


            Dim myda As New getnetsalary1
            myda.u = TextBox5.Text
            myda.v = TextBox13.Text
            TextBox6.Text = myda.getda
            getSalary()
            If TextBox24.Text = "" Then
                Label4.Text = "Click on Deduction to get Net Salary!"
            End If
            Dim eps As New getnetsalary1
            eps.u = TextBox1.Text
            eps.v = TextBox26.Text
            TextBox28.Text = eps.geteps
            'getIR()
            mypfd()
            pfc1()
            pfc()
            pfc0()
        Catch ex As Exception
            Response.Write("<script>alert('Error..!!'); window.location.href='update.aspx'</script>")
        End Try
    End Sub
    Sub neweps()
        Dim eps As New getnetsalary1
        eps.u = TextBox1.Text
        eps.v = TextBox26.Text
        TextBox28.Text = eps.geteps
    End Sub
    Sub pfc0()
        If TextBox27.Text = 0 Then
            TextBox29.Text = 0
        Else
            newpfc()
        End If
    End Sub
    Sub newpfc()
        Dim eps1 As New getnetsalary1
        eps1.u = 0.12 * TextBox1.Text
        eps1.v = TextBox28.Text
        TextBox29.Text = eps1.getminus
    End Sub
    Sub newda()
        Dim myda As New getnetsalary1
        myda.u = TextBox5.Text

        myda.v = TextBox13.Text

        TextBox6.Text = myda.getda

    End Sub
    Sub mypfd()
        Dim getpfd As New getnetsalary1
        getpfd.u = TextBox1.Text
        getpfd.v = TextBox25.Text
        TextBox9.Text = getpfd.pfd
    End Sub


    Sub pfc()
        If TextBox28.Text > 541 Then
            TextBox28.Text = "541"
        End If
    End Sub
    Sub pfc1()
        If TextBox28.Text > 541 Then
            Dim a As Integer
            Dim b As Integer
            a = TextBox28.Text - 541
            b = TextBox29.Text
            TextBox29.Text = a + b
        End If
    End Sub





    Sub getthings()
        Dim str As String
        Dim cmd As OleDbCommand
        con = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\\sal1.mdb")
        con.Open()
        str = "Select da,medical,pfd,eps,pfc from setdeduction where bank_acno = '" + Label5.Text + "'"
        cmd = New OleDbCommand(str, con)
        Dim dtr As OleDbDataReader
        dtr = cmd.ExecuteReader
        While dtr.Read
            TextBox13.Text = dtr(0)
            TextBox23.Text = dtr(1)
            TextBox25.Text = dtr(2)
            TextBox26.Text = dtr(3)
            TextBox27.Text = dtr(4)
        End While
        dtr.Close()
        con.Close()
    End Sub
    Sub UpdateSetDeduction()
        Try


            Dim str As String
            Dim cmd As OleDbCommand
            con = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\\sal1.mdb")
            con.Open()
            str = "Update Setdeduction set pfd='" + TextBox25.Text + "',da='" + TextBox13.Text + "',medical='" + TextBox23.Text + "',pfc='" + TextBox27.Text + "',eps='" + TextBox26.Text + "' where bank_acno = '" + Label5.Text + "' "
            cmd = New OleDbCommand(str, con)
            cmd.ExecuteNonQuery()
            con.Close()
        Catch ex As Exception
            Response.Write("<script>alert('Error..!!'); window.location.href='update.aspx'</script>")
        End Try
    End Sub

    Protected Sub TextBox8_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox8.TextChanged

    End Sub

    Protected Sub TextBox25_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox25.TextChanged
        mypfd()
    End Sub

    Protected Sub TextBox13_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox13.TextChanged
        Try


            Dim myda As New getnetsalary1
            myda.u = TextBox5.Text
            myda.v = TextBox13.Text
            TextBox6.Text = myda.getda
            Dim total As New getpayment1
            total.p = TextBox5.Text
            total.q = TextBox6.Text
            TextBox1.Text = total.gettotal
            Dim newtotal As New getnetsalary1
            newtotal.u = TextBox1.Text
            newtotal.v = TextBox24.Text
            TextBox32.Text = newtotal.getminus
            Dim mytotalpay As New getdeduction1
            mytotalpay.a = TextBox7.Text
            mytotalpay.b = TextBox8.Text
            mytotalpay.d = TextBox1.Text
            mytotalpay.e = TextBox24.Text
            mytotalpay.f = TextBox37.Text
            TextBox4.Text = mytotalpay.totalpay
            Dim getpfd As New getnetsalary1
            getpfd.u = TextBox1.Text
            getpfd.v = TextBox25.Text
            TextBox9.Text = getpfd.pfd
            Dim eps As New getnetsalary1
            eps.u = TextBox1.Text
            eps.v = TextBox26.Text
            TextBox28.Text = eps.geteps
            If TextBox28.Text > 541 Then
                TextBox28.Text = "541"
            End If
        Catch ex As Exception

            Response.Write("<script>alert('Error..!!'); window.location.href='update.aspx'</script>")

        End Try
    End Sub

    Protected Sub TextBox26_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox26.TextChanged
        Try

            Dim eps As New getnetsalary1
            eps.u = TextBox1.Text
            eps.v = TextBox26.Text
            TextBox28.Text = eps.geteps
            pfc()
            newpfc()
        Catch ex As Exception

            Response.Write("<script>alert('Error..!!'); window.location.href='update.aspx'</script>")

        End Try
    End Sub

    Protected Sub TextBox31_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox31.TextChanged
        Try


            Dim mymedi As New getnetsalary1
            mymedi.u = TextBox31.Text
            mymedi.v = TextBox23.Text
            TextBox8.Text = mymedi.getda
        Catch ex As Exception
            Response.Write("<script>alert('Error..!!'); window.location.href='update.aspx'</script>")
        End Try
    End Sub
End Class
Public Class getdeduction1
    Public a As Integer
    Public b As Integer
    Public c As Integer
    Public d As Integer
    Public e As Integer
    Public f As Integer
    Public g As Integer
    Public h As Integer
    Public i As Integer
    Public j As Integer
    Public k As Integer
    Public l As Integer
    Public m As Integer
    Public n As Integer
    Public o As Integer = 0

    Function gettotal()
        Return a + b + c + d + e + f + g + h + i + j + k + l + m + n + o
    End Function
    Function totalpay()
        Return a + b + (d - e) + f
    End Function
End Class
Public Class getpayment1
    Public p As Integer
    Public q As Integer
    Function gettotal()
        Return p + q
    End Function
End Class
Public Class getnetsalary1
    Public u As Integer
    Public v As Double
    Public a As Integer
    Public b As Integer
    Public c As Integer

    Function getminus()
        Return u - v
    End Function
    Function getda()
        a = (u * (v / 100)) + 0.01
        Return a
    End Function
    Function pfd()
        b = u * v / 100
        Return b
    End Function
    Function geteps()
        c = (u * (v / 100)) + 0.01
        Return c
    End Function
    Function eps()
        Return v + c
    End Function

End Class



Is This A Good Question/Topic? 0
  • +

Replies To: IndexOutOfRangeException Was Unhandled

#2 786_student  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 20
  • Joined: 29-June 13

Re: IndexOutOfRangeException Was Unhandled

Posted 29 June 2013 - 06:03 AM

Hi..it shows the error at this place.. : Label6.Text = dtr1(2)
Thank You!


Dim str1 As String
        Dim cmd1 As OleDbCommand
        Dim dtr1 As OleDbDataReader
        con2 = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\\sal1.mdb")
        con2.Open()
        str1 = "select PFD from SetDeduction where srno = " + TextBox33.Text + ""
        cmd1 = New OleDbCommand(str1, con2)
        dtr1 = cmd1.ExecuteReader
        While dtr1.Read
            Label6.Text = dtr1(2)
        End While
        dtr1.Close()
        con2.Close()


Was This Post Helpful? 0
  • +
  • -

#3 vks.gautam1  Icon User is offline

  • D.I.C Regular

Reputation: 17
  • View blog
  • Posts: 317
  • Joined: 21-March 08

Re: IndexOutOfRangeException Was Unhandled

Posted 29 June 2013 - 06:09 AM

View Post786_student, on 29 June 2013 - 06:03 AM, said:

Hi..it shows the error at this place.. : Label6.Text = dtr1(2)
Thank You!


Dim str1 As String
        Dim cmd1 As OleDbCommand
        Dim dtr1 As OleDbDataReader
        con2 = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\\sal1.mdb")
        con2.Open()
        str1 = "select PFD from SetDeduction where srno = " + TextBox33.Text + ""
        cmd1 = New OleDbCommand(str1, con2)
        dtr1 = cmd1.ExecuteReader
        While dtr1.Read
            Label6.Text = dtr1(2)
        End While
        dtr1.Close()
        con2.Close()


as u r retreiving only one item .so index should be 0. or u can write the name of column
like
While dtr1.Read

          Label6.Text = dtr1("PFD")

        End While


or use this
While dtr1.Read

          Label6.Text = dtr1(0)

        End While


Was This Post Helpful? 0
  • +
  • -

#4 786_student  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 20
  • Joined: 29-June 13

Re: IndexOutOfRangeException Was Unhandled

Posted 29 June 2013 - 06:15 AM

Hey..thanks a lot !! It worked !
Was This Post Helpful? 0
  • +
  • -

#5 vks.gautam1  Icon User is offline

  • D.I.C Regular

Reputation: 17
  • View blog
  • Posts: 317
  • Joined: 21-March 08

Re: IndexOutOfRangeException Was Unhandled

Posted 29 June 2013 - 06:18 AM

View Post786_student, on 29 June 2013 - 06:15 AM, said:

Hey..thanks a lot !! It worked !

you are welcome ..one more suggestion for you use. Parametrised query ok.that is best way of doing things.
try this if you find any problem we will help you
http://social.msdn.m...base-with-vbnet
Was This Post Helpful? 0
  • +
  • -

Page 1 of 1