I could not keep up with the save button

Question

vdls 0 Newbie Poster

9 Years Ago

BUTTON SAVE

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        get_kon()
        Dim simpan As SqlClient.SqlTransaction = kon.BeginTransaction
        Dim command As SqlClient.SqlCommand = kon.CreateCommand
        bersih()
        Try
            With command
                .CommandText = "InputAnalis5C"
                .CommandType = CommandType.StoredProcedure
                .Connection = kon
                .Transaction = simpan
                .Parameters.Add("@NONAS", SqlDbType.NVarChar, 12).Value = TextBox1.Text
                .Parameters.Add("@NAMA", SqlDbType.NVarChar, 75).Value = TextBox2.Text
                .Parameters.Add("@ALAMAT", SqlDbType.NVarChar, 75).Value = TextBox3.Text
                .Parameters.Add("@NOKTP", SqlDbType.NVarChar, 25).Value = TextBox4.Text
                .Parameters.Add("@CHAR1", SqlDbType.NVarChar, 20).Value = TextBox5.Text
                .Parameters.Add("@CHAR2", SqlDbType.NVarChar, 20).Value = TextBox6.Text
                .Parameters.Add("@CHAR3", SqlDbType.NVarChar, 20).Value = TextBox7.Text
                .Parameters.Add("@CHAR4", SqlDbType.NVarChar, 20).Value = TextBox8.Text
                .Parameters.Add("@CHAR5", SqlDbType.NVarChar, 20).Value = TextBox9.Text
                .Parameters.Add("@CHAR6", SqlDbType.NVarChar, 20).Value = TextBox10.Text
                .Parameters.Add("@CHAR7", SqlDbType.NVarChar, 20).Value = TextBox11.Text
                .Parameters.Add("@CHAR8", SqlDbType.NVarChar, 20).Value = TextBox12.Text
                .Parameters.Add("@CHAR9", SqlDbType.NVarChar, 20).Value = TextBox13.Text
                .Parameters.Add("@CHAR10", SqlDbType.NVarChar, 20).Value = TextBox14.Text
                .Parameters.Add("@CHAR11", SqlDbType.NVarChar, 20).Value = TextBox15.Text
                .Parameters.Add("@CHAR12", SqlDbType.NVarChar, 20).Value = TextBox16.Text
                .Parameters.Add("@CAP1", SqlDbType.NVarChar, 20).Value = TextBox17.Text
                .Parameters.Add("@CAP2", SqlDbType.NVarChar, 20).Value = TextBox18.Text
                .Parameters.Add("@CAP3", SqlDbType.NVarChar, 20).Value = TextBox19.Text
                .Parameters.Add("@CAP4", SqlDbType.NVarChar, 20).Value = TextBox20.Text
                .Parameters.Add("@CAP5", SqlDbType.NVarChar, 20).Value = TextBox21.Text
                .Parameters.Add("@CAP6", SqlDbType.NVarChar, 20).Value = TextBox22.Text
                .Parameters.Add("@CAP7", SqlDbType.NVarChar, 20).Value = TextBox23.Text
                .Parameters.Add("@CAP8", SqlDbType.NVarChar, 20).Value = TextBox24.Text
                .Parameters.Add("@CAP9", SqlDbType.NVarChar, 20).Value = TextBox25.Text
                .Parameters.Add("@CAP10", SqlDbType.NVarChar, 20).Value = TextBox26.Text
                .Parameters.Add("@CAP11", SqlDbType.NVarChar, 20).Value = TextBox27.Text
                .Parameters.Add("@CAP12", SqlDbType.NVarChar, 20).Value = TextBox28.Text
                .Parameters.Add("@CAP13", SqlDbType.NVarChar, 20).Value = TextBox29.Text
                .Parameters.Add("@CAP14", SqlDbType.NVarChar, 20).Value = TextBox30.Text
                .Parameters.Add("@MOD1", SqlDbType.NVarChar, 20).Value = ComboBox1.Text
                .Parameters.Add("@MOD2", SqlDbType.NVarChar, 20).Value = ComboBox2.Text
                .Parameters.Add("@MOD3", SqlDbType.NVarChar, 20).Value = TextBox30.Text
                .Parameters.Add("@CON1", SqlDbType.NVarChar, 20).Value = TextBox31.Text
                .Parameters.Add("@CON2", SqlDbType.NVarChar, 20).Value = TextBox32.Text
                .Parameters.Add("@CON3", SqlDbType.NVarChar, 20).Value = TextBox33.Text
                .Parameters.Add("@CON4", SqlDbType.NVarChar, 20).Value = TextBox34.Text
                .Parameters.Add("@COLL1", SqlDbType.NVarChar, 20).Value = CheckBox1
                .Parameters.Add("@COLL2", SqlDbType.NVarChar, 20).Value = CheckBox2
                .Parameters.Add("@COLL3", SqlDbType.NVarChar, 20).Value = CheckBox3
                .Parameters.Add("@COLL4", SqlDbType.NVarChar, 20).Value = CheckBox4
                .Parameters.Add("@COLL5", SqlDbType.NVarChar, 20).Value = CheckBox5
                .Parameters.Add("@COLL1", SqlDbType.NVarChar, 20).Value = CheckBox6
                .Parameters.Add("@COLL2", SqlDbType.NVarChar, 20).Value = CheckBox7
                .Parameters.Add("@COLL3", SqlDbType.NVarChar, 20).Value = CheckBox8
                .Parameters.Add("@COLL4", SqlDbType.NVarChar, 20).Value = CheckBox9
                .Parameters.Add("@COLL5", SqlDbType.NVarChar, 20).Value = CheckBox10
                .Parameters.Add("@HASIL1", SqlDbType.NVarChar, 20).Value = CheckBox13
                .Parameters.Add("@HASIL2", SqlDbType.NVarChar, 20).Value = CheckBox14
                .Parameters.Add("@HASIL3", SqlDbType.NVarChar, 20).Value = CheckBox15
                .Parameters.Add("@HASIL4", SqlDbType.NVarChar, 20).Value = CheckBox16
                .Parameters.Add("@HASIL1", SqlDbType.NVarChar, 20).Value = CheckBox17
                .Parameters.Add("@HASIL2", SqlDbType.NVarChar, 20).Value = CheckBox18
                .Parameters.Add("@HASIL3", SqlDbType.NVarChar, 20).Value = CheckBox19
                .Parameters.Add("@HASIL4", SqlDbType.NVarChar, 20).Value = CheckBox20

                .ExecuteNonQuery()
            End With
            simpan.Commit()
            MsgBox("Data Berhasil di Simpan")
            bersih()
        Catch ex As Exception
            MsgBox("Gagal tersimpan", MsgBoxStyle.Critical, "PERINGATAN")
        End Try
    End Sub

