1. <%
  2. 'response.write ASC("+")&""&request("aaa")
  3. '<!--
  4. '程序名：   Grasp_InData.asp
  5. '程序功能：  导入导出管家婆库存商品类别EXCEL数据
  6. '       导入ACCESS单据
  7. '开发者：   Linyee
  8. '联系我：   QQ249033420
  9. 'Email:     mythinker@2911.net
  10. 'Home:      www.linyee.net  blog-hi.baidu.com/jiaguoxinzhi  blog.csdn.net/jiaguoxinzhi/
  11. '-->
  12. Dim SqlName
  13. SqlName =request.form("db")
  14. if SqlName="" then  SqlName="debnC"
  15. Dim SqlIp
  16. SqlIp   =request.form("svr")
  17. if SqlIp="" then  SqlIp="127.0.0.1"
  18. Dim SqlUser
  19. SqlUser =request.form("un")
  20. Dim SqlPass
  21. SqlPass =request.form("up")
  22. strPath =request.form("xls")
  23. 'response.write strPath
  24. 'strPath    ="E:/德标管业/_公司文件/类别.XLS"
  25. ExcelTbl=request.form("tbl")
  26. if ExcelTbl="" then  ExcelTbl="ptype"
  27. Dim Dx,DanType
  28. Dim G1,G2
  29. Dim     objConn1,objConn
  30. Dim     objRs1,objRs
  31. if request.form("daolu")="导入" and strPath<>""  then  call Command1_Click:response.end
  32. if request.form("daocu")="导出" and strPath<>""  then  call Command2_Click:response.end
  33. if request.form("daocuTxt")="导出" and strPath<>""  then  call Command3_Click:response.end
  34. call    ShowDiog
  35. ''将ACCES导出为文本
  36. Sub Command3_Click()
  37. ''SQL连接
  38. on error resume next
  39. 'ExcelTbl="查询_出货单"
  40. ''ACCESS连接
  41. Set objConn1 = server.CreateObject("ADODB.Connection")
  42. objConn1.Provider = "Microsoft.Jet.OLEDB.4.0   "
  43. objConn1.ConnectionString = "Data Source=" & strPath & ";Persist Security Info=False;Jet OLEDB:Database Password=123"
  44. objConn1.Open
  45. if err.number<>0 then response.write "2"&err.description:response.end
  46. Set objRs1 = server.CreateObject("ADODB.Recordset")
  47. objRs1.Open "select * from ["&ExcelTbl"]", objConn1, 1, 1
  48. Set Rs = server.CreateObject("ADODB.Recordset")
  49. if err.number<>0 then response.write "3"&err.description:response.end
  50. ''完全导入
  51. 'objConn.execute    "SELECT * INTO ptype FROM OPENROWSET('MICROSOFT.JET.OLEDB.4.0', 'Excel 5.0;HDR=YES;DATABASE="&strPath&"', "&ExcelTbl&"$) Rowset_1"
  52. ''导出数据  ;管家婆导出数据格式
  53. '管家婆辉煌版8.x
  54. '单序 P   进货单 科号  现    金  单位号 单位  人员号 人员  主仓库 仓库号 单号  2008-09-01  摘要
  55. '单序 P1  空白  编号  名称  数量  进货价 进货额 折让  进货价 进货额 税点  进货价 税金  备注
  56. '1  A   101 现    金  100480.6    '会计科目实收实付
  57. 'EXCEL表头
  58. '00 01  02  03  04  05  06  07  08  09  10  11  12  13  14  15  16
  59. '编号 序号  名称  颜色  规格  单位  数量  零售价 进货价 进货额 件量  备注  单号  日期  类别  件数  业务员
  60. '版本题头
  61. Dx=(right("0000000000"&objrs1(12),5))   '单号后四位
  62. if not isnumeric(Dx) then Dx=(left(right(objrs1(12),5),4))"01":err.clear   '单号后四位
  63. response.write "管家婆辉煌版8.x"      '摘要
  64. response.write vbcrlf       '换行
  65. '单据摘要
  66. call    WriteTitle
  67. if err.number<>0 then response.write "4"&err.description:response.end
  68. while not objrs1.eof
  69. if objrs1(2)="合计" then
  70. '1  A   101 现    金  100480.6    '会计科目实收实付
  71. '未收不建立会计科目实收实付
  72. if IsNumeric(objrs1(6)) then
  73. response.write dx&vbtab     '单序
  74. response.write "A"&vbtab    '标识
  75. response.write "101"&vbtab  '结算编号
  76. response.write "现    金"&vbtab   '现    金
  77. response.write objrs1(6)&vbtab  '数量当实收实付
  78. 'response.write (0-objrs1(9))&vbtab '数量为空时则置负
  79. response.write vbcrlf       '换行
  80. end if
  81. objRs1.movenext
  82. if objRs1.eof then response.end '如果是结束就就束
  83. '版本题头
  84. Dx=(right(objrs1(12),5))    '单号后四位
  85. if not isnumeric(Dx) then Dx=(left(right(objrs1(12),5),4))"01":err.clear   '单号后四位
  86. 'response.write "管家婆辉煌版8.x"     '摘要
  87. 'response.write vbcrlf      '换行
  88. '单据摘要
  89. call    WriteTitle
  90. end if
  91. '记录生成
  92. if objrs1(6)<>"" then call  WriteRecord
  93. objRs1.movenext
  94. wend
  95. response.write ";导入完成！"
  96. End Sub
  97. '写记录
  98. sub WriteRecord()
  99. response.write dx&vbtab     '单序
  100. response.write "P1"&vbtab   '标识
  101. response.write ""&vbtab     '空白
  102. response.write objrs1(1)&vbtab  '编号
  103. response.write objrs1(2)&vbtab  '名称
  104. response.write objrs1(6)&vbtab  '数量
  105. response.write objrs1(8)&vbtab  '进货价
  106. response.write objrs1(9)&vbtab  '进货额
  107. response.write "1"&vbtab    '折让
  108. response.write objrs1(8)&vbtab  '进货价
  109. response.write objrs1(9)&vbtab  '进货额
  110. response.write "0"&vbtab    '税点
  111. response.write objrs1(8)&vbtab  '进货价
  112. response.write "0"&vbtab    '税金
  113. response.write objrs1(11)   '备注
  114. response.write vbcrlf       '换行
  115. End Sub
  116. '写表头
  117. sub WriteTitle()
  118. response.write dx&vbtab     '单序
  119. response.write "P"&vbtab    '标识
  120. if instr(ExcelTbl,"进货") then
  121. DanType="JH"
  122. if objrs1(6)<0 then
  123. response.write "进货退货"&vbtab '进货单
  124. DanType="JHT"
  125. else
  126. response.write "进货单"&vbtab  '进货单
  127. end if
  128. else
  129. DanType="DB"
  130. if objrs1(6)<0 then
  131. response.write "销售退货"&vbtab '进货单
  132. DanType="DBT"
  133. else
  134. response.write "销售单"&vbtab  '进货单
  135. end if
  136. end if
  137. response.write "101"&vbtab  '结算编号
  138. response.write "现    金"&vbtab   '现    金
  139. response.write ""&vbtab     '单位编号
  140. if objrs1(11)<>"" then
  141. response.write objrs1(11)&vbtab '单位
  142. else
  143. response.write "德标"&vbtab   '业务
  144. end if
  145. response.write ""&vbtab '人员号
  146. if objrs1(16)<>"" then
  147. response.write objrs1(16)&vbtab '业务
  148. else
  149. response.write "公司"&vbtab   '业务
  150. end if
  151. response.write "主仓库"&vbtab  '仓库
  152. response.write "001"&vbtab  '仓库号
  153. response.write DanType&objrs1(12)&vbtab '单号
  154. G1=split(""&objrs1(13),"-")
  155. G2=G1(0)"-"&right("00"&G1(1),2)"-"&right("00"&G1(2),2)
  156. response.write G2&vbtab '日期
  157. response.write ""       '摘要
  158. response.write vbcrlf       '换行
  159. End Sub
  160. '商品库类别字段
  161. 'ID 父ID 级/进深    子类数 1级子数    修改？ 编号  条码  名称  简称  规格  型号  产地
  162. '单位 单位2 关系1 关系2 价1  价2  价3  零价  保质月 保质天 备注  价X  删除？
  163. '加权等    PinYin  顺序上 顺序下 自动数 父级数 价X1 最低价 索引
  164. ''将EXCEL导入到SQL中
  165. Sub Command1_Click()
  166. ''SQL连接
  167. Dim     connStr
  168. on error resume next
  169. Set objConn = server.CreateObject("adodb.connection")
  170. objConn.ConnectionTimeout = 60
  171. objConn.CommandTimeout = 60
  172. objConn.CursorLocation = 3
  173. connStr="Provider=SQLOLEDB.1;Persist Security Info=False;User ID="&SqlUser";Password="&SqlPass";Initial Catalog=" & SqlName & ";Data   Source=" & SqlIp & ""
  174. objConn.Open connStr
  175. 'response.write connStr
  176. if err.number<>0 then response.write "0"&err.description:response.end
  177. objConn.execute "delete from "&ExcelTbl" where 1=1 "   '先清空商品表
  178. Set objRs = server.CreateObject("ADODB.Recordset")
  179. objRs.Open "select * from "&ExcelTbl" where 0=1", objConn, 3, 3
  180. if err.number<>0 then response.write "1"&err.description:response.end
  181. ''EXCEL连接
  182. Set objConn1 = server.CreateObject("ADODB.Connection")
  183. objConn1.Provider = "Microsoft.Jet.OLEDB.4.0   "
  184. objConn1.ConnectionString = "Data Source=" & strPath & ";" & "Extended Properties=Excel 8.0;"
  185. objConn1.Open
  186. if err.number<>0 then response.write "2"&err.description:response.end
  187. Set objRs1 = server.CreateObject("ADODB.Recordset")
  188. objRs1.Open "select * from ["&ExcelTbl"$]", objConn1, 1, 1
  189. if err.number<>0 then response.write "3"&err.description:response.end
  190. Set Rs = server.CreateObject("ADODB.Recordset")
  191. ''完全导入
  192. 'objConn.execute    "SELECT * INTO ptype FROM OPENROWSET('MICROSOFT.JET.OLEDB.4.0', 'Excel 5.0;HDR=YES;DATABASE="&strPath&"', "&ExcelTbl&"$) Rowset_1"
  193. ''导入数据
  194. Dim Pid
  195. while not objrs1.eof
  196. objRs.addnew
  197. for fori=0 to objRs.fields.count-1
  198. 'response.write fori&"|"    '调试用于查看哪个字段不正确
  199. if fori<>30 and fori<>31 then   '30自动编号
  200. objRs(fori)=objRs1(fori)
  201. end if
  202. if fori=31 then '30自动编号
  203. rs.open "select [Rec] from "&ExcelTbl" where typeId='"&objRs1(1)"'",objConn, 1, 1
  204. objRs(31)=rs(0)
  205. rs.close
  206. end if
  207. next
  208. response.write "导入"&objRs(0)"完成！"
  209. objRs.update
  210. objRs.Requery
  211. 'objRs.movenext
  212. objRs1.movenext
  213. wend
  214. response.write "导入完成！"
  215. End Sub
  216. ''将SQL中导出到EXCEL
  217. Sub Command2_Click()
  218. ''EXCEL连接
  219. on error resume next
  220. Set objConn = server.CreateObject("ADODB.Connection")
  221. objConn.Provider = "Microsoft.Jet.OLEDB.4.0   "
  222. objConn.ConnectionString = "Data Source=" & strPath & ";" & "Extended Properties=Excel 8.0;"
  223. objConn.Open
  224. if err.number<>0 then response.write "1"&err.description:response.end
  225. ''SQL连接
  226. Set objConn1 = server.CreateObject("adodb.connection")
  227. objConn1.ConnectionTimeout = 60
  228. objConn1.CommandTimeout = 60
  229. objConn1.CursorLocation = 3
  230. objConn1.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID="&SqlUser";Password="&SqlPass";Initial Catalog=" & SqlName & ";Data   Source=" & SqlIp & ""
  231. if err.number<>0 then response.write "2"&err.description:response.end
  232. Set objRs = server.CreateObject("ADODB.Recordset")
  233. objRs.Open "select   *   from   ["&ExcelTbl"1$]", objConn, 3, 3
  234. Set objRs1 = server.CreateObject("ADODB.Recordset")
  235. objRs1.Open "select   *   from   "&ExcelTbl"", objConn1, 1, 1
  236. if err.number<>0 then response.write "3"&err.description:response.end
  237. Dim i
  238. Dim strValue  '存放内容
  239. Dim strTitle  '存放表头
  240. Dim strSql
  241. ''导入题头
  242. objRs.addnew
  243. for fori=0 to objRs.fields.count-1
  244. 'response.write fori&"</br>"    '调试用于查看哪个字段不正确
  245. objRs(fori)=objRs1(fori).name
  246. next
  247. response.write "导出题头"&objrs1(0)"完成！"
  248. objRs.update
  249. 'objRs.movenext
  250. while not objrs1.eof
  251. objRs.addnew
  252. for fori=0 to objrs1.fields.count-1
  253. 'response.write fori&"</br>"    '调试用于查看哪个字段不正确
  254. 'if fori<>30 then   '30自动编号
  255. objRs(fori)=objRs1(fori)
  256. 'end if
  257. next
  258. response.write "导出"&objrs1(0)"完成！"
  259. objRs.update
  260. 'objRs.movenext
  261. objRs1.movenext
  262. 'if err.number<>0 then response.write "4-"&fori&err.description:response.end
  263. wend
  264. response.write "导出完成！"
  265. End Sub
  266. %>
  267. <%
  268. %>
  269. <%sub   ShowDiog()%>
  270. <form action="" method="post" enctype="application/x-www-form-urlencoded" name="form1">
  271. <table width="98%"  border="1">
  272. <tr>
  273. <td>EXCEL文件</td>
  274. <td><input name="xls" type="file" size="80" path="<%=strPath%>"></td>
  275. </tr>
  276. <tr>
  277. <td>SQL</td>
  278. <td>服务器
  279. <input name="svr" type="text" value="<%=SqlIp%>">
  280. 数据库
  281. <input name="db" type="text" value="<%=SqlName%>">
  282. 用户
  283. <input name="un" type="text" value="sa">
  284. 口令
  285. <input name="up" type="password" value="jiaguo">
  286. </td>
  287. </tr>
  288. <tr>
  289. <td> </td>
  290. <td>表名：
  291. <input name="tbl" type="text" id="tbl" value="<%=ExcelTbl%>">
  292. 本操作仅适用于本机导入，因管家婆2005辉煌版数据导入所需而做，用于其它地方可能会产生错误。</td>
  293. </tr>
  294. <tr>
  295. <td><a href="?">返回</a></td>
  296. <td align="center">EXCEL
  297. <input name="daolu" type="submit" id="daolu" value="导入">
  298. 到SQL
  299. <input name="daocu" type="submit" id="daocu" value="导出">
  300. 到EXCEL ACCESS
  301. <input name="daocuTxt" type="submit" id="daocuTxt" value="导出">
  302. 导出为文本</td>
  303. </tr>
  304. <tr>
  305. <td>说明</td>
  306. <td valign="middle"><p>1、商品类别，表名ptype。</p>
  307. <p>2、草稿单据，从ACCESS导出，有“进货”字样为进货，其它为出货。导出后，查看源代码另存为文本即可用于管家婆的单据导入，省却对表的直接操作。</p></td>
  308. </tr>
  309. </table>
  310. </form>
  311. <%End Sub%>

任我行/管家婆 导入EXCEL ACCESS数据相关推荐

  1. php导入excel表格数据,php页面导入excel表格数据-php导入excel 怎么获取excel表格数据...

    PHP如何导出当前页面中的表格至Excel 常用的用PHP读取EXCEL的方法有以下三种,各自有各自的优缺点.个人推荐用第三种方法,因为它可以跨平台使用. 1. 以.csv格式读取 将.xls转换成. ...

  2. php excel导入数据库显示乱码,php修改excel表格数据库数据格式-使用phpexcel导入excel表格数据到MYSQL，乱码怎么解决...

    PHP 用PHPExcel往数据库导入大量数据 估计0是null,所以不显示了,可以换个思路,让他显示为字符串 $number = 0; echo ''.$number 原生PHP代码实现excel导 ...

  3. vue下载excel表格模板和导入excel表格数据

    vue下载excel表格模板和导入excel表格数据 vue制作excel表格模板给前端下载 vue制作excel表格模板给前端下载 最近有个需求,需要导入excel表格,并且还需要制作模板给用户下载 ...

  4. php页面导入excel表格,php页面导入excel表格数据：php导入excel 怎么获取excel表格数据...

    导入excel文件,后端php处理导入的数据并存入数据库,需要前后端结合的demo! thinkphp3.2phpexcel导入最基本用法 先整个最基础的代码,理解了这个,后面非常简单了 $file_ ...

  5. 导入Excel表格数据(一)

    开发工具与关键技术:VS+导入Excel表格 作者: 李伙 撰写时间: 2019年6月3日 在学习MVC过程中,如果我们需要录入某条数据时可以利用新增的方法把我们的数据录入进去,而录入的数据比较多的时 ...

  6. java操作mysql导表_Java实现批量导入excel表格数据到数据库中的方法

    本文实例讲述了Java实现批量导入excel表格数据到数据库中的方法.分享给大家供大家参考,具体如下: 1.创建导入抽象类 package com.gcloud.common.excel; impor ...

  7. 解决如何使用layui导入Excel表数据

    解决如何使用layui导入Excel表数据 1.前端页面html代码展示 <button type="button" lay-submit="" clas ...

  8. SQL Server 与 Excel,Access 数据表的导入导出(注：参照博园.NET大观)

    我们知道在Sql Server 中 集成了数据的导入导出这么一个工具,那用Sql 脚本怎么轻松操作 Access 和 Excel 中的数据呢,接下来我们看一看: 一. SQL SERVER 和EXCE ...

  9. Asp.net 批量导入Excel用户数据功能加强版

    平时我们用Asp.net导入用户,一般是提供一个用户Excel表的模板,实际导入数据时并非有些人愿意按你的模版制表,因此对Asp.net导入功能进行加强,可以导入非模版化的Excel数据,并且支持一次 ...

最新文章

  1. 人脸关键点 姿态笔记
  2. WWW 2021 | Radflow: 可进行数十万节点的多变量时序预测模型
  3. SAP Spartacus unit detail 页面显示后自动 focus 设置的原理
  4. C语言学习笔记---一个简单的文件压缩示例
  5. oracle表空间管理sql,oracle表空间管理维护
  6. 概率模型中的 报童问题 matlab求解
  7. 服务器损坏文件怎么办,“该文件可能已损坏或者文件所在的服务器没有响应或者该文件是只读的”怎么解决？...
  8. linux系统清理磁盘空间
  9. 带宽单位和下载速度的换算
  10. 什么是云服务举例说明_云服务器与云服务有什么区别
  11. 前端面试技巧和注意事项
  12. 深度学习小白入门教程（一）：以英雄联盟为例，爬取你感兴趣图片，构建你自己的数据集
  13. 从 git 的历史记录中彻底删除文件或文件夹
  14. 「项目管理」甘特图制定项目计划的方法
  15. Java架构师之旅（二十九 附录《MyBatis3 用户指南》中文版）
  16. 冰点还原精灵7.0密码忘记的解决方案
  17. 深度学习 warmup 策略
  18. ffmpeg将gif转换成mp4
  19. 多项式根的因式分解理论.
  20. 脾胃不好，有哪些在家可以做的暖胃汤方？

热门文章

  1. sr650服务器 支持100兆,ThinkSystem SR650 - 联想服务器配置参数
  2. 前端js获取当前时间的方法
  3. NLP考题：为什么中文分词比英文分词更难？有哪些常用算法？（附代码）
  4. vs2019 无法导入 Web 服务/架构。对象“Settings”已包含一个不是 WebServiceUrl 类型的属性
  5. python selenium 获取frame中的元素
  6. 从0开始手写一个类似Linux的操作系统
  7. GRE数学入门级词汇
  8. mongo模糊查询时字段转义
  9. 【订单编号工具类 java】
  10. soundtouch分析