Vb.net Access²éѯ°´ÄêÔÂ
ÎÒÐèҪͨ¹ýµ¥¸ö²éѯÌõ¼þ°´ÄêÔÂ,²éѯµ½accessÊý¾Ý¿âÀïµÄÊý¾ÝΪ (ÈÕÆÚÀàÐÍ2008-02-02)
Dim DDTP1 As String
Dim date1 As Date = DTP1.Value
DDTP1 = Format(date1, "#yyyy-MM#")
Dim myTable As DataTable = myDataSet("select * from Pay where TData = " & DDTP1).Tables(0)
(±íPay , ÈÕÆÚ×Ö¶ÎTdata )
ÉÏÃæµÄ²éѯ²»ÄÜʵÏÖ,·³ÇëÄĸö¸ßÊÖ°ïÏÂÎÒ!¶àл.
DDTP1 = Format(date1, "yyyy-MM")
ÊÔÊÔÕâÑù
ÄǸö²»ÄÜÓþͲ¹³äÆëÁ˲éѯ£¬Ò»Ñù°É¡£
TDataÊÇÖ»ÓÐÄêÔµÄô£¿
TData×Ö¶ÎÊÇ(ÈÕÆÚÀàÐÍ2008-02-02)
tdateÊÇÄêÔÂÈյģ¬Ö®ºóformatÍêÁ˲»¾ÍÖ»ÓÐÄêÔÂô£¬ÕâÑùÔõôÄÜÕÒµ½Êý¾ÝÄØ
ÓÃbetween ²îÒ»ÏÂʱ¼ä¶ÎÄÚµÄÊý¾Ý
VB.NET code:
Õâ¸ö·½·¨°É
Dim DDTP1 As String
Dim date1 As Date = DTP1.Value.ToString("yyyy-mm-dd")
Dim myTable As DataTable = myDataSet("select * from Pay where TData = " & DDTP1).Tables(0)
'(±íPay , ÈÕÆÚ×Ö¶ÎTdata )
'ÉÏÃæµÄ²éѯ²»ÄÜʵÏÖ,·³ÇëÄĸö¸ßÊÖ°ïÏÂÎÒ!¶àл
Ïà¹ØÎÊ´ð£º
ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿
1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......
ÄÄÀï³ö´íÁË£¬Êä³öÕâÑùµÄ½á¹û£¿£¿
<%@ Page Language="VB" AutoEventWireup="false" aspcompat="true" CodeFile="Default.aspx.vb" Inherits="_Default" %&g ......