MY MODULE

Imports System.Data.Sql
Imports System.Data.SqlClient

Module koneksi
    Public kon As SqlConnection
    Public cmd As SqlCommand
    Public da As SqlDataAdapter
    Public dr As SqlDataReader
    Public dt As DataTable
    Public data As DataSet
    Public myRow As DataRow

    Public Sub get_kon()
        Dim server As String
        server = "Data Source=**************;Initial Catalog=CobaDbInput;User ID=sa;Password=***********"
        kon = New SqlConnection(server)
        Try
            If kon.State = ConnectionState.Closed Then
                kon.Open()
            End If
        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "ERROR")
        End Try
    End Sub
End Module

gui vb.net

2 Contributors
29 Replies
864 Views
1 Week Discussion Span
Latest Post 9 Years Ago Latest Post by djjeavons

djjeavons 113 partis vestri scientia

9 Years Ago

Hi

What is the actual problem? Are you getting any errors?

Some notes on your code, you should really get into the habit of naming your controls so that they mean something when you are reading the code. Looking at your code at the moment, all I see is TextBox1, TextBox2 etc. This makes it very difficult to follow and will cause you issues down the road, especially when you are mapping the contents to parameters.

I also see that you are assign CheckBox1, CheckBox2 etc. to parameters, but you are not stating what property of the CheckBox you want to use. Is it the check boxes state (checked, not checked) or something else?

