ªð¦^¦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 : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD