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£¬Í¨¹ýÂÛ̳ËÑ ......
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......