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

[µo°Ý] EXCEL§å¦¸·s¼W¸ê®Æ¦ÜACCESS¥¢±Ñ

¦^´_ 2# yifan2599
§Aªºµ{¦¡½X ¥[¤W Debug.Print  ¦b§Y¥@¹Bºâµøµ¡,¬d¬Ý§Aªº¦¡¤l¿ù¦b­þ¸Ì
  1. strSQL = "Insert Into [DATA] Select *," & strVer & "As ª©¥» From [Excel 12.0;HDR=YES;DATABASE=" & ThisWorkbook.FullName & "].[ACC$" & DataAddr & "]"
  2. Debug.Print strSQL   
  3. Stop
  4. AdoConn.Execute strSQL
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD