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 )
'ÉÏÃæµÄ²éѯ²»ÄÜʵÏÖ,·³ÇëÄĸö¸ßÊÖ°ïÏÂÎÒ!¶àл
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
±ÈÈçÎÒ´ò¿ª×ÀÃæµÄ¡°1.txt¡±Îı¾£¬ÀïÃæµÚÒ»ÐÐÊÇ¡°111¡±£¬ÓÃVBÔõôд¸ö³ÌÐò£¬¿ÉÒÔ¶¨Ê±¸Ä±ä¡°111¡±Îª¡°222¡±£¬ÔÙ¸ô¶Îʱ¼ä±ä³É¡°333¡±£¬Ôõôд .....
¶ÔÕýÔÚÔËÐеÄÎı¾ÓÐЧÂ𣬶ÔÕýÔÚÔËÐеÄÎı¾Äܲ»ÄÜÂíÉÏ¿´µ½±ä»¯£¨¿ ......
ACCESSÊý¾Ý¿âÖÐÓÐÒ»¸ötablename±í£¬Éè¼ÆÈçÏÂ
±àºÅ,ÊéÃû,×÷Õß,³ö°æÊ±¼ä,³ö°æÉç,ISBN,Ŀ¼,¼ò½é
ÆäÖгý¡°±àºÅ¡±Îª×Ô¶¯±àºÅÍ⣬ÆäËü¶¼Îª¡°±¸×¢¡±
ÆäÖÐ"±àºÅ"άһ£¬ÔÚ¡°ISBN¡±ÖÐÓеÄΪ¿ÕÖµ£¬ ......