Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 / ¿Ø¼þ

Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔ­À´µÄÊýÖµÁË

´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£

»Ø¸´ ......

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb¶ÁÈ¡xml - VB / »ù´¡Àà

ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xm ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