In your get_con routine you are checking if the state of the connection is closed, this is not required as you are instantiating the connection above so by default it will be in a closed state.

djjeavons 113 partis vestri scientia

9 Years Ago

Hi

I have tested your code and it does work in my simple test. Are you getting your error message box "Gagal tersimpan"? If so, I would recommend commenting this out for now and replacing with MessageBox.Show(ex.Message) so that you can see what the exception is.

djjeavons 113 partis vestri scientia

9 Years Ago

means I have to change the checkbox to a string type?

That depends on what you want to get from the check box. If you change it to a string type using something like: CheckBox1.ToString this will simply return "System.Windows.Forms.CheckBox, CheckState: 0" which is probably not what you want. If you want to get the state of the check box (checked or not) then use CheckBox1.Checked.ToString which will return "True" or "False".

djjeavons 113 partis vestri scientia

9 Years Ago

I want it contains data that checkbox is checked in the checkbox

For that, use CheckBox1.Checked.ToString assuming that this is going to a NVarChar field.

but when I tried the execution of key store proc notification "procedure or function windows form has too many arguments specified vbnet"

How is your stored procedure created, are you passing too many parameters?

djjeavons 113 partis vestri scientia

9 Years Ago

ye,i use too many param in my stored proc.
does it really affect?

Yes, it will affect the running of the query. If your stored procedure requires 2 parameters but you specify 3 then it will not work.

Reply to this topic

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.

vdls 0 Newbie Poster · Answer 1 · 2015-05-05T08:11:52+00:00

Hi too
when I execute a stored proc, the data failed to enter into the database. so this is wrong the source code on the save button

vdls 0 Newbie Poster · Answer 2 · 2015-05-05T08:35:26+00:00

means I have to change the checkbox to a string type?

vdls 0 Newbie Poster · Answer 3 · 2015-05-05T08:50:56+00:00

I want it contains data that checkbox is checked in the checkbox. but when I tried the execution of key store proc notification "procedure or function windows form has too many arguments specified vbnet"
sorry previously troublesome

vdls 0 Newbie Poster · Answer 4 · 2015-05-06T01:53:56+00:00

ye,i use too many param in my stored proc.
does it really affect?

vdls 0 Newbie Poster · Answer 5 · 2015-05-06T07:26:50+00:00

If i change my param like this

