ªð¦^¦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¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD