²ËÄñÇóÖú£¬ÔõÑù°Ñ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½¨Á¢Ò»¸öÈí¼þ£¨¾ÖÓòÍø£©£¬ÏÖÔÚÓÉÓڰ칫µØµãÓб䶯£¬Ïà»»³ÉINTERNATµÄ£¬ÓÐûÓа취½â¾ö£¬
ÏóÕâÑùµÄÇé¿ö£¬Èç¹ûÊǹãÓòÍø£¬×îºÃ¸Ä³É£ºB\SµÄ
Èç¹ûÊǾÖÓòÍøµÄ£¬×îºÃ¸Ä³É£ºC\SµÄ
http://downlo ......
ÕâÁ½Ììѧϰ¡¶Delphi¼¼Êõ·½°¸±¦µä¡·Ò»ÊéÖеÚÈýÕ¹ØÓÚÓû§µÇ¼·½°¸µÄÀý×Ó£¬ÀûÓõÄÊÇSQl ServerÊý¾Ý¿âʵÏÖÓû§µÇ¼£¬±àÒëÔËÐж¼Ã»ÎÊÌ⣬¸ÃʵÏֵŦÄÜÒ²¶¼ÊµÏֵĺܺ㬵«ÊÇÆæ¹ÖµÄÊÇ£¬·´¸´ÔËÐÐÒ»¶Îʱ¼äºó£¬ÓÐʱÔڹرÕÕû¸ö ......