- ©«¤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
 
|
¦^´_ 7# lpk187
lpk¤j¤j±z¦n,
º¥ý«D±`·PÁ±z,¥t¥~·Q½Ð±Ð¤@¤U:
±z¬O§_·|¥ÎSQL³s½u¦Ü¦³³]©w¶}±Ò±K½XªºEXCELÀɮשO?
¥H¤U¬O§Úªº»yªk(¥i³s½u¦ÜEXCELÀÉ®×,¥i¬O¤@¦ýEXCEL¦³³]©w¶}±Ò±K½X´NµLªk³s½u¤F,¤£ª¾¹Dn¦p¦ó¿é¤J¶}±Ò±K½X
¥i§_À°¤p§Ì¬Ý¤@¤U...- Public Conn As ADODB.Connection
- '«O¦s©M§ó·s°ò¦¸ê°T
- Public Sub Conn_conection()
- address1="EXCELÀɮצì¸m"
- If Conn Is Nothing Then Set Conn = New ADODB.Connection
- '¥H¤U«Ø¥ß¼Æ¾Ú®w³s±µ
- With Conn
- strConn = "Provider=Microsoft.ACE.OLEDB.12.0; Persist Security Info=False;" & _
- "Data Source=" & address1 & ";Extended Properties='Excel 12.0;IMEX=0'"
- .Open strConn
- End With
- End Sub
½Æ»s¥N½X |
|