如何将listview的selected或checked项插入数据库 [英] How to insert the selected or checked item of listview to the database

问题描述

 如果 tBx1.Enabled =  True  然后 
 
  Dim  str  As  < span class =code-keyword>字符串 
 str =  插入WorkOrder（WorkOrderNo） ，状态，DateIssue，DateStarted，DateComplete，Milage，Type，Priority，CostCenter，PO＃，InvoiceNo，AssignedTo，Parts，Labor，Discount，Tax1，Tax2，Total，Note，Repair，Product，Laborname）值（&  CInt （tBx1.Text）&   ，'& Trim（cBx1.Text）&  '，' &  CDate （DTP1.Value）&  ' ，'&  C.日期（DTP2.Value）&  '，'&  CDate （DTP3.Value）&  '，&  CInt （tBx2.Text）&  ，'&修剪（cBx2.Text）&  '，'&修剪（cBx3.Text）&  '，'&修剪（cBx4.Text）&  '，&  CInt （tBx3.Text）&  ，&  CInt （tBx4.Text）&  ，& （cBx5.SelectedValue.ToString（））&  ，&  CInt （tBx5.Text）&  ，&  CInt （tBx6.Text）&  ，&  CInt （tBx7.Text）&  ，&  CInt （tBx8.Text）&  ，&  CInt （tBx9.Text）&  ，&  CInt （tBx10.Text）&  ，'&修剪（tBx11.Text）&  '，{0}，{1}，{2} ，'& （ListView1.CheckedItems（ 0 ）。Text）&  '，'& （ListView2.CheckedItems（ 0 ）。Text）&  '，'& （ListView3.CheckedItems（ 0 ）。Text）&  ' 
 致电 connect（）
  Dim  cd  As   New  System.Data.SqlClient.SqlCommand（str，cn）
 cd.Connection.Open（）
 cd.ExecuteNonQuery（）
 cd.Connection.Close（）
 MsgBox（ 工作订单成功发布）
 致电 lockall（）
 我 .Close（）
 致电 WorkOrderManagement.ListViewLoad（）
 调用 WorkOrderManagement.updatecombo1（）
 致电 WorkOrderManagement.updatecombo2（）
  Else  
 MsgBox（ 失败再试一次）
 结束 如果 

解决方案

< blockquote>尝试listView1.SelectedItems [0] .SubItems [2] .Text。

If tBx1.Enabled = True Then

            Dim str As String
            str = " insert into WorkOrder (WorkOrderNo, Status,DateIssue,DateStarted,DateComplete,Milage,Type,Priority,CostCenter,PO#,InvoiceNo, AssignedTo ,Parts,Labor,Discount,Tax1,Tax2,Total, Note,Repair,Product,Laborname) values(" & CInt(tBx1.Text) & ",'" & Trim(cBx1.Text) & "','" & CDate(DTP1.Value) & "','" & CDate(DTP2.Value) & "','" & CDate(DTP3.Value) & "'," & CInt(tBx2.Text) & ",'" & Trim(cBx2.Text) & "','" & Trim(cBx3.Text) & "','" & Trim(cBx4.Text) & "'," & CInt(tBx3.Text) & "," & CInt(tBx4.Text) & "," & (cBx5.SelectedValue.ToString()) & "," & CInt(tBx5.Text) & "," & CInt(tBx6.Text) & "," & CInt(tBx7.Text) & "," & CInt(tBx8.Text) & "," & CInt(tBx9.Text) & "," & CInt(tBx10.Text) & ",'" & Trim(tBx11.Text) & "',""{0}"", ""{1}"", ""{2}"",'" & (ListView1.CheckedItems(0).Text) & "', '" & (ListView2.CheckedItems(0).Text) & "','" & (ListView3.CheckedItems(0).Text) & "'"
            Call connect()
            Dim cd As New System.Data.SqlClient.SqlCommand(str, cn)
            cd.Connection.Open()
            cd.ExecuteNonQuery()
            cd.Connection.Close()
            MsgBox(" Work Order Is Issued Successfully ")
            Call lockall()
            Me.Close()
            Call WorkOrderManagement.ListViewLoad()
            Call WorkOrderManagement.updatecombo1()
            Call WorkOrderManagement.updatecombo2()
        Else
            MsgBox(" Failed Try Again ")
        End If

解决方案

Try listView1.SelectedItems[0].SubItems[2].Text.

这篇关于如何将listview的selected或checked项插入数据库的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！