.Parameters.Add("@NONAS", SqlDbType.NVarChar, 12).Value = TextBox1.Text
                .Parameters.Add("@NAMA", SqlDbType.NVarChar, 75).Value = TextBox2.Text
                .Parameters.Add("@ALAMAT", SqlDbType.NVarChar, 75).Value = TextBox3.Text
                .Parameters.Add("@NOKTP", SqlDbType.NVarChar, 25).Value = TextBox4.Text
                .Parameters.Add("@CHAR1", SqlDbType.NVarChar, 20).Value = TextBox5.Text
                .Parameters.Add("@CHAR2", SqlDbType.NVarChar, 20).Value = TextBox6.Text
                .Parameters.Add("@CHAR3", SqlDbType.NVarChar, 20).Value = TextBox7.Text
                .Parameters.Add("@CHAR4", SqlDbType.NVarChar, 20).Value = TextBox8.Text
                .Parameters.Add("@CHAR5", SqlDbType.NVarChar, 20).Value = TextBox9.Text
                .Parameters.Add("@CHAR6", SqlDbType.NVarChar, 20).Value = TextBox10.Text
                .Parameters.Add("@CHAR7", SqlDbType.NVarChar, 20).Value = TextBox11.Text
                .Parameters.Add("@CHAR8", SqlDbType.NVarChar, 20).Value = TextBox12.Text
                .Parameters.Add("@CHAR9", SqlDbType.NVarChar, 20).Value = TextBox13.Text
                .Parameters.Add("@CHAR10", SqlDbType.NVarChar, 20).Value = TextBox14.Text
                .Parameters.Add("@CHAR11", SqlDbType.NVarChar, 20).Value = TextBox15.Text
                .Parameters.Add("@CHAR12", SqlDbType.NVarChar, 20).Value = TextBox16.Text
                .Parameters.Add("@CAP1", SqlDbType.NVarChar, 20).Value = TextBox17.Text
                .Parameters.Add("@CAP2", SqlDbType.NVarChar, 20).Value = TextBox18.Text
                .Parameters.Add("@CAP3", SqlDbType.NVarChar, 20).Value = TextBox19.Text
                .Parameters.Add("@CAP4", SqlDbType.NVarChar, 20).Value = TextBox20.Text
                .Parameters.Add("@CAP5", SqlDbType.NVarChar, 20).Value = TextBox21.Text
                .Parameters.Add("@CAP6", SqlDbType.NVarChar, 20).Value = TextBox22.Text
                .Parameters.Add("@CAP7", SqlDbType.NVarChar, 20).Value = TextBox23.Text
                .Parameters.Add("@CAP8", SqlDbType.NVarChar, 20).Value = TextBox24.Text
                .Parameters.Add("@CAP9", SqlDbType.NVarChar, 20).Value = TextBox25.Text
                .Parameters.Add("@CAP10", SqlDbType.NVarChar, 20).Value = TextBox26.Text
                .Parameters.Add("@CAP11", SqlDbType.NVarChar, 20).Value = TextBox27.Text
                .Parameters.Add("@CAP12", SqlDbType.NVarChar, 20).Value = TextBox28.Text
                .Parameters.Add("@CAP13", SqlDbType.NVarChar, 20).Value = TextBox29.Text
                .Parameters.Add("@CAP14", SqlDbType.NVarChar, 20).Value = TextBox30.Text
                .Parameters.Add("@MOD1", SqlDbType.NVarChar, 20).Value = CheckBox1.ToString = "Ya"
                .Parameters.Add("@MOD1", SqlDbType.NVarChar, 20).Value = CheckBox1.ToString = "Tidak"
                .Parameters.Add("@MOD2", SqlDbType.NVarChar, 20).Value = CheckBox1.ToString = "Ya"
                .Parameters.Add("@MOD2", SqlDbType.NVarChar, 20).Value = CheckBox1.ToString = "Tidak"
                .Parameters.Add("@MOD3", SqlDbType.NVarChar, 20).Value = TextBox30.Text
                .Parameters.Add("@CON1", SqlDbType.NVarChar, 20).Value = TextBox31.Text
                .Parameters.Add("@CON2", SqlDbType.NVarChar, 20).Value = TextBox32.Text
                .Parameters.Add("@CON3", SqlDbType.NVarChar, 20).Value = TextBox33.Text
                .Parameters.Add("@CON4", SqlDbType.NVarChar, 20).Value = TextBox34.Text
                .Parameters.Add("@COLL1", SqlDbType.NVarChar, 20).Value = CheckBox7.ToString = "Ya"
                .Parameters.Add("@COLL1", SqlDbType.NVarChar, 20).Value = CheckBox12.ToString = "Tidak"
                .Parameters.Add("@COLL2", SqlDbType.NVarChar, 20).Value = CheckBox8.ToString = "Ya"
                .Parameters.Add("@COLL2", SqlDbType.NVarChar, 20).Value = CheckBox13.ToString = "Tidak"
                .Parameters.Add("@COLL3", SqlDbType.NVarChar, 20).Value = CheckBox8.ToString = "Ya"
                .Parameters.Add("@COLL3", SqlDbType.NVarChar, 20).Value = CheckBox14.ToString = "Tidak"
                .Parameters.Add("@COLL4", SqlDbType.NVarChar, 20).Value = CheckBox10.ToString = "Ya"
                .Parameters.Add("@COLL4", SqlDbType.NVarChar, 20).Value = CheckBox15.ToString = "Tidak"
                .Parameters.Add("@COLL5", SqlDbType.NVarChar, 20).Value = CheckBox11.ToString = "Ya"
                .Parameters.Add("@COLL5", SqlDbType.NVarChar, 20).Value = CheckBox16.ToString = "Tidak"
                .Parameters.Add("@HASIL1", SqlDbType.NVarChar, 20).Value = CheckBox17.ToString = "Ya"
                .Parameters.Add("@HASIL1", SqlDbType.NVarChar, 20).Value = CheckBox21.ToString = "Tidak"
                .Parameters.Add("@HASIL2", SqlDbType.NVarChar, 20).Value = CheckBox18.ToString = "Ya"
                .Parameters.Add("@HASIL2", SqlDbType.NVarChar, 20).Value = CheckBox23.ToString = "Tidak"
                .Parameters.Add("@HASIL3", SqlDbType.NVarChar, 20).Value = CheckBox19.ToString = "Ya"
                .Parameters.Add("@HASIL3", SqlDbType.NVarChar, 20).Value = CheckBox24.ToString = "Tidak"
                .Parameters.Add("@HASIL4", SqlDbType.NVarChar, 20).Value = CheckBox20.ToString = "Ya"
                .Parameters.Add("@HASIL4", SqlDbType.NVarChar, 20).Value = CheckBox24.ToString = "Tidak"

