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


Ïà¹ØÎÊ´ð£º

vb¶ÁÈ¡ÓÃwordת»»³ÉµÄxmlÀïµÄÊý¾Ý - VB / »ù´¡Àà

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......

vb - VB / »ù´¡Àà

vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......

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

Ë­ÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