ͬÑùµÄ³ÌÐòÔÚaccessÖÐÕý³££¬ÔÚsql2000ÖÐÂýµÄÒªËÀ
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,cls_name,pid from products_cls where pid="&pid)
do while not rs.eof
response.Write("<option value='"&rs("id")&"'")
if trim(cstr(cid))=cstr(rs("id")) then
response.Write("selected=""selected""")
end if
response.Write ">"
if lvl=0 then
response.Write("·"&rs("cls_name"))
else
for i=0 to lvl
response.Write(" ")
next
response.Write("©Ç"&rs("cls_name"))
end if
response.Write "</option>"
call selpcls(rs("id"),lvl+1,cid)
rs.movenext
loop
set rs=nothing
if pid=0 then
response.Write("</select>")
end if
end sub
×Ö¶ÎÀàÐÍÊÇint varchar int
´óÏÀ°ï°ïæ°É£¬ÊDz»ÊdzÌÐòµÝ¹éÔì³ÉµÄ£¬Ò³ÃæÀïÁ½´¦Óõ½µÝ¹é£¬ÁíÍâÒ»¸öºÍÕâ¸ö²î²»¶à£¬»¹ÓиüºÃµÄ·½·¨Â𣿣¿
×Ô¼ºÏȶ¥ÁË
ûÈËÖªµÀÊÇʲôÔÒòÂð£¿xp,±¾µØ²âÊÔ´ò¿ª±ðµÄÒ³ÃæͦÕý³£µÄ£¬¾ÍÊÇ´ò¿ª·ÖÀàÉèÖÃÕâ¸öÒ³Ã
Ïà¹ØÎÊ´ð£º
access ÖÐÖ´ÐÐsql updateÓï¾äʱÓÐʱºò³É¹¦ÓÐʱºò²»³É¹¦£¬µ«ÊÇaccessÖв»³ö´íÎóÐÅÏ¢£¬²»ÖªµÀÊÇʲôÔÒò£¬ÓÐÄÄλ´óÏÀÖªµÀ£¬Çë°ïæ°¡
ÌùSQLÓï¾ä£¬¼ì²é±í¡¢×ֶεÄÓÐЧÐÔÉèÖÃ
sql ÔÚ²éѯ·ÖÎöÆ÷ÀïÃæ Ö´ÐкÜÕý³£
ÊÇ ......
¸÷λ´óÏÀ¾ÈÃü°¡ £¡£¡
¸Õ×°ÁËSQL2000 sp3
ÏëÓÃJSPÁ¬½ÓÊý¾Ý¿âµ«ÊdzöÏÖÎÊÌâÁË
ÎÒÓõÄÊÇJDK6.0+tomcat5.0+SQL2000 SP3+JDBC sp3
ËüÏÔʾµÄÊÇ
javax.servlet.ServletException: [Microsoft][SQLServer 2000 Driver fo ......
accessÊý¾Ý¿â£¬Ö±½ÓʹÓà select ×ֶΠfrom ±í ¶ÁÈ¡Êý¾Ý
È»ºóÔÚÒ³ÃæÖÐʹÓÃRepeaterÀ´ÏÔʾ
ÕâÕűíÓÐ2000ÌõÊý¾Ý£¬ËùÒÔÒ³Ãæ´ò¿ªµÄºÜÂý
Çë½Ì¸÷λÅóÓÑ£¬ÓÐûÓа취½â¾ö£¬Ìá¸ßµãËٶȣ¡
Ò»´ÎÈ«²¿¶ÁÍê ......
ÕâÁ½Ììѧϰ¡¶Delphi¼¼Êõ·½°¸±¦µä¡·Ò»ÊéÖеÚÈýÕ¹ØÓÚÓû§µÇ¼·½°¸µÄÀý×Ó£¬ÀûÓõÄÊÇSQl ServerÊý¾Ý¿âʵÏÖÓû§µÇ¼£¬±àÒëÔËÐж¼Ã»ÎÊÌ⣬¸ÃʵÏֵŦÄÜÒ²¶¼ÊµÏֵĺܺ㬵«ÊÇÆæ¹ÖµÄÊÇ£¬·´¸´ÔËÐÐÒ»¶Îʱ¼äºó£¬ÓÐʱÔڹرÕÕû¸ö ......
DbgridÁ¬½Óaccess ÏÔʾÊý¾ÝʱÍ϶¯¹ö¶¯ÌõËÀ»ú£¿Ôõô½â¾ö°¡£¿
»úÆ÷Ì«²îÁË°É£¿
ÊDz»ÊÇÄãÊý¾ÝÁ¿Ì«´óÁË°¡
ÄãÊý¾ÝÉÙһЩ¿´¿´»¹ËÀ»úÂð£¿
Êý¾ÝºÜÉÙ°¡ ¾ÍÒ»Ò³¡£
ÎÒÔÚBCB6ÏÂ×ö¹ý²»ÉÙ DBGRID+ACCESS £¬´ÓÀ´Ã»ÓÐÓöµ½ ......