ホーム>ネットワークプログラミングチュートリアル>ASP チュートリアル

ASPは、データベースにExcelでデータのインポートを実装します

著者：Eve Cole 更新時間：2025-03-17 07:00:03

この記事では、ASPを使用してExcelからデータベースを参照する方法を要約しています。

ASPは、データベースにExcelでデータのインポートを実装します

  1. <％Response.CodePage = 65001％>
  2. <％response.charset = utf-8％>
  3. <％
  4. wenjian = request.form（select）
  6. 'ファイル拡張子を取得します
  7. ext = fileexec（wenjian）
  8. 'ファイル拡張を判断します
  9. Ifext <> xlSthen
  10. respons.write（<script> alert（ 'ファイルタイプが正しくない、検証してください！'）; window.location.href = 'index.html'; </script>）
  11. Response.End（）
  12. endif
  14. dimobjconn、objrs
  15. dimstrconn、strsql
  17. setobjconn = server.createObject（adodb.Connection）
  18. setobjrs = server.createObject（adodb.Recordset）
  20. excelfile = server.mappath（wenjian）
  21. 'excel2007の場合
  22. strconn = provider = microsoft.ace.oledb.12.0; dataSource =＆excelfile＆;＆extendedproperties = excel8.0;
  23. objconn.openstrconn
  25. strsql = select*from [sheet1 $]
  27. objrs.openstrsql、objconn、1,1
  28. objrs.movefirst
  30. ％> <！ - ＃includefile = conn.asp-> <％
  31. 'すべてのレコードをExcelでループします
  32. wherenotobjrs.eof
  34. setrs = server.createObject（adodb.Recordset）
  35. 'クエリステートメント
  36. sql_s = select*fromceshiwhere whereelname = '＆objrs（0）＆' andold = '＆objrs（1）＆'および '＆objrs（2）＆' andguojia = '＆objrs（3）＆' andqq = '＆objrs（4）＆' '' '
  37. rs.opensql_s、conn、1,1
  38. 「複製データを入力しないでください
  39. ifrs.eofthen
  40. 'ステートメントを挿入します
  41. '**** Excelの最初のアイテムは入力されません****
  42. sql = Intersintoceshi（lname、old、sex、guojia、qq）値（ '＆objrs（0）＆'、 '＆objrs（1）＆'、 '＆objrs（2）＆'、 '＆objrs（3）＆'、 '＆objrs （3）＆ '、'＆objrs（4）＆ '）
  43. '挿入を実行します
  44. conn.execute（sql）
  45. endif
  46. objrs.movenext
  47. rs.close
  48. setrs =何もない
  49. ウェンド
  51. 「もう一度閉じる時が来ました
  52. conn.close
  53. setConn =何もない
  54. objrs.close
  55. objconn.close
  56. setobjrs =何もない
  57. setobjconn =何もない
  59. Response.write（<script> alert（ 'Import ressultfully'）; window.location.href = 'index.html'; </script>））
  60. Response.End（）
  62. functionfileexec（filename）
  63. fileexec = mid（filename、instr（filename、。）+1、len（filename）-instr（filename、。））
  64. エンド機能
  65. ％>

コードの別の単純化バージョンを共有します

  1. wenjian = request.form（floor）
  2. fileext = mid（wenjian、instrrev（wenjian、。）+1）
  3. iflcase（fileext）<> xlSthen
  4. respons.write <script> alert（ 'ファイル形式が間違っている場合、excelファイルをアップロードしてください'）; window.location.href = 'updatefloor.asp'; </script>
  5. Response.End
  6. endif
  7. setConne = server.createObject（adodb.Connection）
  8. connstre = provider = microsoft.jet.oledb.4.0; dataSource =＆server.mappath（＆wenjian＆）＆; extendedproperties = 'excel8.0; hdr = yes; imex = 1';
  9. conne.openconnstre
  10. sqle = select*from [sheet1 $]
  11. setrse = server.createObject（adodb.recordset）
  12. rse.opensqle、conne、1,1
  13. '確認する
  14. ハング= 2
  15. Dowhilenottrse.eof
  16. 「名前を空にすることはできません
  17. iftrim（rse（0））<> then
  18. それ以外
  19. MESS =＆Hung＆Lineの名前は空です。チェックしてください！
  20. Response.Write <Script> Alert（ '＆Mess＆'）。window.location.href = 'updatefloor.asp' </scrip>
  21. Response.End（）
  22. endif
  23. rse.movenext
  24. ハング=ハング+1
  25. ループ
  26. rse.movefirst
  27. Dowhilenottrse.eof
  28. setrst = server.createObject（adodb.recordset）
  29. sqlt = select*fromsellman
  30. rst.opensqlt、conn、1,3
  31. rsst.addnew（）
  32. rst（companyname）= c2（rse（0））
  33. rst（companyinfo）= c2（rse（1））
  34. rst（address）= c2（rse（2））
  35. rst（tel）= c2（rse（3））&& c2（rse（7））
  36. rst（fax）= c2（rse（4））
  37. rst（linkman）= c2（rse（5））
  38. RST（HomePage）= C2（RSE（8））
  39. rst（email）= c2（rse（6））
  40. rsst.update（）
  41. rsst.close
  42. setrst =何もない
  43. rse.movenext
  44. ループ
  45. rse.close
  46. settrse = Nothing
  47. Response.Write <Script> alert（ 'Imported ressuletfully'）; location.href = 'updatefloor.asp'; </script>

実際、単にアクセスデータベースのように配置し、Excelファイルを開き、SQL Serverに書き込む場合は、書き込みプロセスを変更します。

コードを見てください：

  1. ディムコン
  2. dimconn2
  3. setConn = createObject（adodb.Connection）
  4. conn.openprovider = microsoft.jet.oledb.4.0; jetoledb：databasepassword =; dataSource = c：/book1.mdb
  6. setConn2 = createObject（adodb.Connection）
  7. conn2.openprovider = microsoft.jet.oledb.4.0; jetoledb：databasepassword =; extendedProperties = excel5.0; dataSource = c：/book1.xls
  10. sql = select*from [sheet1 $]
  11. setrs = conn2.execute（sql）
  12. wherenotrs.eof
  13. sql = IntersintIntoxxx（[a]、[b]、[c]、[d]）values（ '＆fixsql（rs（0））＆'、 '＆fixsql（rs（1））＆'、 '＆fixsql（rs（2））値（2 ））＆ '、'＆fixsql（rs（3））＆ '）
  14. conn.execute（sql）
  15. rs.movenext
  16. ウェンド
  18. conn.close
  19. setConn =何もない
  20. conn2.close
  21. setConn2 =何もない
  23. functionfixsql（str）
  24. Dimnewstr
  25. 新聞= str
  26. ifisnull（newtr）
  27. 新聞=
  28. それ以外
  29. 新聞=交換（newtr、 '、' '）
  30. endif
  31. fixsql = newtr
  32. エンド機能

関連記事