Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

²ËÄñÇóÖú£¬ÔõÑù°ÑexcelÎļþµ¹Èëµ½accessÊý¾Ý¿âÈ¥

²ËÄñÇóÖú£¬ÔõÑù°ÑexcelÎļþµ¹Èëµ½accessÊý¾Ý¿âÈ¥£¬Çë¸ßÊÖÖ¸µã°¢£¡£¡ÓÐûÓдúÂë°¢£¡£¡
Á¬½ÓÁ½¸öÊý¾Ý¿â£¬Ò»¸öselect Ò»¸öinsert
¾ßÌå´úÂë×Ô¼ºËÑË÷

ÎÒÒ²¸ÕÔÚѧϰ,ÍøÉÏÕÒµÄ. ¿ÉÒԲο¼Ï¡£
<%@LANGUAGE="VBscript" CODEPAGE="936"%>
<%'sql Á¬½ÓÇý¶¯
dim conn,connstr,mdb
time1=timer


'AccessÊý¾Ý¿â£¬Á¬½ÓÇý¶¯
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
Set conn = Server.Createobject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "Êý¾Ý¿âÁ¬½Ó³ö´í£¬Çë¼ì²éÁ¬½Ó×Ö´®¡£"
Response.End
End If

sub closedb()
conn.close
set conn=nothing
end sub
 

  Dim    StrConnect,cc 
  Dim    objConn 
  Dim    rs 
  Dim    Sql 
  cc=0
  'ExcelÁ¬½ÓÇý¶¯
  set StrConnect=CreateObject("ADODB.Connection")
  strAddr1 = Server.MapPath("srcc.xls")
  '´ò¿ªexcelÊý¾ÝÔ´
  StrConnect.open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & strAddr1
  set objConn=CreateObject("ADODB.Connection")


Ïà¹ØÎÊ´ð£º

ACCESSÊý¾Ý¿âÓëVB¿ª·¢µÄÈí¼þ½øÐл¥Á¬ÍøÁ¬½Ó

±¾À´ÎÒÊÇÓÃACCESS+VB½¨Á¢Ò»¸öÈí¼þ£¨¾ÖÓòÍø£©£¬ÏÖÔÚÓÉÓڰ칫µØµãÓб䶯£¬Ïà»»³ÉINTERNATµÄ£¬ÓÐûÓа취½â¾ö£¬

ÏóÕâÑùµÄÇé¿ö£¬Èç¹ûÊǹãÓòÍø£¬×îºÃ¸Ä³É£ºB\SµÄ
Èç¹ûÊǾÖÓòÍøµÄ£¬×îºÃ¸Ä³É£ºC\SµÄ
http://downlo ......

ÇóACCESSÊý¾Ý¿â

      ÄÄλ´ó¸çÓÐACCESSÊý¾Ý¿â °¡£¿
  ¸øÐ¡µÜÒ»¸ö£¡
°²×°OFFICEʱѡÔñ°²×°ACCESS

°²×°OFFICEʱѡÔñ°²×°ACCESS

°²×°°ì¹«Èí¼þ£¬Ñ¡Ôñ×Ô¶¨Òå°²×°£¬È»ºóÑ¡ÉÏACCESS¾Í¿ÉÒÔÁË

officeÍêÕ ......

´íÎóÐÅÏ¢Access violation....

ÕâÁ½Ììѧϰ¡¶Delphi¼¼Êõ·½°¸±¦µä¡·Ò»ÊéÖеÚÈýÕ¹ØÓÚÓû§µÇ¼·½°¸µÄÀý×Ó£¬ÀûÓõÄÊÇSQl ServerÊý¾Ý¿âʵÏÖÓû§µÇ¼£¬±àÒëÔËÐж¼Ã»ÎÊÌ⣬¸ÃʵÏֵŦÄÜÒ²¶¼ÊµÏֵĺܺ㬵«ÊÇÆæ¹ÖµÄÊÇ£¬·´¸´ÔËÐÐÒ»¶Îʱ¼äºó£¬ÓÐʱÔڹرÕÕû¸ö ......

ADOQueryÈçºÎ½«ExcelÊý¾Ýµ¼ÈëAccessÊý¾Ý¿â?

ÈçºÎ½«ExcelÊý¾Ýµ¼ÈëAccessÊý¾Ý¿â?
±íÃû:crk


End_rbody_60447848//-->
¸Ã»Ø¸´ÓÚ2009-10-19 10:44:48±»¹ÜÀíԱɾ³ý


¶ÔÎÒÓÐÓÃ[0]
¶ª¸ö°åש[0]
ÒýÓÃ
¾Ù±¨
¹ÜÀí
TOP



......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