SQL Insert Into

[VBJames]

Hi,

I have tested the command in SQL Managment studio and i can add a company easily with the insert into command.

But my code picks up this error:



Here is my code:

        Dim Sqlcon As SqlConnection = New SqlConnection("Data Source=JAMESPC\SUPPORTDB;Initial Catalog=Support_DB;Persist Security Info=True;User ID=user;Password=password")
        Dim SQLcmd As SqlCommand
        Dim SQLcmdFind As SqlCommand
        Dim QueryOpen As String = "insert into Customers (CompanyName, Address, City, County, PostCode, PhoneNumber, Extension, FaxNumber, EmailAddress, Notes, Passwords, Alert, Alerttxt) values ('" & txtnewcust.Text & "','" & txtnewadd.Text & "','" & txtnewcity.Text & "','" & txtnewcou.Text & "','" & txtnewpost.Text & "','" & txtnewphon.Text & "','" & txtnewext.Text & "','" & txtnewfax.Text & "','" & txtnewemail.Text & "','" & chknewalert.CheckState & "','" & txtnewalert.Text & "','" & txtnewnote.Text & "','" & txtnewpass.Text & "')"

        Dim QueryFind As String = "select count(Customer) from CompanyName where CompanyName ='" & txtnewcust.Text & "'"
        Dim count As Integer = -1
        'Dim msgblank As DialogResult
        'If txtadd.Text = "" Then
        'msgblank = MessageBox.Show("Please enter an engineers name.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        'If msgblank = DialogResult.OK Then
        'Exit Sub
        'End If
        'End If
        Try
            SQLcmd = New SqlCommand(QueryOpen, Sqlcon)
            SQLcmdFind = New SqlCommand(QueryFind, Sqlcon)
            Sqlcon.Open()
            count = Convert.ToInt32(SQLcmdFind.ExecuteScalar())
            If count > 0 Then
                MessageBox.Show("The customer" & " " & txtnewcust.Text & " " & "already exists in the database", "Duplicate Record", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                Me.Show()
            Else
                SQLcmd.ExecuteNonQuery()
                MessageBox.Show("The customer" & " " & txtnewcust.Text & " " & "has been created.", "Customer Created", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Sqlcon.Close()
            End If
        Catch ex As Exception
            MsgBox("Error while creating the new customers record..." & " " & ex.Message)
            Me.Show()
        Finally
            Sqlcon.Close()

        End Try

    End Sub

Thanks James

[Shaggy Hiker]

This line looks wrong:

Dim QueryFind As String = "select count(Customer) from CompanyName where CompanyName ='" & txtnewcust.Text & "'"

It looks like you have the wrong table name.

[VBJames]

This line looks wrong:

Dim QueryFind As String = "select count(Customer) from CompanyName where CompanyName ='" & txtnewcust.Text & "'"

It looks like you have the wrong table name.

Again didnt see this got to learn from your mistakes thanks Shaggy Hiker