ªð¦^¦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 : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD