ͬÑùµÄ³ÌÐòÔÚ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 ÔÚ²éѯ·ÖÎöÆ÷ÀïÃæ Ö´ÐкÜÕý³£
ÊÇ ......
ÎÒÓжà¸ö±íA B C ½á¹¹ÊÇÒ»ÑùµÄ£¬¶¼ÓÐ2¸ö×Ö¶ÎnameºÍcontent,ÎÒÒªËÑË÷ËùÒÔ±íËùÓÐ×Ö¶ÎÖаüº¬¡°Öйú¡±µÄÄÚÈÝ Õâ¸öSQLÓï¾äÔõôд
ÈçºÎ½«¶à¸ö±íµÄ²éѯ½á¹ûÁ¬³ÉÒ»¸ö±í Õâ¸öSQLÓï¾äÔõôд ±íµÄ½á¹¹ÊÇÒ»ÑùµÄ
ÀýÈç£ ......
select convert(varchar(50),cast(convert(numeric(18,2),1275674000000/100000000)as real))+'ÒÚ'
select cast(convert(numeric(18,2),1275674000000/100000000)as real)
ΪʲôÉÏÒ»¸öÓÃvarcharת»»ºó¾ÍÖ»±£ÁôÁËÒ ......
ÕâÁ½Ììѧϰ¡¶Delphi¼¼Êõ·½°¸±¦µä¡·Ò»ÊéÖеÚÈýÕ¹ØÓÚÓû§µÇ¼·½°¸µÄÀý×Ó£¬ÀûÓõÄÊÇSQl ServerÊý¾Ý¿âʵÏÖÓû§µÇ¼£¬±àÒëÔËÐж¼Ã»ÎÊÌ⣬¸ÃʵÏֵŦÄÜÒ²¶¼ÊµÏֵĺܺ㬵«ÊÇÆæ¹ÖµÄÊÇ£¬·´¸´ÔËÐÐÒ»¶Îʱ¼äºó£¬ÓÐʱÔڹرÕÕû¸ö ......