¦p¦ó¥ÎVB6.0±Naccess¶×¥X¦¨excel
- ©«¤l
- 20
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 96
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¨Ó¦Û¥xÆW·s¥_É]
- µù¥U®É¶¡
- 2010-7-5
- ³Ì«áµn¿ý
- 2020-4-24
|
¦p¦ó¥ÎVB6.0±Naccess¶×¥X¦¨excel
·Q¥ÎVB³]p¤@Ó«ö¶s¡A±N±a¦³±K½XªºaccessÀÉ¡A¶×¥X¦¨excelÀÉ¡Aµ{¦¡¸Ó¦p¦ó¼¶¼g¡H§Úª¾¹D¦p¦ó³s±µ¸ê®Æ®w¤Î¥´¶}¡A¦ý´N¬O¤£¯à¶×¥X¡A½Ð°Ý¤U¦Cµ{¦¡¡A¨º¸Ì¦³»~¡HÁÂÁ¡K
----------------
Private Sub Command4_Click()
Dim db As Database
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb;Persist Security Info=False;Jet OLEDB:Database Password=1234"
Set db = Workspaces(0).OpenDatabase(App.Path & "\test.mdb")
db.Execute "SELECT * INTO [Excel 8.0;DATABASE=C:\pp\¶×¥X¸ê®Æ.XLS].[¶×¥X¸ê®Æ] FROM [´ú¸Õ¸ê®Æ]"
End Sub
------------------------------------------
¿ù»~°T®§¡GµLªk¿ëÃÑ test.mdb¸ê®Æ®w®æ¦¡¡K |
|
|
|
|
|
|