这是VB plz的代码在c＃中解释。 [英] This is code of VB plz explain in c#.

查看：78 发布时间：2019/6/7 22:58:57 C#

本文介绍了这是VB plz的代码在c＃中解释。的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

Private Sub btnIMPORT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIMPORT.Click
        Try
            _Command = New SqlClient.SqlCommand
            _Command.Connection = cnn
            OPENCONNECTION()
            _TR = cnn.BeginTransaction(IsolationLevel.ReadCommitted)
            _Command.Transaction = _TR
            _Command.CommandText = "Drop Table  tempitemmaster"
            _Command.ExecuteNonQuery()
            _Command.CommandText = "Drop Table  tempstockinhand"
            _Command.ExecuteNonQuery()
            _Command.CommandText = "Drop Table  templedger"
            _Command.ExecuteNonQuery()
            _Command.CommandText = "Drop Table  tempitemgroup"
            _Command.ExecuteNonQuery()
            _Command.CommandText = "Drop Table  tempitemsubgroup"
            _Command.ExecuteNonQuery()
            _Command.CommandText = "SELECT ITEMID,UNITID,ITEM,OPQTY,DESCRIPTION,TAXRATE,DISCOUNT,SALEPRICE,PDISCOUNT,PURCHASEPRICE,OVERHEADCHARGESPER,OVERHEADCHARGES,COSTPRICE,CPCODE,STATUS INTO tempitemmaster FROM " & _
                "OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0', " & _
                "'Data Source=" & stockpath & " ;" & _
                "Extended Properties=Excel 8.0')...[ITEM_MASTER$]"
            _Command.ExecuteNonQuery()
            _Command.CommandText = "SELECT STOCKINHANDID,COMPANYID,LEDGERID,ITEMSUBGROUPID,ITEMID,UNITID,BATCHNO,LEDGERCODE,ITEMSUBGROUPCODE,PACKINGNOTNO,RANKNO,ITEMCODE,BARCODE,OPENINGQTY,QTY,FREEQTY,CURRENTSTOCK,STATUS INTO tempstockinhand FROM " & _
              "OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0', " & _
              "'Data Source=" & stockpath & ";" & _
              "Extended Properties=Excel 8.0')...[STOCKINHAND$]"
            _Command.ExecuteNonQuery()
            _Command.CommandText = "SELECT * INTO templedger FROM " & _
            "OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0', " & _
            "'Data Source=" & stockpath & ";" & _
            "Extended Properties=Excel 8.0')...[LEDGER$]"
            _Command.ExecuteNonQuery()
            _Command.CommandText = "SELECT * INTO tempitemgroup FROM " & _
          "OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0', " & _
          "'Data Source=" & stockpath & ";" & _
          "Extended Properties=Excel 8.0')...[ITEMGROUP$]"
            _Command.ExecuteNonQuery()
            _Command.CommandText = "SELECT * INTO tempitemsubgroup FROM " & _
       "OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0', " & _
       "'Data Source=" & stockpath & ";" & _
       "Extended Properties=Excel 8.0')...[ITEMSUBGROUP$]"
            _Command.ExecuteNonQuery()
            _TR.Commit()
            CLOSECONNECTION()
        Catch ex As Exception
            _TR.Rollback()
            CLOSECONNECTION()
            cnn1.Close()
            MsgBox(ex.Message)
        End Try

        Try
            _DTABLE = New DataTable
            Dim command1 As New SqlCommand("Select * from tempitemmaster", cnn1)
            cnn1.ConnectionString = cnn.ConnectionString
            _Adapter = New SqlClient.SqlDataAdapter(Command1)
            _Adapter.Fill(_DTABLE)

            Dim _DTABLE1 = New DataTable
            Dim command2 As New SqlCommand("Select * from tempstockinhand", cnn1)
            cnn1.ConnectionString = cnn.ConnectionString
            _Adapter = New SqlClient.SqlDataAdapter(command2)
            _Adapter.Fill(_DTABLE1)

            _Command = New SqlClient.SqlCommand
            _Command.Connection = cnn
            OPENCONNECTION()
            _TR = cnn.BeginTransaction(IsolationLevel.ReadCommitted)
            _Command.Transaction = _TR
            _Command.CommandText = "DELETE LEDGER"
            _Command.ExecuteNonQuery()
            _Command.CommandText = "DELETE ITEMGROUP"
            _Command.ExecuteNonQuery()
            _Command.CommandText = "DELETE ITEMSUBGROUP"
            _Command.ExecuteNonQuery()
            _Command.CommandText = "insert  INTO LEDGER SELECT LEDGERID,COMPANYID,LEDGERSUBGROUPID,LEDGERTYPEID,NAME,SHORTCODE,OPENINGBALANCEDR,OPENINGBALANCECR,ADDRESS1,ADDRESS2,PARTY_DL_NO,PHONE2,MOBILE,EMAIL,FAX,CITY,STATE,COUNTRY,TINNO,STNO,CSTNO,CONT_PERSON,DESIG,EDITALLOWED,PAYMENTDAYS,PANNO,LEDGERCODE  FROM templedger"
            _Command.ExecuteNonQuery()
            _Command.CommandText = "insert  INTO ITEMGROUP SELECT ITEMGROUPID,ITEMGROUP,GROUPCODE  FROM tempitemgroup"
            _Command.ExecuteNonQuery()
            _Command.CommandText = "insert  INTO ITEMSUBGROUP SELECT ITEMSUBGROUPID,ITEMGROUPID,ITEMSUBGROUP,ITEMSUBGROUPCODE,UNITID,CST,TAXRATE,DISCOUNT,PDISCOUNT,STATUS  FROM tempitemsubgroup"
            _Command.ExecuteNonQuery()

我尝试了什么：

我不明白要做到这一点..

What I have tried:

am not understand how to do this..

_Command.CommandText = "SELECT * INTO templedger FROM " & _
           "OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0', " & _
           "'Data Source=" & stockpath & ";" & _
           "Extended Properties=Excel 8.0')...[LEDGER$]"

这是VB plz的代码在c＃中解释。 [英] This is code of VB plz explain in c#.

问题描述

推荐答案

相关文章

其他开发语言最新文章

热门教程

热门工具

登录关闭

这是VB plz的代码在c＃中解释。 [英] This is code of VB plz explain in c#.

问题描述

推荐答案

相关文章

其他开发语言最新文章

热门教程

热门工具

登录 关闭

登录关闭