Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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 & "#" 


Ïà¹ØÎÊ´ð£º

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

vbÖÐÈçºÎʵÏÖ¶ÔÏóÊôÐԵĶ¯Ì¬ÉèÖà - VB / »ù´¡Àà

±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
 A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......

³õѧvb£¬Çë¸÷λ´óϺ¸øµã½¨Òé - .NET¼¼Êõ / VB.NET

¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£

Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......

¹ØÓÚVB DIM ds as new DataSetÎÊÌâ - VB / »ù´¡Àà

DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.

datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......

vb crystalreport - .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 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