ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] excel vba (´¡¤J¸ê®Æ)insert ¶i sqlite ½wºC°ÝÃD

¦pªG¤j¤jÁÙ¦³§ó¦nªº¤èªk¡A½Ð¦^¤åÅý¤p§Ì¦h¾Ç²ß¡A³o¸ê®Æ¥i¬Oªá¤F«Ü¤[ªº®É¶¡¤~¬ð¯}ªº
joey0415 µoªí©ó 2013-8-7 16:10


¤p§Ì¤Þ¥Î§A¤W­zªº¤è¦¡¡A¤@ª½¶]¨ì²Ä500µ§§Y¥¢±Ñ
¥H¤U¬O¤p§Ìªº¤èªk¡A³t«×¦n¹³ÁÙ¦n¡A½d¦C 4000µ§¡A¦³¤ñ§A­ì¨Óªº¤@µ§¤@µ§§Ö¡A¦ýÀ³¸Ó¤ñ§Aªº¤@¦¸500µ§ºC
  1. Sub SQLite_insert()

  2. Sheets("SQL JOIN").Select
  3. SQLName = "D:\Dropbox\SQLite3\Stock.sqlite"

  4.     insert = "insert into Stock values"
  5.     ret = ""
  6.     ret = insert
  7.    
  8.     et = 113 '¾É¤Jªº¼ÐÃD¼Æ
  9.     rcnt = Range("A1").CurrentRegion.Rows.Count '­pºâ©Ò¦³ªº¦æ
  10.     xa = 3 '±q²Ä¤T¦æ¶}©l­pºâ

  11.             For j = xa To rcnt - 2
  12.                 zc = ""
  13.                     For i = 1 To et
  14.                         za = Cells(j, i)
  15.                             If za = "" Then 'ªÅ®æÂà´«
  16.                                 za = 0
  17.                                 
  18.                             ElseIf i = 2 Then '¤é´ÁÂà´«
  19.                                 If (Len(Split(za, "/")(1)) = 1) And (Len(Split(za, "/")(2)) = 1) Then
  20.                                     za = Split(za, "/")(0) & "-0" & Split(za, "/")(1) & "-0" & Split(za, "/")(2)
  21.                                 ElseIf Len(Split(za, "/")(1)) = 1 Then
  22.                                     za = Split(za, "/")(0) & "-0" & Split(za, "/")(1) & "-" & Split(za, "/")(2)
  23.                                 ElseIf Len(Split(za, "/")(2)) = 1 Then
  24.                                     za = Split(za, "/")(0) & "-" & Split(za, "/")(1) & "-0" & Split(za, "/")(2)
  25.                                 Else
  26.                                     za = Split(za, "/")(0) & "-" & Split(za, "/")(1) & "-" & Split(za, "/")(2)
  27.                                 End If
  28.                                 
  29.                             End If
  30.                         zc = zc & "'" & za & "',"
  31.                     Next i
  32.                 zc = Left(zc, Len(zc) - 1)  '§R°£³Ì«á¤@­Ó","
  33.                 rez = "(" & zc & ")"
  34.                 ret = ret & rez & ","
  35.             Next j
  36.         ret = Left(ret, Len(ret) - 1)  '§R°£³Ì«á¤@­Ó","
  37.         SqlImport = ret
  38.         
  39. Set cn = CreateObject("adodb.connection")
  40.     cn.Open ("Driver={SQLite3 ODBC Driver};database=" & SQLName) '¶}±Òsqlite«ü©w¸ê®Æ®w¡A¸ô®|»PÀɮצWºÙ­n¹ï
  41.     cn.Execute (SqlImport)
  42.     cn.Close
  43. Set cn = Nothing
  44. End Sub
½Æ»s¥N½X

TOP

¦^´_ 6# koshi0413

­è¤~¸Õ¤F¡@¢¶¢¸¢·¢²µ§¡A¢°¤ÀÄÁ
pythonªº for ¦n¹³¤ñ¸û§Ö  «¢«¢
¥i¬Oexecl ÁÙ¬O¦³¤è«K­pºâªº¦a¤è

TOP

¦^´_ 8# PKKO

P¤j
¤p§Ìªº¨Ò¤l´N¬O¥Î¸ò±z¤@¤Uªº¤èªk
®¦   vba¶]°j°é¬O¤£¬O¤ñ¸ûºC©O¡H
¤@¦¸500µ§«Ü§Ö
¤@¦¸7999µ§¡A¤@¤ÀÄÁ
µM«á¤@¦¸©Ê¥á¤J sqlite3

