将checkedlistbox中的选中项插入SQL数据库。 [英] Insert checked items in checkedlistbox to SQL database.

问题描述

伙计们我想将checklistbox中的已检查项目保存到我的sql数据库中我设法获取已检查项目的字符串并将其保存在字符串变量中以确保我获取文本我将其显示在标签上但我不知道我怎么把它插入我的sql数据库。



我尝试过：

Guys i want to save checked items in my checkedlistbox to my sql databases i am managed to get the string of checked items and i saved it in a string variable to make sure that i am getting the text i displayed it on a label but i dont know how do i insert it in my sql database.

What I have tried:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click



        Dim connectionString As String = "Server=DESKTOP-V12PTAV ;Database=test ;User Id=sa ;Password=wills8877"
        Using conn As New SqlConnection(connectionString)
            conn.Open()
            Dim itemChecked As Object
            For Each itemChecked In CheckedListBox1.CheckedItems
                Dim str As String
                str = itemChecked.item("sem1").ToString
                Label1.Text = str
            Next
            conn.Close()

        End Using

推荐答案

我希望我没有忘记的东西

你应该使用交易，参数并尝试

I hope i did not forget something
you sould use transaction,parameters and try

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 

 try
            Dim connectionString As String = "Server=DESKTOP-V12PTAV ;Database=test ;User Id=sa ;Password=wills8877"
            Using conn As New SqlConnection(connectionString)
                conn.Open()
                Dim cmd as new System.Data.SqlCommand("insert into x (z) values (@z)",     conn) 
                cmd.Parameters.AddWithValue("@z", "")
                System.Data.SqlTransaction strns=conn.BeginTransaction()
                try
                    cmd.Transaction=strns
                    Dim itemChecked As Object
                    For Each itemChecked In CheckedListBox1.CheckedItems
                        Dim str As String
                        str = itemChecked.item("sem1").ToString
                        cmd.Parameters(0).value=str
                        cmd.ExecuteNonQuery
                        Label1.Text = str
                    Next
                    strns.Commit()
                Catch ex As Exception
                    strns.RollBack()
                    msgbox(ex.message)
                End Try
                strns.Dispose()
                cmd.dispose()
                conn.Close()
                conn.Dispose()
            Catch ex As Exception
                msgbox(ex.message)
            End Try
        End Using

这篇关于将checkedlistbox中的选中项插入SQL数据库。的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！