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:

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)

[Curtis Rutland]

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