ªð¦^¦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 : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD