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

excel vba ¬d¸ß Sqlite¸ê®Æ®w(³]©w»P»yªk)½d¨Ò

excel vba ¬d¸ß Sqlite¸ê®Æ®w(³]©w»P»yªk)½d¨Ò

¥»©«³Ì«á¥Ñ joey0415 ©ó 2013-7-31 20:16 ½s¿è

¦Û¤v¸Õ¤F«Ü¤[¡A²×©ó¦¨¥\¤F¡Aºô¸ô¤W¥Hvba¾Þ§@sqliteªº¤å³¹«D±`¤Ö¡A©Ò¥Hµo­Ó¤å¨Ó¬ö¿ý¤@¤U

¤£¯à¶Çªþ¥ó¡Aªþ¤Wdorpbox³sµ²¤U¸ü

sqlite odbc driver­n¸Ë
http://www.ch-werner.de/sqliteodbc/

ªþ¤W½m²ß¸ê®Æ®w»Pexcel vba ÀÉ

https://dl.dropboxusercontent.com/u/40393708/sqlite/sqlite3.zip
  1. Sub select¿é¥X¦Üsheet1¤¤()
  2.     Dim cn, rs, f
  3.    
  4.     Set cn = CreateObject("adodb.connection")
  5.     '¶}±Òsqlite«ü©w¸ê®Æ®w¡A¸ô®|»PÀɮצWºÙ­n¹ï
  6.     cn.Open ("Driver={SQLite3 ODBC Driver};database=E:\joey.sqlite")
  7.     '¼g¥XSQL¬d¸ß»yªk
  8.     Set rs = cn.Execute("SELECT  *  FROM  home ")
  9.     Sheet1.Cells.Delete
  10.     For f = 0 To rs.fields.Count - 1
  11.         Sheet1.Cells(1, f + 1).Value = rs.fields(f).Name
  12.     Next
  13.     Sheet1.Cells(2, 1).CopyFromRecordset (rs)
  14.     cn.Close
  15. End Sub
½Æ»s¥N½X
  1. Sub insert()

  2.     Dim x
  3.     Dim sql_command As String
  4.     Dim connection_string As String
  5.    
  6.         Set x = CreateObject("adodb.recordset")
  7.         sql_command = "insert into home(name, age) values('mary','50') "
  8.         connection_string = ("Driver={SQLite3 ODBC Driver};database=E:\joey.sqlite")
  9.         x.Open sql_command, connection_string
  10.         Set x = Nothing
  11.    
  12. End Sub
½Æ»s¥N½X

¦^´_ 15# joey0415
¦hÁ¡I
§Ú¤]³\¤[¥¼¨Ï¥Î FireFox ¤F¡C

TOP

¦^´_ 13# c_c_lai

­è­è¸Ëªº¥u¬OÅX°Ê

³q±`³£¥Îfirefox ªº¥~±¾  sqlite  manager (¤£¥Î¿ú)¨Ó·s«Ø

TOP

¦^´_ 7# joey0415


   «z!®e¶q¦n¤j­C,Æg®@!
¤p§Ì¤U­Ó¤ë¨Ó¬ã¨s¤@¤U,©¡®É¦A³Â·ÐJ¤j¦h¦h«ü±Ð¤F!
PKKO

TOP

¦^´_ 11# joey0415
¥¦«Ø¥ßªº¸ê®Æ®w·|¦s©ñ¦b­þ¸Ì¡H

TOP

¦^´_ 11# joey0415
¦pªG­n·s¼W©Î­×§ï­n¦p¦ó¶i¦æ¡H

TOP

¦^´_ 10# c_c_lai

¿à¤j±z¦n¡I

¬Ý§Aªº¨t²Î¬O32ÁÙ¬O64¡A¿ï¾Ü¥¿½Tª½±µ¸Ë´N¥i¥H¥Î¤F
¥¦¥u¬OÅX°Êµ{¦¡

TOP

¦^´_ 1# joey0415
½Ð±Ð¤@¤U¦³Ãö Sqlite ­n¦p¦ó¥¿½T¦w¸Ë¡H
§Ú¤w¸g¤U¸üÁA¤@¨Ç®M¥ó¦p¹Ï¡G

§Ú°õ¦æ¤F sqliteodbc.exe ¥H¤Î sqliteodbc_w64.exe
¦ý¬O±µ¤U¨Ó­n¦p¦óÀ³¥Î¡H
±q¥¼±µÄ²¹L¥¦ÁٽЦh¦h«ü±Ð¡I

TOP

¦^´_ 5# PKKO

³Æ¥÷¤p§Ì¥Ø«e¬O¥Î gdrive ¨C¤Ñ¤W¶Ç¡A¥i¥H¦³³Æ¥÷°O¿ý ¤£¹L¥u¦³ 15gb

¥t¥~¦³§Oªº³nÅé¡A¥i¥H³]©w¨C¤Ñ³Æ¥÷¡A¥u¤£¹L³Æ¥÷¥X¨Óªº¬O³æ¤@ÀÉ¥÷

¦pªG­n¦P¨B³Æ¥÷¨ì§Oªº¸ê®Æ§¨orµwºÐ¡A¥i¥H¤Wºô¬d.bat¡A¼g¤@­Ó²³æªº¦P¨BÀɧY¥i¡A³]©w¶}¾÷±Ò°Ê¤§Ãþªº

TOP

¦^´_ 6# joey0415

¬Ý¤F joey0415¤jªº¹Ï´N¤F¸Ñ¤F¡A­ì¨Ó¬O¤èªk¤T¡A³o¬O¤p§Ì¤@¶}©lªº§@ªkxd
«¬¦¡¬°¡G¡]³æ¤@Table§Y1000~9000­ÓªÑ¡^
1.Table=¨C¤é¦æ±¡
2.Table=¨C¤é¸ê¨é
3.Table=¨C¤éªk¤H«ùªÑ
4.Table=¨C¤é¨é°Ó¶i¥X
5.Table=¶°«O®w¦s
6.Table=¨C¤ëÀ禬
7.Table=¨C©u°]³ø
8.Table=¨C¦~°]³ø

¤G¬P´Á«e­è±µÄ²sql¡AÁÙ¤£ª¾¹D·j´M»yªk¥i¥Hºâ³o»ò§Ö³t¡A©Ò¥H¤~§ï¬°¦U§OÀÉ®×
³Ìªñ§Q¥Î¤W¯Z®É¶¡±`±`¦b§äsql¸ê®Æ¡A­ì¨Ó¯Á¤Þ¡BÂù¬d¸ß¤]¬O«Ü­«­nªº¡]­è¶}©l¯uªº¤£À´@@¡^
µ²ªG¥»¨Ó¬d¤@µ§¸ê®Æ­n25s¡A¥[¤W¯Á¤Þ«á´NÅÜ3s¤F¡AµM«á¦b§ï¤@¤U´NÅÜ0.08s!!!
©Ò¥H³o¤G¤Ñªº»{¯u«ä¦Ò¡A«ç¼Ëªº¾ã²z¤è¦¡¤ñ¸û¦n¡A¥»¨­¨S¸I¹L³oÃþªºªF¦è¡A»yªk¤]¬Ý±o¨¯­W¡A´N¬O½d¥»¤@ª½¸Õ¤@ª½¸Õ~~
ÁÙ¦n  joey0415¤j ¥i¥HÀ°¦£¸Ñ´b¡A«D±`·PÁ±z:victory:

TOP

        ÀR«ä¦Û¦b : ¬°¤H³B¥@­n¤p¤ß²Ó¤ß¡A¦ý¤£­n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD