aspÍøÕ¾´ÓACCESSתSQLSERVER
ǰ¼¸ÌìÎªÖÆ×÷Ò»¸öÍøÕ¾£¬ÐèÒª´ÓACCESSתÖÁSQLSERVER£¬´ÓÍøÕ¾Éϲ鿴Á˺ܶàµÄ×ÊÁÏ£¬µ«¾õµÃûÓÐÒ»¸öÄܹ»È«Ã渲¸ÇÒªµãµÄ£¬ËùÒÔÎÒ×ܽáһϣ¬Ë³±ã
¸ø³öһЩ¾Ñé¡£
Ê×ÏÈÈç¹ûÒ»¿ªÊ¼¾ÍÐèÒªÖÆ×÷SQLSERVERµÄÍøÕ¾£¬ÄÇô×îºÃ½«ÄãµÄ°®»ú×°ÉÏWINDOWS2000»òÕß2003ÕâÑùµÄSERVER°æ£¬ÕâÑùµÄ°æ±¾ÊÇÖ§³Ö
SQLSERVERÕýʽ°æµÄ°²×°µÄ£¬¶øXPÖ»ÄÜÖ§³Ö¸öÈ˰æ»òÕß¿ª·¢°æ£¬ÎÒûÓÐ×°¹ý£¬µ«¶ÔÓÚµ÷ÊÔÍøÕ¾¶øÑÔ×îºÃ»¹ÊÇÔÚÕýʽ°æÏ¹¤×÷£¬×ª»¯µÄÕû¸ö¹ý³Ì²»ËãÌ«¸´
ÔÓ£¬µ«ÖÁÉÙ¿ÉÒÔÊ¡ÏÂһЩ¾«Á¦¡£Îҵİ®»úÊÇXP£¬ËùÒÔÖ»ºÃÏÈÓÃACCESSµ÷ÊÔ¡£
ºÃÁË£¬µ±ÄãÕÒµ½Ò»Ì¨×°ÓÐSQLSERVERµÄ»úÆ÷ʱ£¬Äã±ã¿ÉÒÔ¿ªÊ¼×ª»»²¢µ÷ÊÔÁË¡£
1¡£ÏÈÀûÓÃת»¯Èí¼þ£ºCooSel2.0 CreateSQL
V1.05£¬ÎÒÓõÄÕâ¸ö£¬·Ç³£ºÃÓ᣾ßÌå²Ù×÷µÄ»°£¬ÎÒÓõÄÊÇÉú³ÉÉýǨSQL½Å±¾£¬±£´æÎª
*.sqlÎļþºó£¬ÔÚSQL2000µÄ²éѯ·ÖÎöÆ÷Àïµ÷ÈëÖ´ÐС£¶øSQLSERVERµÄ¾ßÌå²Ù×÷Ôڴ˲»±ã׸Êö¡£ÕâÑù£¬ÄãµÄÊý¾Ý¿â¾Íת»¯³ÉÁËMSSQLÊý¾Ý¿â
2¡£¶Ôasp¶øÑÔ£¬Ê×ÏÈÊÇÊý¾Ý¿âÁ¬½ÓÎļþµÄÐ޸ģºÕâµã¿ÉÒԲο¼¶¯ÍøÂÛ̳µÄconn.asp
Dim ConnStr
'sqlÊý¾Ý¿âÁ¬½Ó²ÎÊý£ºÊý¾Ý¿âÃû¡¢Óû§ÃÜÂë¡¢Óû§Ãû¡¢Á¬½ÓÃû£¨±¾µØÓÃlocal£¬ÍâµØÓÃIP£©
Dim
SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName =
"dvbbs7" 'Êý¾Ý¿âÃû³Æ
SqlPassword = "" 'Êý¾Ý¿âÃÜÂë
SqlUsername =
"dvbbs" 'Êý¾Ý¿âÓû§Ãû
SqlLocalName = "(local)"
ConnStr =
"Provider = Sqloledb; User ID = " & SqlUsername & "; Password = "
& SqlPassword & "; Initial Catalog = " & SqlDatabaseName
& "; Data Source = " & SqlLocalName & ";"
On Error Resume
Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open
ConnStr
¼´Ö»ÐèÒªÐÞ¸ÄÊý¾Ý¿âÃû³Æ¡¢Óû§ÃûºÍÃÜÂë¼´¿É¸²¸ÇÔÀ´µÄACCESSÁ¬½Ó·½·¨²¢Ê¹Óá£Èç¹ûÄãµÄÍøÕ¾Í¬Ê±°üº¬Á˶¯ÍøÂÛ̳£¬Ôò¿É¸ù¾Ý1¡£µÄ²Ù×÷½«¶¯ÍøµÄÊý
¾Ý¿âҲת»»³ÉSQLSERVER£¬ÖµµÃ³ÆµÀµÄÊÇ£º¶¯Íø¿¼ÂÇÁËACCESSºÍSQLSERVERÁ½ÖÖÊý¾Ý¿âµÄʹÓã¬Òò´ËÔÚÐÞ¸ÄASPÔ´´úÂëµÄʱºò²»ÐèÒª¶Ô¶¯
ÍøµÄÔ´´
Ïà¹ØÎĵµ£º
<%Dim connstrconnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Stu.mdb")
Set bb = Server.CreateObject("ADODB.Connection")
bb.Open connstr%>
<html>
<head>
<meta http-equiv="content-Language" content="zh-cn" />
<meta http-equiv="Content-Type ......
<!--#include file="conn.asp"-->
<%
if request.Form("username")="" or request.form("password")="" then
response.Write("<script>alert('ÄúºÃ£¬²»ÄÜΪ¿Õ
');location.href='index.html';</script>")
end if
%>
<%
di ......
×î½üдվÄÚËÑË÷£¬ËùÒÔÑо¿ÁËÒ»ÏÂËã·¨£¬¸ÃËã·¨µÄÔÀíÈçͼÏÔʾ¡£
ÒÔÏÂÊÇÒ»¸öÓÃaspдµÄ¼òµ¥µÄ·Ö´Ê³ÌÐòÖ÷ÒªµÄ´úÂ룬´Ê¿âÎÒÒѾÓÃaccess½¨Á¢ºÃÁË¡£
Èç¹ûÒª×¢ÖØÐ§ÂÊ£¬MarLenµÄѡȡºÜÊÇÖØÒª£¬·ñÔòЧÂÊ»áÊ®·ÖµÍÏ£¬ÕâÀïMarLenÎÒѡȡµÄÊÇ5¡£
dim faword : faword = ""
do while (len(fword) > 0)
tword = left(fwor ......
ʹÓÃDreamweaver²âÊÔÁ¬½Ó³É¹¦£¬µ«ÊÇIISÀïÃæÔËÐÐÈ´×ÜÊÇ´íÎó°Ù³ö£¬¿´ÁËÏÂÃæÕâÆª²©ÎÄÎÊÌâ²ÅµÃÒÔ½â¾ö¡¢¡¢¡¢
Ò»°ãÇé¿öÏÂasp¿ÉÒÔÕý³£ÔËÐÐ,µ«Ö»ÒªÁ¬½ÓÊý¾Ý¿â¾ÍÌáʾ,Microsoft JET Database Engine ´íÎó
'80004005',ÎҵĵçÄÔÒòΪÓÃÅú´¦ÀíÇåÀíÎļþ,ËùÒÔ²»ÄÜÔËÐÐÁË£¬ Ö»
1.²é¿´Êý¾Ý¿âÁ¬½ÓÓï¾äûÓз¢ÏÖ´íÎó£»
2.²é¿´Îļþ¼ÐµÄȨÏÞÒÑ ......
1:ÔÚStaAfx.h ÖÐÌí¼ÓÈçÏ´úÂë #import "C:\\Program Files\\Common Files \\System\\ado\\msado15.dll" no_namespace rename("EOF","adoEOF")rename("BOF","adoBOF")
2:ÔÚBOOL CXXXApp::InitInstance()Öгõʼ»¯COM»·¾³
::CoInitialize(NULL);
ÊÍ·ÅCOM»·¾³
::CoUninitialize();
......