whether these parameters could be run?

djjeavons 113 partis vestri scientia · Answer 6 · 2015-05-06T07:34:40+00:00

Does your stored procedure contain that many parameters? In fact, can you post your stored procedure code.

vdls 0 Newbie Poster · Answer 7 · 2015-05-06T07:38:32+00:00

This my stored procedure code

CREATE PROC insertdata
@NONAS nvarchar(12), 
@NAMA nvarchar(75), 
@ALAMAT nvarchar(75), 
@NOKTP nvarchar(25), 
@CHAR1 nvarchar(20), 
@CHAR2 nvarchar(20), 
@CHAR3 nvarchar(20), 
@CHAR4 nvarchar(20), 
@CHAR5 nvarchar(20), 
@CHAR6 nvarchar(20), 
@CHAR7 nvarchar(20), 
@CHAR8 nvarchar(20), 
@CHAR9 nvarchar(20), 
@CHAR10 nvarchar(20), 
@CHAR11 nvarchar(20), 
@CHAR12 nvarchar(20), 
@CAP1 nvarchar(20), 
@CAP2 nvarchar(20), 
@CAP3 nvarchar(20), 
@CAP4 nvarchar(20), 
@CAP5 nvarchar(20), 
@CAP6 nvarchar(20),
@CAP7 nvarchar(20),
@CAP8 nvarchar(20),
@CAP9 nvarchar(20),
@CAP10 nvarchar(20), 
@CAP11 nvarchar(20), 
@CAP12 nvarchar(20), 
@CAP13 nvarchar(20), 
@CAP14 nvarchar(20), 
@MOD1 nvarchar(20), 
@MOD2 nvarchar(20), 
@MOD3 nvarchar(20), 
@CON1 nvarchar(20), 
@CON2 nvarchar(20), 
@CON3 nvarchar(20), 
@CON4 nvarchar(20), 
@COLL1 nvarchar(20), 
@COLL2 nvarchar(20), 
@COLL3 nvarchar(20), 
@COLL4 nvarchar(20), 
@COLL5 nvarchar(20), 
@HASIL1 nvarchar(20), 
@HASIL2 nvarchar(20), 
@HASIL3 nvarchar(20), 
@HASIL4 nvarchar(20)
AS
INSERT INTO tb5C
                      (NONAS, NAMA, ALAMAT, NOKTP, CHAR1, CHAR2, CHAR3, CHAR4, CHAR5, CHAR6, CHAR7, CHAR8, CHAR9, CHAR10, CHAR11, CHAR12, CAP1, CAP2, CAP3, CAP4, CAP5, CAP6, CAP7, CAP8, CAP9, CAP10, CAP11, CAP12, CAP13, CAP14, MOD1, MOD2, MOD3, CON1, CON2, CON3, CON4, COLL1, COLL2, COLL3, COLL4, COLL5, HASIL1, HASIL2, HASIL3, HASIL4)

