vbºÍaccess
ÎÒÏëÓÃvb²éѯaccess
StrSql = "select * from t_VoteIp where NewsID=" & CLng(Trim(Text4.Text)) & ""
NewsIDÊdz¤ÕûÐÍ,¿ÉÊÇÎÒÔÚText4ÖÐÊäÈë1075È´²éѯ²»µ½ÄÚÈÝ£¬1075ÊÇȷʵ´æÔڵġ£
»¹ÓÐ
StrSql = "select * from t_news where news_date>" & cdate(text1.text) & " and news_date<" & text2.text & ""
news_dateÊÇnow()·µ»ØÖµ£¬ÎÒÔÚÎı¾¿òÊäÈë2010-1-1ºÍ2011-2-1Ò²²éѯ²»µ½ÄÚÈÝ¡£
Ìé¹òÀÏÊÖÓèÒÔÖ¸½Ì¡£¡£¡£¡£¡£¡£¡£¡£
Ó¦¸ÃÊÇÄãµÄSQLÓïÑÔ¹¹½¨´íÎó¡£
http://download.csdn.net/source/1644211
ÔÚ²éѯÖвâÊÔÄãµÄsqlÓï¾ä£¬Èç¹û²éѯÖв»ÄÜͨ¹ý£¬Ò»¶¨ÊÇÄãµÄsqlÓï¾äºúÎÊÌâ....
±ðµÄÎÒ²»ÖªµÀ,ÄãÄǸöCLngºÃÏñÊǶàÓàµÄ:)ÈçÊÇУÑéµÄ»°×îºÃ»¹ÊÇÁíÍâ¶à´¦ÀíÒ»ÏÂ
Ò»¡¢ÔÚACCESSÖвâÊÔ
select * from t_VoteIp where NewsID=1075
µÄ½á¹û¡£
¶þ¡¢ÔÚACCESSÖÐÈÕÆÚÒªÓÃ#ÒýÆðÀ´£¬Èç#2010-1-1#
ÔÚACCESSÖвâÊÔ
select * from t_news where news_date>#2010-1-1# and news_date < #2011-2-1#
µÄ½á¹û¡£
Ò»¡¢Ã¿¸öÓï¾ä×îºóµÄ&""¿ÉÒÔ²»Òª
¶þ¡¢µÚ¶þ¸ö²éѯÊÇ´ÓTEXTBOXÈ¡³öµÄSTRINGÀàÐÍ£¬Òª×ª»»ÎªDATEÀàÐÍ£¬Í¬Ê±Òª×¢ÒâDATEµÄ¸ñʽ£¬ÁíÍ⣬ÈÕÆÚǰºóÒª¼Ó#
StrSql = "select * from t_VoteIp where NewsID=" & Text4.Text & ""
StrSql = "select * from t_news where news_date>#" & cdate(text1.text) & "# and news_date <#" & text2.text & "#" 
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£
Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......