Dim myDataSet As DataSet = New DataSet
Dim ConnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\2006.xls;Extended Properties=Excel 8.0"
Dim query As String = "SELECT * FROM [worksheet$]"
Dim oleCommand As OleDbCommand = New OleDbCommand(query, New OleDbConnection(ConnStr))
Dim oleAdapter As OleDbDataAdapter = New OleDbDataAdapter(oleCommand)
oleAdapter.Fill(myDataSet, "product")
Dim tb1 as datatable
tb1=mydataset.tables("product")
Dim drow as datarow
for each drow in tb1.rows
Dim con as sqlconnection
Dim cmd as sqlcommand
Dim strcmd as string
con=new sqlconnection(ConfigurationSettings.AppsettingS("cp"))
strcmd="insert product (Vid,Vendorname,TIIitem,FactoryitemID,Description,Producth,ProductW,ProductL,UM,Bag,Inners,MID,Cases,tcbm,Cuft,Fob,DutyP,DutyD,OtherFeeD,TotalFob,Lec,Lwc,P1,FSP,DifftoP1,LwctoP1,Fobadd,Loadingport,LT,Moqpcs,CaseDimensioncmL,CaseDimensioncmW,CaseDimensioncmH,InnerDimensioncmL,InnerDimensioncmW,InnerDimensioncmH,GROSSWEIGHTkg,GROSSWEIGHTLbs,M1,M2,M3,CaseDimensionInchL,CaseDimensionInchW,CaseDimensionInchH,InnerDimensionInchL,InnerDimensionInchW,InnerDimensionInchH) values (@Vid,@Vendorname,@TIIitem,@FactoryitemID,@Description,@Producth,@ProductW,@ProductL,@UM,@Bag,@Inners,@MID,@Cases,@tcbm,@Cuft,@Fob,@DutyP,@DutyD,@OtherFeeD,@TotalFob,@Lec,@Lwc,@P1,@FSP,@DifftoP1,@LwctoP1,@Fobadd,@Loadingport,@LT,@Moqpcs,@CaseDimensioncmL,@CaseDimensioncmW,@CaseDimensioncmH,@InnerDimensioncmL,@InnerDimensioncmW,@InnerDimensioncmH,@GROSSWEIGHTkg,@GROSSWEIGHTLbs,@M1,@M2,@M3,@CaseDimensionInchL,@CaseDimensionInchW,@CaseDimensionInchH,@InnerDimensionInchL,@InnerDimensionInchW,@InnerDimensionInchH)"
cmd=new sqlcommand(strcmd,con)
cmd.parameters.add("@vid",sqldbtype.varchar).value=drow("vid")
cmd.parameters.add("@vendorname",sqldbtype.varchar).value=drow("vendorname")
cmd.parameters.add("@tiiitem",sqldbtype.varchar).value=drow("tiiitem")
cmd.parameters.add("@factoryitemid",sqldbtype.varchar).value=drow("factoryitemid")
cmd.parameters.add("@description",sqldbtype.varchar).value=drow("description")
cmd.parameters.add("@producth",sqldbtype.varchar).value=drow("producth")
cmd.parameters.add("@productw",sqldbtype.varchar).value=drow("productw")
cmd.parameters.add("@productl",sqldbtype.varchar).value=drow("productl")
cmd.parameters.add("@um",sqldbtype.varchar).value=drow("u/m")
cmd.parameters.add("@bag",sqldbtype.varchar).value=drow("bag")
cmd.parameters.add("@inners",sqldbtype.varchar).value=drow("inner")
cmd.parameters.add("@Mid",sqldbtype.varchar).value=drow("Mid")
cmd.parameters.add("@cases",sqldbtype.varchar).value=drow("case")
cmd.parameters.add("@tcbm",sqldbtype.varchar).value=drow("tcbm")
cmd.parameters.add("@cuft",sqldbtype.varchar).value=drow("cuft")
cmd.parameters.add("@fob",sqldbtype.varchar).value=drow("fob")
cmd.parameters.add("@dutyp",sqldbtype.varchar).value=drow("Duty %")
cmd.parameters.add("@dutyd",sqldbtype.varchar).value=drow("Duty $")
cmd.parameters.add("@OtherFeeD",sqldbtype.varchar).value=drow("Other Fee $")
cmd.parameters.add("@TotalFob",sqldbtype.varchar).value=drow("Total FOB (Incl Duty & Fees)")
cmd.parameters.add("@Lec",sqldbtype.varchar).value=drow("lec")
cmd.parameters.add("@Lwc",sqldbtype.varchar).value=drow("Lwc")
cmd.parameters.add("@P1",sqldbtype.varchar).value=drow("P1")
cmd.parameters.add("@FSP",sqldbtype.varchar).value=drow("FSP")
cmd.parameters.add("@DifftoP1",sqldbtype.varchar).value=drow("% Diff to P1")
cmd.parameters.add("@LwctoP1",sqldbtype.varchar).value=drow("LWC % to P1")
cmd.parameters.add("@Fobadd",sqldbtype.varchar).value=drow("Fob+ 40%")
cmd.parameters.add("@Loadingport",sqldbtype.varchar).value=drow("Loadingport")
cmd.parameters.add("@LT",sqldbtype.varchar).value=drow("L/T")
cmd.parameters.add("@moqpcs",sqldbtype.varchar).value=drow("moqpcs")
cmd.parameters.add("@CaseDimensioncmL",sqldbtype.varchar).value=drow("Case DimensioncmL")
cmd.parameters.add("@CaseDimensioncmW",sqldbtype.varchar).value=drow("Case DimensioncmW")
cmd.parameters.add("@CaseDimensioncmH",sqldbtype.varchar).value=drow("Case DimensioncmH")
cmd.parameters.add("@InnerDimensioncmL",sqldbtype.varchar).value=drow("InnerDimensioncmL")
cmd.parameters.add("@InnerDimensioncmW",sqldbtype.varchar).value=drow("InnerDimensioncmW")
cmd.parameters.add("@InnerDimensioncmH",sqldbtype.varchar).value=drow("InnerDimensioncmH")
cmd.parameters.add("@GROSSWEIGHTkg",sqldbtype.varchar).value=drow("GROSS WEIGHT kg")
cmd.parameters.add("@GROSSWEIGHTLbs",sqldbtype.varchar).value=drow("GROSS WEIGHT (Lbs)")
cmd.parameters.add("@M1",sqldbtype.varchar).value=drow("M1")
cmd.parameters.add("@M2",sqldbtype.varchar).value=drow("M2")
cmd.parameters.add("@M3",sqldbtype.varchar).value=drow("M3")
cmd.parameters.add("@CaseDimensionInchL",sqldbtype.varchar).value=drow("CaseDimensionInchL")
cmd.parameters.add("@CaseDimensionInchW",sqldbtype.varchar).value=drow("CaseDimensionInchW")
cmd.parameters.add("@CaseDimensionInchH",sqldbtype.varchar).value=drow("CaseDimensionInchH")
cmd.parameters.add("@InnerDimensionInchL",sqldbtype.varchar).value=drow("InnerDimensionInchL")
cmd.parameters.add("@InnerDimensionInchW",sqldbtype.varchar).value=drow("InnerDimensionInchW")
cmd.parameters.add("@InnerDimensionInchH",sqldbtype.varchar).value=drow("InnerDimensionInchH")
con.open()
cmd.executenonquery()
con.close()
next
1 个解决方案
#1
帮顶....
#1
帮顶....