VALUES     (@NONAS,@NAMA,@ALAMAT,@NOKTP,@CHAR1,@CHAR2,@CHAR3,@CHAR4,@CHAR5,@CHAR6,@CHAR7,@CHAR8,@CHAR9,@CHAR10,@CHAR11,@CHAR12,@CAP1,@CAP2,@CAP3,@CAP4,@CAP5,@CAP6,@CAP7,@CAP8,@CAP9,@CAP10,@CAP11,@CAP12,@CAP13,@CAP14,@MOD1,@MOD2,@MOD3,@CON1,@CON2,@CON3,@CON4,@COLL1,@COLL2,@COLL3,@COLL4,@COLL5,@HASIL1,@HASIL2,@HASIL3,@HASIL4)

djjeavons 113 partis vestri scientia · Answer 8 · 2015-05-06T07:57:54+00:00

Ok, I see the problem now. You are duplicating parameters for your check boxes. For example:

.Parameters.Add("@MOD1", SqlDbType.NVarChar, 20).Value = "Ya"
.Parameters.Add("@MOD1", SqlDbType.NVarChar, 20).Value = "Tidak"

Why are you doing this? This is repeated for all of your Check Boxes.

By only supplying one parameter per check box value your code works fine. So what is your intention? What do you want to store in MOD1 for example?

vdls 0 Newbie Poster · Answer 9 · 2015-05-06T08:08:47+00:00

My intention is, if checkbox.checked = true, then the existing data stored in the database.

but if i add one param in my checkbox, in vb.net displays an error message "procedure or function has too many arguments specified"

So, what should I do?

djjeavons 113 partis vestri scientia · Answer 10 · 2015-05-06T08:14:05+00:00

My intention is, if checkbox.checked = true, then the existing data stored in the database.

Well you could store Null if the Check box is not checked:

If checkbox.checked = true Then
    .Parameters.Add("@MOD1", SqlDbType.NVarChar, 20).Value = "Ya"
Else
    .Parameters.Add("@MOD1", SqlDbType.NVarChar, 20).Value = DBNull.Value
End If

But if you want to store True or False then simply use one parameter:

.Parameters.Add("@MOD1", SqlDbType.NVarChar, 20).Value = checkbox.checked.ToString

Or if you want to use "Ya" and "Tidak" then:

If checkbox.checked = true Then
    .Parameters.Add("@MOD1", SqlDbType.NVarChar, 20).Value = "Ya"
Else
    .Parameters.Add("@MOD1", SqlDbType.NVarChar, 20).Value = "Tidak"
End If

vdls 0 Newbie Poster · Answer 11 · 2015-05-06T09:06:22+00:00

but in this case I use a lot of checkboxes, then in one param I use two or more checkboxes.
so I must use the source code which one?

ex
in one param i have a three checkboxes and one textbox, so when the checkbox 1 or 2.checked then text in the checkboxes will stored into the database.

but when checkbox3.checked = true then textbox1.enable = true and data in the textbox will stored into database

so how the source code?

but later on I will reply your message within the next few hours, Because I'm in affairs.

Thanks for your help today, see you next few hours

djjeavons 113 partis vestri scientia · Answer 12 · 2015-05-06T09:40:24+00:00

At the end of the day, you can only specify the parameter for the stored procedure once. So in your example where if checkbox1 or checkbox2 is checked then you store some data in the database you will have to code the logic for that:

If CheckBox1.Checked = True OrElse CheckBox2.Checked = True Then
    .Parameters.Add("@WhateverParameter", SqlDbType.NVarChar, 20).Value = "your Value"
Else
    .Parameters.Add("@WhateverParameter", SqlDbType.NVarChar, 20).Value = DBNull.Value