j¤jªº§å¦¸¤è¦¡¡A¦n¹³´N¬O 7999/500 ¡A¤À¬qªº¤@¦¸©Ê¥á¤J
¥u¬O¤p§Ì¤À¬q¥á¤J³£¥Xªù¡A7999/3000 ¡A¤]¤@¼Ë¥á¤£¶i¡A
«Ü©_©Ç¡A¤£ª¾¹D¬O¤£¬Osqlite3¤ÏÀ³®É¶¡ªº°ÝÃD¡A¤U¦¸¦³ªÅ, ¤¤¶¡¥á­Óµ¥«Ý¦n¤F
¤£¹L³o¼Ë¤@¨Ó¡A´N¸ò¤@¦¸©Ê7999°j°é®t¤£¦h®É¶¡¡H
­n¸Õ¸Õ~~

TOP

¥»©«³Ì«á¥Ñ koshi0413 ©ó 2016-12-31 14:34 ½s¿è

¦^´_ 10# PKKO

¥i§_½Ðp¤j¨ó§U¤@¤U¡A¬Ý¤p§Ìªº»yªk¬O¤£¬O¦³°ÝÃD  
¦]¬°¦b¶]  For j = 3 To rcnt  << ³Ì¦h·| 3 to 10000 °j°é³\¤[
za = cell(j,i) ¬O¬°¤FªÅ®æ&¦r¦ê§P§O¡A³o¦n¹³¤£³o¼Ëªº¸Ü¾É¤J¤é´Á³£¿ù»~¡AÁÙ¬O¥i¥H³o¼Ë  str("2016/03/03") ³o¼ËÂà´«¦¨¦r¦ê

¦Ü©ó¾É¤Jsqlite3 ¬O³o¦æ¡A¶}Ãö¤@¤U´Nµ²§ô¤F¡A¥Ø«eÃö¥d¦b °j°é¤Ó¤[ orz.....
Set cn = CreateObject("adodb.connection")
    cn.Open ("Driver={SQLite3 ODBC Driver};database=" & SQLName)
    cn.Close
Set cn = Nothing

ps:¤p§Ì¬Oµ{¦¡¥Õ·ö¡A¥þ¦Û¾Çªº¡A python¤ñ¸û¶¶¤â
  1. Sub SQLite_insert()

  2. Sheets("SQL JOIN").Select
  3. SQLName = "D:\Dropbox\SQLite3\StockAll.sqlite"

  4.     insert = "insert into StockAll values"
  5.     ret = ""
  6.     ret = insert
  7.         et = 114 '¾É¤Jªº¼ÐÃD¼Æ
  8.         rcnt = Range("A1").CurrentRegion.Rows.Count '­pºâ©Ò¦³ªº¦æ
  9.             For j = 3 To rcnt
  10.                 zc = ""
  11.                     For i = 1 To et
  12.                         za = Cells(j, i)
  13.                             If za = "" Then 'ªÅ®æÂà´«
  14.                                 za = 0
  15.                                 
  16.                             ElseIf i = 2 Then '¤é´ÁÂà´«
  17.                                 If (Len(Split(za, "/")(1)) = 1) And (Len(Split(za, "/")(2)) = 1) Then
  18.                                     za = Split(za, "/")(0) & "-0" & Split(za, "/")(1) & "-0" & Split(za, "/")(2)
  19.                                 ElseIf Len(Split(za, "/")(1)) = 1 Then
  20.                                     za = Split(za, "/")(0) & "-0" & Split(za, "/")(1) & "-" & Split(za, "/")(2)
  21.                                 ElseIf Len(Split(za, "/")(2)) = 1 Then
  22.                                     za = Split(za, "/")(0) & "-" & Split(za, "/")(1) & "-0" & Split(za, "/")(2)
  23.                                 Else
  24.                                     za = Split(za, "/")(0) & "-" & Split(za, "/")(1) & "-" & Split(za, "/")(2)
  25.                                 End If
  26.                                 
  27.                             End If
  28.                         zc = zc & "'" & za & "',"
  29.                     Next i
  30.                 zc = Left(zc, Len(zc) - 1)  '§R°£³Ì«á¤@­Ó","
  31.                 rez = "(" & zc & ")"
  32.                 ret = ret & rez & ","
  33.                 DoEvents
  34.             Next j
  35.         'MsgBox "¶]§¹°j°é"
  36.         ret = Left(ret, Len(ret) - 1)  '§R°£³Ì«á¤@­Ó","
  37.         SqlImport = ret
  38.         
  39. Set cn = CreateObject("adodb.connection")
  40.     cn.Open ("Driver={SQLite3 ODBC Driver};database=" & SQLName)
  41.     cn.Close
  42. Set cn = Nothing
  43. End Sub
½Æ»s¥N½X

TOP

p¤j¡A
('Bob','SHIT','TWN','SHIT2','SHIT3',2016-01-01," & 100 + i & ")"  << ³o¦æ¬O¤p§Ì¬Ý¤£À´ªº¦a¤è
®¦~~¬°¦ó¬Ý¤£À´¡A¬O¦]¬°¤p§Ì­n³v¦æ120­ÓÀx¦s®æ¬Ò¼g¤J¡A
ÁÙ¬O­n¼g¦¨  strSQL = "INSERT INTO customer VALUES (Range("A" & i),Range("B" & i),Range("C" & i),.......¦@120­Ó.......," & 100 + i & ")"
§Ú¦n¹³Æ[©À©Ç©Çªº@@
  1. Sub WRITE_SQL() '¼g¤J¸ê®Æ
  2. conn_connect'³o¬O©I¥s¶}±ÒSQL
  3. For i = 1 To 10000
  4.     strSQL = "INSERT INTO customer VALUES ('Bob','SHIT','TWN','SHIT2','SHIT3',2016-01-01," & 100 + i & ")" '¨C¤@¦Cªº»yªk
  5.     If i = 1 Then
  6.            strSQL2 = strSQL
  7.     Else
  8.            strSQL2 = strSQL2 & ";" & strSQL'±N»yªk³s±µ
  9.     End if
  10. Next
  11. Conn.Execute (strSQL2)'°õ¦æSQL
  12. End Sub
½Æ»s¥N½X

TOP

¦^´_ 13# PKKO

«z~~·s¦~§Ö¼Ö¡A¨S·Q¨ì¸ó¦~©]ÁÙ¦^¤å

«D±`ÁÂÁ­ò¡A¤p§Ì¥ý§ï¨Ó¸Õ¤@¤U¡A¦pªGÁÙºC¡A¦b¤W¨Ó½Ð±Ð~~~

©Ò¥H cells(i,j) ³t«× > Range("A" & i)   ³oÂI¤p§Ì­Ë¬O¤£ª¾¹D¡AÁÙ¥H¬°¤@¼Ë©O

TOP

¦^´_ 13# PKKO

P¤j¡A¤p§Ì³æ¿W§Ë¤F­Ó°j°é¨Ó¸Õ¡A¤@¼Ë­n¤@¤ÀÄÁ¤]¡H
¬O¤p§Ì§Ë¿ù¤F¹À

for i = 1 to 10000
cells(i.2) = i
next i

­n¦p¦ó§ï¦¨°}¦C©O¡H

TOP

¦^´_ 15# koshi0413
§ä¨ì±Ð¾Ç¤F¡AÁÂÁÂP¤j«üÂI^_^
https://dotblogs.com.tw/yc421206/archive/2008/12/20/6470.aspx

TOP

¦^´_ 13# PKKO

p¤j¡A¤µ¤Ñ¸Õ¤F¤@¤U¡A¤]¤£ª¾¹D¹ï¤£¹ï
¤@¼Ë 80¬í¡A¦n¹³³£¬O¥d¦b°j°é¡A¬O¤£¬O¤p§Ì¥Îªk§Ë¿ù°Õ¡A
https://dotblogs.com.tw/yc421206/archive/2008/12/20/6470.aspx  <<¦ý¬O·Ó³o­Óºô­¶ªº½d¨Ò¶]¬O«D±`§Öªº(16¬í)¡AºÃ°Ý

¦pªG¥i¥Hªº¸Ü¡A¥i¥H«ü¾É¤@¤U¹À¡H±z»¡ªº za=cells(j,i) §ï¦¨°}¦C¡A¹ê¦b¬O¸Õ¤£¥X¨Ó
  1.         myCols = Range("A2").CurrentRegion.Columns.Count '­pºâ©Ò¦³ªº¦C
  2.         myRows = Range("A1").CurrentRegion.Rows.Count    '­pºâ©Ò¦³ªº¦æ
  3.         ReDim myArray(1 To myRows, 1 To myCols)          '°ÊºA°}¦C
  4.             For j = 3 To myRows
  5.                 zc = ""
  6.                     For i = 1 To myCols
  7.                         myArray(j, i) = Cells(j, i)
  8.                         za = myArray(j, i)
  9.                             If za = "" Then 'ªÅ®æÂà´«
  10.                                 za = 0
  11.                                 
  12.                             ElseIf i = 2 Then '¤é´ÁÂà´«
  13.                                 za = Replace(za, "/", "-")

  14.                             End If
  15.                         zc = zc & "'" & za & "',"
  16.                     Next i
  17.                 zc = Left(zc, Len(zc) - 1)  '§R°£³Ì«á¤@­Ó","
  18.                 rez = "(" & zc & ")"
  19.                 ret = ret & rez & ","
  20.                 DoEvents
  21.             Next j
½Æ»s¥N½X

TOP

¦^´_ 18# PKKO

ªGµM¥Îªk¿ù¤F@@
ÁÂÁ p¤j«ü¾É¡A¤µ¤Ñ¤@®ð¤§¤U§Ë¤Fpython¨Ó¾É¤J¤F¡A¬ù10¬í
©ú¤Ñ¦A¨Ó¸Õvba°}¦C¡A«D±`·PÁ­ò!!!!!!

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD