- ©«¤l
- 549
- ¥DÃD
- 152
- ºëµØ
- 0
- ¿n¤À
- 691
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-8-10
- ³Ì«áµn¿ý
- 2022-9-7
|
[µ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...- Public Conn As ADODB.Connection
- '«O¦s©M§ó·s°ò¦¸ê°T
- Public Sub Conn_conection()
- address1 = Sheets("set").[b9]
- Application.ScreenUpdating = False
- If Conn Is Nothing Then Set Conn = New ADODB.Connection
- If Conn.State = 1 Then Exit Sub
- strConn = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
- "Data Source=" & address1 & ";Extended Properties=Excel 12.0;Database Password=XXXX"
- Conn.Open strConn
- End Sub
½Æ»s¥N½X |
|