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

vbºÍsqlÁ¬½Ó ÈÕÆÚº¯Êýת»»ÎÊÌâ

ÄÇλָµãһϠÎÒÓÐÒ»¸ö³ÌÐòÊÇVBºÍsql×öµÄ£¬sqlÓÐÒ»¸ö×ֶνÐ×öά»¤Ê±¼ä ÀàÐÍÊÇdatetime ÎÒÏëÓÃDateDiffº¯Êý×öÈÕÆÚ±È½Ï µ«ÊÇÖ»ÄܱȽÏά»¤Ê±¼äµÄµÚÒ»ÐÐÈÕÆÚ ÎÒÏëÈÃÖ»Òª±È½ÏËùÓÐά»¤Ê±¼äÀïµÄÊýÖµ£¡ £¨ÎÒÎÊÁËÎÊ£¬ÓÐÈË˵ÊÇÊý¾ÝÀàÐͲ»Æ¥Å䣬ÎҸijÉÁËm = DateDiff("d", rs("ά»¤Ê±¼ä"), Now) ¸Ä³É m = DateDiff("d", rs("sql"), Now) Ò²±¨´í Ï£Íû¸ßÈËÖ¸µã ´úÂëÈçÏ£ºDim m As Integer
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset

  conn.ConnectionString = "Driver={sql server};server=niy;uid=;pwd=;database=sb"
conn.ConnectionTimeout = 30
conn.Open
sql = "select ά»¤Ê±¼ä from ά»¤¹ÜÀí"
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
m = DateDiff("d", rs("ά»¤Ê±¼ä"), Now)
If m = 0 Then
Text1.Text = m
Print
End If
End Sub
報µÄʲ麼錯°¡£¬Ò²²»貼³ö來£¬½ÐÈËÔõ麼»Ø´ð

û±¨´í£¬¾ÍÊÇʵÏÖ¹¦ÄÜ´íÁË£¬ÏëʵÏֲ鿴ËùÓÐά»¤Ê±¼ä×Ö¶ÎÀïµÄÊý£¡µ«ËüÖ»²éµÚÒ»¸öÊý£¡

sql = "select DateDiff('d', rs!ά»¤Ê±¼ä, Now) from ά»¤¹ÜÀí"
rs.Open sql, conn, adOpenKeyset, adLockPessimistic

rs.Open sql, conn, adOpenKeyset, adLockPessimistic ±¨´í ¸½½üÓдíÎó£¡


ÄÜÔÚÏêϸµãÂ𣿣¿Ï±ßÔõôÊä³ö°¡£¬ÎÒ°Ñselect ά»¤Ê±¼ä from ά»¤¹ÜÀí where Datediff(d, ά»¤Ê±¼ä, GetDate())=0 µ½²éѯ·ÖÎöÆ÷ÀïÖ»·µ»Ø×Ö¶ÎÃû ¿ÉÎÒ×Ö¶ÎÀïÓÐ2010-4-13 °¡

VB code



Code highlighting produced by Actipro CodeH


Ïà¹ØÎÊ´ð£º

Çë½ÌsqlÓï¾ä¡£ - Oracle / ¿ª·¢

ÎÒÓÐÒ»¸ö±í£¬½á¹¹ÊÇÕâÑù¡£
  ת³ö µ¥Î» תÈ뵥λ ±ÊÊý ½ð¶î
date(Ö÷) outid(Ö÷) inid(Ö÷) num amt
2009 1 2 1 500 Ϊ 1 µ¥Î» ÔÚ2009Ä ......

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


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

vb - VB / »ù´¡Àà

xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£

hÊÇxml¸ñʽµÄ×Ö·û´®

ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿

ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......

ÇóÖú£ºC´úÂë¸Äд³ÉVB´úÂë - VB / »ù´¡Àà

Ë­ÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......

ÇóÖú£ºC´úÂëchange toVB´úÂë - VB / »ù´¡Àà

ͦ·±Ëö£¬Ö®Ç°·¢µÄÌû×Ó£¬·Öֵ̫µÍÏÖÔÚÖØ·¢Ò»¸ö¡£»¶Ó­¸÷λ´óÏÀ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