- ©«¤l
- 55
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 81
- ÂI¦W
- 0
- §@·~¨t²Î
- win
- ³nÅ骩¥»
- 10
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-5-15
- ³Ì«áµn¿ý
- 2018-11-1
|
¥»©«³Ì«á¥Ñ 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¤ñ¸û¶¶¤â- Sub SQLite_insert()
- Sheets("SQL JOIN").Select
- SQLName = "D:\Dropbox\SQLite3\StockAll.sqlite"
- insert = "insert into StockAll values"
- ret = ""
- ret = insert
- et = 114 '¾É¤Jªº¼ÐÃD¼Æ
- rcnt = Range("A1").CurrentRegion.Rows.Count 'pºâ©Ò¦³ªº¦æ
- For j = 3 To rcnt
- zc = ""
- For i = 1 To et
- za = Cells(j, i)
- If za = "" Then 'ªÅ®æÂà´«
- za = 0
-
- ElseIf i = 2 Then '¤é´ÁÂà´«
- If (Len(Split(za, "/")(1)) = 1) And (Len(Split(za, "/")(2)) = 1) Then
- za = Split(za, "/")(0) & "-0" & Split(za, "/")(1) & "-0" & Split(za, "/")(2)
- ElseIf Len(Split(za, "/")(1)) = 1 Then
- za = Split(za, "/")(0) & "-0" & Split(za, "/")(1) & "-" & Split(za, "/")(2)
- ElseIf Len(Split(za, "/")(2)) = 1 Then
- za = Split(za, "/")(0) & "-" & Split(za, "/")(1) & "-0" & Split(za, "/")(2)
- Else
- za = Split(za, "/")(0) & "-" & Split(za, "/")(1) & "-" & Split(za, "/")(2)
- End If
-
- End If
- zc = zc & "'" & za & "',"
- Next i
- zc = Left(zc, Len(zc) - 1) '§R°£³Ì«á¤@Ó","
- rez = "(" & zc & ")"
- ret = ret & rez & ","
- DoEvents
- Next j
- 'MsgBox "¶]§¹°j°é"
- ret = Left(ret, Len(ret) - 1) '§R°£³Ì«á¤@Ó","
- SqlImport = ret
-
- Set cn = CreateObject("adodb.connection")
- cn.Open ("Driver={SQLite3 ODBC Driver};database=" & SQLName)
- cn.Close
- Set cn = Nothing
- End Sub
½Æ»s¥N½X |
|