这是VB plz的代码在c#中解释。 [英] This is code of VB plz explain in 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$]"
推荐答案
_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& ;& _
扩展属性= Excel 8.0')... [STOCKINHAND
" _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& ;& _
扩展属性= Excel 8.0')... [LEDGER
" _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& ;& _
扩展属性= Excel 8.0')... [ITEMGROUP
" _Command.ExecuteNonQuery() _Command.CommandText = "SELECT * INTO tempitemgroup FROM " & _ "OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0', " & _ "'Data Source=" & stockpath & ";" & _ "Extended Properties=Excel 8.0')...[ITEMGROUP
这篇关于这是VB plz的代码在c#中解释。的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文