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

[µo°Ý] SQL ¦p¦ó¦bVBA¤º ¤G¦¸¬d¸ß©O?

[µo°Ý] SQL ¦p¦ó¦bVBA¤º ¤G¦¸¬d¸ß©O?

¥Ø«e¥H³o¼Ë°µ¬°¤@¦¸¬d¸ß

½Ð°Ý­n«ç¼Ë¤~¯à±N strSql ¬d¸ß§¹ªº¸ê®Æ
¦A¥HRS¤ºªº¸ê®Æ ¶i¦æ¤G¦¸¬d¸ß©O?


  1. Dim rs As ADODB.Recordset 'Án©ú°O¿ý¶°¹ï¶H
  2. Dim strSql As String

  3. cnn.Open "provider=microsoft.ACE.oledb.12.0;Extended Properties=EXCEL 12.0;data source=" & ThisWorkbook.FullName

  4. strSql = " slect ½s¸¹,Ãþ«¬,«~¦W from ­ì©l¸ê®Æ where Ãþ«¬='¼Ò«¬'"

  5. rs.Open strSql, cnn, adOpenStatic
½Æ»s¥N½X

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD