(resolved)***Adding data to sql table

[pea33nut]

Hello everyone,

I have a test box (txtAdd) and a button (btnAdd) on a form. I want to type in a number in the text box, click the add button, and have it save to my sql database. I have the sql statements but im not sure what the other code looks like that I need. Could some show me an example?

Thanks

[pea33nut]

Anyone have any ideas???

[LoNeR]

Originally posted by pea33nut
Hello everyone,

I have a test box (txtAdd) and a button (btnAdd) on a form. I want to type in a number in the text box, click the add button, and have it save to my sql database. I have the sql statements but im not sure what the other code looks like that I need. Could some show me an example?

Thanks

this from mssql 2000

@txtbox varchar (50)
as
insert into nameoftable
values(@txtbox)
go

hope it helps

[pea33nut]

I think I miss wrote what I wanted. I have that part of the code but I need to know what vb code is needed to send it to the data base. Do I need the Dim cmdtext As String? Or anything in that nature. This is some code I use to retrieve data from the database.
da.Fill(myDS, "Auto")
With cboItemNumber
.DataSource = myDS.Tables("Auto")
.DisplayMember = "ItemNumber"

So is thier any vb code to add my sql statement in?

thanks

[LoNeR]

Originally posted by pea33nut
I think I miss wrote what I wanted. I have that part of the code but I need to know what vb code is needed to send it to the data base. Do I need the Dim cmdtext As String? Or anything in that nature. This is some code I use to retrieve data from the database.
da.Fill(myDS, "Auto")
With cboItemNumber
.DataSource = myDS.Tables("Auto")
.DisplayMember = "ItemNumber"

So is thier any vb code to add my sql statement in?

thanks

Function add()
        Try
            With cm
                .Parameters.Clear()
                .CommandText = "addtable"
                .Parameters.Add("@name", SqlDbType.VarChar, 50).Direction = ParameterDirection.Input
                .Parameters.Add("@address", SqlDbType.VarChar, 50).Direction = ParameterDirection.Input
                .Parameters(0).Value = txtbox1.text
                .Parameters(1).Value = txtbox2.text
                .ExecuteNonQuery()
            End With
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Function

this what i do to save in my database (ms sql 200)
addtable is a storedprocedure
hope it helps..

[brown monkey]

one other way.

Dim cn As New SqlConnection()
      cn.ConnectionString = "integrated security=true;initial catalog=tempdb"
      cn.Open()
 
      Dim cmdtext As String = "insert into table1 values('" & TextBox1.Text & "','" & TextBox2.Text & "')"
      Dim cm As New SqlCommand(cmdtext, cn)
      cm.ExecuteNonQuery()
      cn.Close()

[LoNeR]

brown monkey code is quiet good than mine..

im just a stupid beginner....

[pea33nut]

What does the cm.ExecuteNonQuery() do? I got and error when I ran my program that said

(An unhandled exception of type 'System.Data.SqlClient.SqlException' occurred in system.data.dll)

Additional information: System error.

[brown monkey]

that's [sql | oledb | odbc | etc...]command.executequery executes a non query. sample, update, delete. i don't know exactly about your error but i think you have no database named tempdb and table in tempdb named table1. you should make this. hope this helps.

[pea33nut]

Here is my code.
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

' Connect to the database
Dim cn As SqlConnection = New SqlConnection
cn.ConnectionString = "Data Source=(local);" & _
"Initial Catalog=Justin;" & _
"Integrated Security=SSPI"
cn.Open()

' Add Data to the database
Dim cmdtext As String = "insert into Auto values('" & txtAddItemNumber.Text & "',')"
Dim cm As New SqlCommand(cmdtext, cn)
cm.ExecuteNonQuery()
cn.Close()

The cm.executenonquery() is highlighted green with this error.

****An unhandled exception of type 'System.Data.SqlClient.SqlException' occurred in system.data.dll

Additional information: System error.

[brown monkey]

perhaps "insert into [auto]..." not "auto" alone. auto is a reserved word...

[pea33nut]

Hmmm, good thought but still no luck.

[brown monkey]

Originally posted by pea33nut

Dim cmdtext As String = "insert into Auto values('" & txtAddItemNumber.Text & "',')"

what's with the comma?

[pea33nut]

I took out the comma but I still get the same error.

' Connect to the database
Dim cn As SqlConnection = New SqlConnection
cn.ConnectionString = "Data Source=(local);" & _
"Initial Catalog=Justin;" & _
"Integrated Security=SSPI"
cn.Open()

' Add Data to the database
Dim cmdtext As String = "insert into [Auto] values('" & txtAddItemNumber.Text & "')"
Dim cm As New SqlCommand(cmdtext, cn)
cm.ExecuteNonQuery()
cn.Close()

thier seems to be something wrong with the cm.executenonquery()

[pea33nut]

Auto is the table but ItemNumber is the field that I want the txtAddItemNumber value to go. Shouldn't I have the ItemNumber somewhere in my code to let it know what field to go to? Anyone

[pea33nut]

Any suggestions!!!

[pea33nut]

I have stumped the forum.

[SeanGrebey]

Ok, your Insert is messed up. It should be:

INSERT INTO AUTO (FieldName) VALUES ('" & Text & "'")

You aren't telling it what field to fill with your value....