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


Ïà¹ØÎÊ´ð£º

csvÎļþת»»³Ésqlµ¼Èëµ½Êý¾Ý¿â£¬Ã»ÓÐÊý¾ÝΪºÎ£¿

Ö´ÐеÄ˳Ðò£º
1£©Îļþä¯ÀÀ¿ò£¨Ñ¡ÔñÎļþʹÓã©
Ñ¡ÔñºÃÎļþºó
µã»÷Ò»¸öµ¼Èë°´Å¥µÄʱºò £¬°ÑÉÏÃæÉÏ´«¿òÀïµÄcsvÎļþÒÔÒ»¸öIDΪÎļþÃû£¬ÉÏ´«µ½**/**Îļþ¼ÐÏÂ
2£©¶ÁÈ¡Õâ¸öÎļþ¼ÐϵÄcsvµÄÎļþ£¬×ª»»³Ésql
3 ......

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

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

ÇóÒ»SQL - MS-SQL Server / »ù´¡Àà

tab1 ×Ö¶Î:billdate,goodsid,incount,inmoney,outcount,outmoney,endprice,endcount,endamt
tab2 ×Ö¶Î:goodsid,goodskind£¨ÉÌÆ·ÀàÐÍ£©
tab3 ×Ö¶Î:goodskind£¨ÉÌÆ·ÀàÐÍ£©,kindname
½á¹û£º
µÃµ½ÉÌÆ·ÀàÐÍÔÚÒ»¶Îʱ¼ä ......

vb - VB / »ù´¡Àà

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

vb - VB / »ù´¡Àà

Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ

ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