How to store data from Listbox

[n_gchaitra]

I am using vb not c#. foreach(ListItem item in ListBox2.Items) will not work in vb

Chaitra N

[helelark123]

In VB.NET --------- For Each item As ListItem In ListBox2.Items 'then run the insert str = "insert into a_software (soft)values('" And item.Text And "')" Next You can convert C# code to VB.NET at: http://www.developerfusion.co.uk/utilities/convertcsharptovb.aspx[^]

Shay Noy

[T EDY]

n_gchaitra wrote:

str = "insert into a_software (soft)values('" & ListBox2.Items.ToString() & "')"

if u want to avoid SQL injection attack..u have to write u'r query into stored procedure Regards, Tomi

[T EDY]

koolprasad2003 wrote:

str = "insert into a_software (soft)values('" & szItem.text & "')"

writing a query in your code, make u wide open to SQL Injection attack..please tell me that is only for example explanation:confused: Kind Regards, Tomi

[n_gchaitra]

Following is the code i have written, But it is giving the error, ExecuteNonQuery: CommandText property has not been initialized Partial Class _Default Inherits System.Web.UI.Page Dim constr As String = ConfigurationSettings.AppSettings("conn") Dim dbconn As New SqlConnection(constr) Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Button1.Attributes.Add("onclick", "return fnMoveItems('ListBox1','ListBox2')") Button2.Attributes.Add("onclick", "return fnMoveItems('ListBox2','ListBox1')") End Sub Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click Dim str As String If dbconn.State <> ConnectionState.Open Then dbconn.Open() End If For Each item As ListItem In ListBox2.Items str = "insert into a_software (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 End Sub End Class

Chaitra N

[n_gchaitra]

Following is the code i have written, But it is giving the error, ExecuteNonQuery: CommandText property has not been initialized Partial Class _Default Inherits System.Web.UI.Page Dim constr As String = ConfigurationSettings.AppSettings("conn") Dim dbconn As New SqlConnection(constr) Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Button1.Attributes.Add("onclick", "return fnMoveItems('ListBox1','ListBox2')") Button2.Attributes.Add("onclick", "return fnMoveItems('ListBox2','ListBox1')") End Sub Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click Dim str As String If dbconn.State <> ConnectionState.Open Then dbconn.Open() End If For Each item As ListItem In ListBox2.Items str = "insert into a_software (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 End Sub End Class

Chaitra N

[koolprasad2003]

u have to take following line in for each..Next loop

n_gchaitra wrote:

comm.ExecuteNonQuery()

and the following statement move above the connection.Open()

n_gchaitra wrote:

Dim comm As New SqlCommand(str, dbconn)

make the changes and First check that connection is successfully open or not regards, koolprasad2003:) Be a good listener...Because Opprtunity knoughts softly...N-Joy

[n_gchaitra]

How is it possible, use comm.executenonquey() before declaring comm? I get the following message near the word str i.e Dim comm As New SqlCommand(str, dbconn) var 'str' is used before it has been assigned a value. A null reference exception could result at runtime

Chaitra N

[n_gchaitra]

Hi, This function is working, 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

[n_gchaitra]

Hi, This function is working, 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