access Êý¾ÝÈçºÎµ¼Èëµ½SQLÖÐ Çë¸ø³öÏêϸ¹ý³Ì £¬Ð»Ð»
ÒýÓÃ
access Êý¾ÝÈçºÎµ¼Èëµ½SQLÖÐ Çë¸ø³öÏêϸ¹ý³Ì £¬Ð»Ð»
Èç¹ûÖ»Êǵ¼Êý¾Ý,ʹÓÃDTS»òSSISµ¼Èë¼´¿É,ûʲôÏêϸ¹ý³Ì,°´ÕÕ½çÃæÒ»²½Ò»²½×ß¼´¿É.
DTS ²»ÊÇÖ»Ö§³Ö Îı¾¸ñʽÂð£¿
ÁíÍâÄã˵µÃÎÒ¶¼²»ÖªµÀÔÚÄÄÀïÆô¶¯£¬ËùÒÔÇë¸ø³öÏêϸ¹ý³Ì£¬ÎҼǵÃÒÔǰÓиöÍⲿ¹¤¾ßÄ ......
¾ÍÊDz»ÒªÏȰѲéѯÓï¾äÉú³É±í£¬È»ºóÓÃDTSµ¼³ö¡£
ÒªÖ±½ÓÓÃSQL²éѯÓï¾ä£¬°Ñ²éѯµ½µÄÊý¾ÝÉú³ÉÒ»¸öaccessÎļþ£¬¸ÃÔõÑù²ÅÄÜ×öµ½£¿
SQL code:
½«SQL SERVER±íÀïµÄÊý¾Ý²åÈëµ½Access±íÖÐ
-- ======================================================
ÔÚSQL SERVER ÀïÔËÐУº
insert into OpenDataSource( 'Microsoft.Jet.OLE ......
select WorkerID,SUM(CASE WHEN WorkType='°´Ê±Ï°à' THEN 1 ELSE 0 END) AS a from CheckWorker where WorkerID=17 GROUP BY WorkerID
Õâ¸öÓï¾äÔÚaccessÖÐÌáʾ"Óï·¨´íÎó(²Ù×÷·û¶ªÊ§)ÔÚ²éѯ±í´ïʽ'SUM(CASE WHEN WorkType='°´Ê±Ï°à' THEN 1 ELSE 0 END)'ÖÐ
ÔÚsql2000² ......
ÀýÈç±¾»úIPΪ10.5.8.109,SQLÊý¾Ý¿â·þÎñÆ÷ÔÚ10.5.8.121.°ïæд¸öÀý×Ó.!
SQL Native Client ODBC Driver
±ê×¼°²È«Á¬½Ó
Driver={SQL Native Client};Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=myPassword;
ÄúÊÇ·ñÔÚʹÓÃSQL Server 2005 Express£¿ ÇëÔÚ¡ ......
VBScript code:
sub selpcls(pid,lvl,cid)
dim rs
dim i
if pid=0 then
response.Write("<select name='pcls' id='pcls'>")
response.Write("<option value=""0"">--Ñ¡ÔñÀà±ð--</option>")
end if
set rs=conn.execute("select id,c ......
ÎÒ°ÑsqlµÄÊý¾Ý¿â»»ÎªaccessÊý¾Ý¿â£¬Ö»ÐÞ¸ÄÁËÁ¬½ÓÎļþ£¬ÆäËüµÄ¶¼Ã»Óиı䣬³öÏÖ´íÎó(0x80004005)
無·¨Ö¸³öµÄ錯誤¡£
function returnrsByParam(strsql,con,cursor_type,lock_type,options)
dim rs
set rs=server.createobject("ADODB.RecordSet")
rs.open strsql,con,cursor_t ......