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

[µo°Ý] ¦p¦ó¥Îvba ³s½usql ¦Ü¦³¶}±Ò±K½XªºexcelÀÉ®×?

[µo°Ý] ¦p¦ó¥Îvba ³s½usql ¦Ü¦³¶}±Ò±K½XªºexcelÀÉ®×?

¥H¤Uµ{¦¡½X¥h°£±¼Database Password=XXXXªº±¡ªp¤U§Y¥iª½±µ³s½u¦ÜexcelÀÉ®×
¦ý·í§Ú¥[¤JDatabase Password=XXXX ¤§«á«oµLªk³s½u¤F
¹Á¸Õ¤F¦UºØ¤£¦Pªº¤è¦¡¥H¤Î¤Wºôª¦¤å,§ä¤£¨ì¬ÛÃö¸ê°T
§Ú¥i¥H³s½u¦Ü¦³±K½Xªºaccess,«oµLªk³s½u¦Ü¦³±K½Xªºexcel
·|¥X²{(§ä¤£¨ì¥i¦w¸ËªºISAM)¿ù»~°T®§...½Ð¦U¦ì¤j¤j¨ó§U...
  1. Public Conn As ADODB.Connection
  2. '«O¦s©M§ó·s°ò¦¸ê°T
  3. Public Sub Conn_conection()
  4. address1 = Sheets("set").[b9]
  5. Application.ScreenUpdating = False
  6. If Conn Is Nothing Then Set Conn = New ADODB.Connection
  7. If Conn.State = 1 Then Exit Sub
  8. strConn = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
  9.           "Data Source=" & address1 & ";Extended Properties=Excel 12.0;Database Password=XXXX"
  10. Conn.Open strConn
  11. End Sub
½Æ»s¥N½X
PKKO

        À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