-1

リストビュー コントロールから Microsoft SQL Server にデータを保存しようとしています。コードを実行してもエラーは表示されませんが、データはデータベースに保存されていません。誰かが私を助けてくれますか？

Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim con As New SqlConnection(InvoiceClass.GetConnectionString()) ' My Connection String
        con.Open()
        For Each item As ListViewItem In Lstview.Items
            Dim command As SqlCommand = New SqlCommand("SP_InvoiceSave", con)
            command.Parameters.AddWithValue("@ItemName", item.SubItems(0).Text)
            command.Parameters.AddWithValue("@Qty", item.SubItems(1).Text)
            command.Parameters.AddWithValue("@SellingPrice", item.SubItems(2).Text)
            command.CommandType = CommandType.StoredProcedure
            Dim adapter As SqlDataAdapter = New SqlDataAdapter(command)
        Next
        MsgBox("done")
    End Sub
4

1 に答える 1

2 
Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

            Dim con As New SqlConnection(InvoiceClass.GetConnectionString()) ' My Connection String
            'open connection
            con.Open()
            For Each item As ListViewItem In Lstview.Items
                Dim command As SqlCommand = New SqlCommand("SP_InvoiceSave", con)
                command.Parameters.AddWithValue("@ItemName", item.SubItems(0).Text)
                command.Parameters.AddWithValue("@Qty", item.SubItems(1).Text)
                command.Parameters.AddWithValue("@SellingPrice", item.SubItems(2).Text)
                command.CommandType = CommandType.StoredProcedure
                command.ExecuteNonQuery() 
            Next
            MsgBox("done")
            'closing connection
            conn.Close()

End Sub
于 2012-09-11T09:34:40.863 に答える