append the listitems as a comma seperated string
-
Thank you JC. This is working, But it store a ',' in the very beginning. How to stop this. Example, if the items are, A B C It stores ,A,B,C
Chaitra N
Oh come on. He's done the hard bit for you. Try doing at least some of it yourself.
"More functions should disregard input values and just return 12. It would make life easier." - comment posted on WTF
-
Thank you JC. This is working, But it store a ',' in the very beginning. How to stop this. Example, if the items are, A B C It stores ,A,B,C
Chaitra N
**Dim str As String = ""** If dbconn.State ConnectionState.Open Then dbconn.Open() End If For Each item As ListItem In lstselectedemployees.Items **if str = "" then str = item.Text else STR = STR & "," & item.Text end if** Next str2="insert into a (soft)values('" & STR & "')" Dim comm As New SqlCommand(str2, dbconn) Try comm.ExecuteNonQuery() Label1.ForeColor = Drawing.Color.Green Label1.Text = "Success" Catch ex As Exception Label1.Text = ex.Message End TryTry Bold textBasharatAli Internee METESYS Lahore Pakistan -
how to append the listitems as a comma seperated string and insert into the database in a single row using asp.net 2.0 I am using vb. I am copying a content of listbox1 to listbox2. I want to store the listbox2 data into database. I am using the following code, But the each value is getting stored in different row of the table. I want them to get stored in a single row. Dim str As String If dbconn.State ConnectionState.Open Then dbconn.Open() End If For Each item As ListItem In lstselectedemployees.Items str = "insert into a (soft)values('" & item.Text & "')" Dim comm As New SqlCommand(str, dbconn) Try comm.ExecuteNonQuery() Label1.ForeColor = Drawing.Color.Green Label1.Text = "Success" Catch ex As Exception Label1.Text = ex.Message End Try Next If I use the following code then, only the last item of the list box is getting stored, Dim str As String If dbconn.State ConnectionState.Open Then dbconn.Open() End If For Each item As ListItem In lstselectedemployees.Items str = "insert into a (soft)values('" & item.Text & "')" Next Dim comm As New SqlCommand(str, dbconn) Try comm.ExecuteNonQuery() Label1.ForeColor = Drawing.Color.Green Label1.Text = "Success" Catch ex As Exception Label1.Text = ex.Message End Try
Chaitra N
First u should convert list items into one string seperated by comm(,) and stored it in a string type variable with concatenation. and then stored the variable into datbase field. Use this code for converting global decalartion dim i as int dim st as string for i=0 to i<=ListBox1.item.count-1 if i<>ListBox1.item.count-1 then st +=ListBox1.item(i) & "," else st +=ListBox1.item(i) End if Next BY Nand Nand
-
Thank you JC. This is working, But it store a ',' in the very beginning. How to stop this. Example, if the items are, A B C It stores ,A,B,C
Chaitra N
-
how to append the listitems as a comma seperated string and insert into the database in a single row using asp.net 2.0 I am using vb. I am copying a content of listbox1 to listbox2. I want to store the listbox2 data into database. I am using the following code, But the each value is getting stored in different row of the table. I want them to get stored in a single row. Dim str As String If dbconn.State ConnectionState.Open Then dbconn.Open() End If For Each item As ListItem In lstselectedemployees.Items str = "insert into a (soft)values('" & item.Text & "')" Dim comm As New SqlCommand(str, dbconn) Try comm.ExecuteNonQuery() Label1.ForeColor = Drawing.Color.Green Label1.Text = "Success" Catch ex As Exception Label1.Text = ex.Message End Try Next If I use the following code then, only the last item of the list box is getting stored, Dim str As String If dbconn.State ConnectionState.Open Then dbconn.Open() End If For Each item As ListItem In lstselectedemployees.Items str = "insert into a (soft)values('" & item.Text & "')" Next Dim comm As New SqlCommand(str, dbconn) Try comm.ExecuteNonQuery() Label1.ForeColor = Drawing.Color.Green Label1.Text = "Success" Catch ex As Exception Label1.Text = ex.Message End Try
Chaitra N
Learn how to properly post code snippets here at CP.
"Why don't you tie a kerosene-soaked rag around your ankles so the ants won't climb up and eat your candy ass..." - Dale Earnhardt, 1997
-----
"...the staggering layers of obscenity in your statement make it a work of art on so many levels." - Jason Jystad, 10/26/2001 -
**Dim str As String = ""** If dbconn.State ConnectionState.Open Then dbconn.Open() End If For Each item As ListItem In lstselectedemployees.Items **if str = "" then str = item.Text else STR = STR & "," & item.Text end if** Next str2="insert into a (soft)values('" & STR & "')" Dim comm As New SqlCommand(str2, dbconn) Try comm.ExecuteNonQuery() Label1.ForeColor = Drawing.Color.Green Label1.Text = "Success" Catch ex As Exception Label1.Text = ex.Message End TryTry Bold textBasharatAli Internee METESYS Lahore PakistanThank u. It is working.
Chaitra N
-
Well, if you want me to do all the work, it might help if you rated my reply ;) hint: use the mid-function
Thank u JC. I gotta know the code. Your code really helped me.
Chaitra N
-
Learn how to properly post code snippets here at CP.
"Why don't you tie a kerosene-soaked rag around your ankles so the ants won't climb up and eat your candy ass..." - Dale Earnhardt, 1997
-----
"...the staggering layers of obscenity in your statement make it a work of art on so many levels." - Jason Jystad, 10/26/2001 -
Dim str As String If dbconn.State ConnectionState.Open Then dbconn.Open() End If For Each item As ListItem In lstselectedemployees.Items STR = STR & "," & item.Text Next str2="insert into a (soft)values('" & STR & "')" Dim comm As New SqlCommand(str2, dbconn) Try comm.ExecuteNonQuery() Label1.ForeColor = Drawing.Color.Green Label1.Text = "Success" Catch ex As Exception Label1.Text = ex.Message End Try
I have one more doubt. This is regarding bindng of listbox. Let us assume I store A B C D in from listbox2. It stores as A,B,C,D . When i bind the data to listbox it comes as the same. But i want to display each value in different row. How to do this? I tried split function but no use. Here is the code snippet i have used to bind the data to listbox, lstselectedemployees is the listbox. Dim sql As String = "Select * from A_desktops where assetcode='" & TextBox1.Text & "'" Dim da As New SqlDataAdapter(sql, dbconn) Dim ds As New DataSet() da.Fill(ds, "a_desktops") lstselectedemployees.DataSource = ds.Tables("a_desktops").DefaultView lstselectedemployees.SelectedIndex = 0 lstselectedemployees.DataTextField = "swinstalled" Page.DataBind()
Chaitra N
-
First u should convert list items into one string seperated by comm(,) and stored it in a string type variable with concatenation. and then stored the variable into datbase field. Use this code for converting global decalartion dim i as int dim st as string for i=0 to i<=ListBox1.item.count-1 if i<>ListBox1.item.count-1 then st +=ListBox1.item(i) & "," else st +=ListBox1.item(i) End if Next BY Nand Nand
I have one more doubt. This is regarding bindng of listbox. Let us assume I store A B C D in from listbox2. It stores as A,B,C,D . When i bind the data to listbox it comes as the same. But i want to display each value in different row. How to do this? I tried split function but no use. Here is the code snippet i have used to bind the data to listbox, lstselectedemployees is the listbox. Dim sql As String = "Select * from A_desktops where assetcode='" & TextBox1.Text & "'" Dim da As New SqlDataAdapter(sql, dbconn) Dim ds As New DataSet() da.Fill(ds, "a_desktops") lstselectedemployees.DataSource = ds.Tables("a_desktops").DefaultView lstselectedemployees.SelectedIndex = 0 lstselectedemployees.DataTextField = "swinstalled" Page.DataBind()
Chaitra N
