ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¦p¦ó¥ÎVB6.0±Naccess¶×¥X¦¨excel

¦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

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD