An unhandled exception of type 'System.Data.SqlClient.SqlException' occurred in syste

lily86

i'm very new so i hope all of u can help me. when i debug my webforms this error occur "An unhandled exception of type 'System.Data.SqlClient.SqlException' occurred in system.data.dll
Additional information: System error." pls help me solve the problem...thanks..

my code:

Expand|Select|Wrap|Line Numbers

 Imports System.Data.SqlClient

Imports System.Data.OleDb

Imports System.Globalization

Imports System.Threading
 
Public Class PhoneBook

    Inherits System.Windows.Forms.Form
 
    Private lsFORMTEXT As String

    Private lsFINDNAME1, lsFINDNAME2 As String

    Private lsMODE1 As String

    Private lsCONSTRSIM, lsCONSTRCSV As String

    Private lsUSRCODE As String

    Private lsSQL As String

    Private oBUTTON As Object

    Private oMENU As Object

    Private liBUTTON As Integer

    Private liMENU As Integer
 
    Private lsSQLSTR As String

    Private lsSQLCON As SqlConnection
 
    Private lsSQLCMD1 As SqlCommand

    Private lsSQLCBL1 As SqlCommandBuilder

    Private lsDA1 As SqlDataAdapter

    Private lsDS1 As DataSet

    Private lsDT1 As DataTable

    Private lsDR As DataRow
 
    Private lsTABLE1 As String = "PhoneBook"

    Private lsKEY As String = "Name"
 
    Private cls1 As New clsCon
 
    Private liLOOP1 As Integer

    Private liCR As Integer

    Private liANS As Integer
 
    Private lsTEXTBOX(2) As TextBox

    Private lsTEXTBOXNUMBER(0) As TextBox

    Private lsTEXTBOXINT(2) As TextBox

    Private lsCOMBOBOX(1) As ComboBox
 
    Private cTEXTBOX(2) As String

    Private cTEXTBOXNUMBER(0) As String

    Private cTEXTBOXINT(2) As String

    Private cCOMBOBOX(1) As String
 
    Private liTEXTBOX As Integer = 2

    Private liTEXTBOXNUMBER As Integer = 0

    Private liTEXTBOXINT As Integer = 2

    Private liCOMBOBOX As Integer = 1
 
    Private lsBUTTON(0) As Object

    Private lsMENU(0) As Object
 
    Private Sub PhoneBook_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        lsCONSTRCSV = cls1.SetupText()

        Me.Text = lsFORMTEXT

        lbl_gsmode1.Text = lsMODE1

        lsMODE1 = "VIEW"

        IniObject()

        DataPopulate()

        DataBindClear()

        DataBind()

        DataDisplay()

    End Sub
 
    Private Sub IniObject()

        lsTEXTBOX(1) = txt_Name

        lsTEXTBOX(2) = txt_Address

        lsTEXTBOXINT(1) = txt_Phone

        lsTEXTBOXINT(2) = txt_Code

        lsCOMBOBOX(1) = cbo_State
 
        cTEXTBOX(1) = "Name"

        cTEXTBOX(2) = "Address"

        cTEXTBOXINT(1) = "PhoneNumber"

        cTEXTBOXINT(2) = "PostalCode"

        cCOMBOBOX(1) = "State"
 
    End Sub
 
    Private Sub DataPopulate()

        lsSQLSTR = "SELECT * FROM" & lsTABLE1 & "ORDER BY " & lsKEY

        lsSQLCON = New SqlConnection(lsCONSTRCSV)

        Dim lsSQLCMD1 As New SqlCommand(lsSQLSTR, lsSQLCON)

        lsDA1 = New SqlDataAdapter(lsSQLCMD1)

        Dim lsSQLCMB1 As New SqlCommandBuilder(lsDA1)

        lsSQLCMB1.GetUpdateCommand()  -->'error at here'
 
        lsDS1 = New DataSet

        lsDT1 = New DataTable

        lsDA1.Fill(lsDS1, lsTABLE1)

        lsDT1 = lsDS1.Tables(0)

        lsDT1.DefaultView.Sort = lsKEY

    End Sub
 
    Private Sub DataBindClear()

        cls1.Get_DataBindClear(liTEXTBOX, lsTEXTBOX, cTEXTBOX, liTEXTBOXNUMBER, lsTEXTBOXNUMBER, cTEXTBOXNUMBER, liTEXTBOXINT, lsTEXTBOXINT, cTEXTBOXINT, liCOMBOBOX, lsCOMBOBOX, cCOMBOBOX)

    End Sub
 
    Private Sub DataBind()

        cls1.Get_DataBind(liTEXTBOX, lsTEXTBOX, cTEXTBOX, liTEXTBOXNUMBER, lsTEXTBOXNUMBER, cTEXTBOXNUMBER, liTEXTBOXINT, lsTEXTBOXINT, cTEXTBOXINT, liCOMBOBOX, lsCOMBOBOX, cCOMBOBOX, lsDT1)

    End Sub
 
    Private Sub DataClear()

        cls1.Get_DataClear(liTEXTBOX, lsTEXTBOX, cTEXTBOX, liTEXTBOXNUMBER, lsTEXTBOXNUMBER, cTEXTBOXNUMBER, liTEXTBOXINT, lsTEXTBOXINT, cTEXTBOXINT, liCOMBOBOX, lsCOMBOBOX, cCOMBOBOX)

    End Sub
 
    Private Sub DataDisplay()

        cls1.Get_DataDisplay(liTEXTBOX, lsTEXTBOX, cTEXTBOX, liTEXTBOXNUMBER, lsTEXTBOXNUMBER, cTEXTBOXNUMBER, liTEXTBOXINT, lsTEXTBOXINT, cTEXTBOXINT, liCOMBOBOX, lsCOMBOBOX, cCOMBOBOX, lsMODE1)

        lsTEXTBOX(1).Enabled = IIf(lsMODE1 = "VIEW" Or lsMODE1 = "MODIFY", False, True)

    End Sub
 
    Private Sub btn_back_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_back.Click

        If Me.BindingContext(lsDT1).Position <> 0 Then

            Me.BindingContext(lsDT1).Position -= 1

        End If

    End Sub
 
    Private Sub btn_next_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_next.Click

        If Me.BindingContext(lsDT1).Position < lsDT1.Rows.Count - 1 Then

            Me.BindingContext(lsDT1).Position += 1

        End If

    End Sub
 
    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu_File_Close.Click

        Me.Close()

    End Sub
 
    Private Sub btn_Find_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Find.Click

        Try

            Dim lsHT(1) As Object

            Dim lsDT1c As New DataTable

            lsHT(0) = "1"

            lsHT(1) = Trim("Name") & "01001"

            lsDT1c = lsDT1.Copy
 
            Dim frmFind As New foFIND(lsDT1c, lsHT, lsFINDNAME1)

            lsFINDNAME1 = lsTEXTBOX(1).Text

            frmFind.ShowDialog()

            lsFINDNAME1 = cls1.FindPro

            If Len(Trim(lsFINDNAME1)) > 0 Then

                Dim lsFINDKEY(1) As Object

                lsFINDKEY(0) = "1"

                lsFINDKEY(1) = Trim(lsFINDNAME1)

                liCR = cls1.GetRecordPosition(lsDT1, lsKEY, lsFINDKEY)

                If liCR >= 0 Then

                    DataBindClear()

                    DataBind()

                    DataDisplay()

                    Me.BindingContext(lsDT1).Position = liCR

                End If

            End If

            lsDT1c.Dispose()

        Catch exp As Exception

            MsgBox(exp.Message)

        End Try

    End Sub
 
    Private Sub btn_modify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Modify.Click

        lsMODE1 = "MODIFY"

        lbl_gsmode1.Text = lsMODE1

        DataBindClear()

        DataDisplay()

        GetTwnReg()

        lsTEXTBOX(2).Focus()

    End Sub
 
    Private Sub btn_Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Add.Click

        lsMODE1 = "ADD"

        lbl_gsmode1.Text = lsMODE1

        DataClear()

        DataBindClear()

        DataDisplay()

        GetTwnReg()

        lsTEXTBOX(1).Focus()

    End Sub
 
    Private Sub GetTwnReg()

        If lsMODE1 = "ADD" Or lsMODE1 = "MODIFY" Then

            txt_Name.Visible = True

            txt_Address.Visible = True

            txt_Phone.Visible = True

            txt_Code.Visible = True

            cbo_State.Visible = True

        Else

            txt_Name.Visible = False

            txt_Address.Visible = False

            txt_Phone.Visible = False

            txt_Code.Visible = False

            cbo_State.Visible = False

        End If

    End Sub
 
    Private Sub btn_Delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Delete.Click

        Try

            lsMODE1 = "DELETE"

            lbl_gsmode1.Text = lsMODE1

            liCR = Me.BindingContext(lsDT1).Position

            liANS = MsgBox("Confirm to delete " & lsDT1.Rows(liCR).Item(lsKEY) & "?", MsgBoxStyle.YesNo, "System Dialog")

            If liANS = 6 Then

                lsDT1.Rows(liCR).Delete()

                lsDA1.Update(lsDS1, lsTABLE1)

            End If

        Catch exp As Exception

            MsgBox(exp.Message)

            lsDT1.RejectChanges()

            Exit Sub

        Catch exp As SqlException

            MsgBox(exp.Message)

            lsDT1.RejectChanges()

            Exit Sub

        End Try

        lsMODE1 = "VIEW"

        lbl_gsmode1.Text = lsMODE1

        DataDisplay()
 
    End Sub

End Class

Plater

Well I would think that the error message woul tell you more, as well as giving you the line number that caused the error.
I will say that you SQL SELECT statement looks like its missing some spaces (like after the FROM, youwould have like FROMmyTableName instead of FROM myTableName)

insertAlias

Please enclose your posted code in [CODE] [/CODE] tags (See How to Ask a Question).

This makes it easier for our Experts to read and understand it. Failing to do so creates extra work for the moderators, thus wasting resources, otherwise available to answer the members' questions.

Please use [CODE] [/CODE] tags in future.

MODERATOR

An unhandled exception of type 'System.Data.SqlClient.SqlException' occurred in syste

re: An unhandled exception of type 'System.Data.SqlClient.SqlException' occurred in syste

re: An unhandled exception of type 'System.Data.SqlClient.SqlException' occurred in syste

Similar .NET Framework bytes

/bytes/development

/bytes/it

/bytes/about