End If

vdls 0 Newbie Poster · Answer 13 · 2015-05-08T07:08:22+00:00

but checkbox 1 and 2 not same, whether these parameters can be combined into one or split but within a parameter?

djjeavons 113 partis vestri scientia · Answer 14 · 2015-05-11T06:54:35+00:00

but checkbox 1 and 2 not same, whether these parameters can be combined into one or split but within a parameter?

Can you give an example of what you would expect this data to look like in the database table based on different scenario's?

vdls 0 Newbie Poster · Answer 15 · 2015-05-12T01:55:09+00:00

ok, I finished with my code.
but when it is executed out the following notification

this my prob
Click Here

djjeavons 113 partis vestri scientia · Answer 16 · 2015-05-12T06:12:07+00:00

If you are getting a timeout error then the first thing to do would be to set the CommandTimeout property of the Command object to something longer to ensure that the statement can indeed execute.

If the above works, I would then suggest looking into why the statement is taking so long (as the default Timeout is 30 seconds), maybe you need to optimise your database or look at reducing the complexity of your statement.

vdls 0 Newbie Poster · Answer 17 · 2015-05-13T03:00:11+00:00

keeps the solution to resolve the issue of how?
if I have to change my db query, or add a command timeout in my vb.net

djjeavons 113 partis vestri scientia · Answer 18 · 2015-05-13T07:30:04+00:00

Did you try changing the Command Timeout property? I suggest doing this first to make sure that your query does execute (regardless of how long it takes). This then at least tells you that it is correct (even if it is slow). If it does work, then you will look into why it is slow and perform optimisation techniques (which is beyond the scope of this thread) to speed it up.

vdls 0 Newbie Poster · Answer 19 · 2015-05-13T08:51:45+00:00

basically I want to insert data from a checkbox or textbox into a database using stored proceure

djjeavons 113 partis vestri scientia · Answer 20 · 2015-05-13T09:10:04+00:00

Yes, I understand what you want to do. But your last error was that the query was timing out so I am assuming at this point that you are still not yet writing data to the database because of this.

What I am saying is that you should increase the timeout command.CommandTimeout = 60 and try to run the query again. If it still times out, increase the time out value until it executes or gives you a different error. Once you have determined if the stored procedure works, you can then look into why it is taking so long that it causes a Timeout exception.

vdls 0 Newbie Poster · Answer 21 · 2015-05-15T07:55:48+00:00

Ok i'am done, but i got a new Msg
Check this
Click Here

djjeavons 113 partis vestri scientia · Answer 22 · 2015-05-15T08:00:01+00:00

This means that you are inserting a duplicate value into a column of your table that is defined as a primary key. Primary keys cannot contain duplicate values.

vdls 0 Newbie Poster · Answer 23 · 2015-05-15T08:22:02+00:00

whether there is a manufacturing fault or stored proc me there is a problem with my coding?
every time i try to input the data by running my project in vb.net data can not be entered.
whereas when I exec sql server it's works.
so this problem is in part what?
you have ym or more for live chat?

djjeavons 113 partis vestri scientia · Answer 24 · 2015-05-15T08:46:27+00:00

whereas when I exec sql server it's works.

If this is the case, then while I don't think there is a problem with your code, there is certainly a problem with the values that you are supplying.

I would recommend that you run SQL Server Profiler and do the following:

Run the stored procedure via SQL Server and capture the TextData output from the profiler.
Run the stored procedure from your code and capture the TextData output from the profiler.
Compare the two pieces of data to see if indeed you are providing duplicate data.

Post those results back.

If you haven't used the profiler before, then start it up and do the following:

File > New Trace
Connect to your instance of SQL Server
Click the Events Selection tab
Uncheck everything in the Events column, BUT leave the Stored Procedures > RPC Completed checked
Check the TextData next to RPC Completed
Click Run
Now execute the stored procedure from SQL Server and capture the text data
Execute the stored procedure from your code and capture the text data
Stop the profiler.