ªð¦^¦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¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD