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
Ïà¹ØÎÊ´ð£º
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
ËÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......