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 )
'ÉÏÃæµÄ²éѯ²»ÄÜʵÏÖ,·³ÇëÄĸö¸ßÊÖ°ïÏÂÎÒ!¶àл
Ïà¹ØÎÊ´ð£º
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£
XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£
Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
¾ÍÊÇÉè¼ÆÒ»¸ö¼ÆËã»úÄ£Ä⿼ÊÔϵͳ£¬´øÓÐѧÉúºÍ¹ÜÀíÔ±£¬ËùÒԵǼ´°ÌåºÍÖ÷´°ÌåÏë·Ö¿ª£¬µÇ½ѧÉúµÄÏÔʾѧÉúµÄÖ÷´°Ì壬µÇ½¹ÜÀíÔ±ÏÔʾ¹ÜÀíÖ÷´°Ì壬ÎÒÖ»»áÒ»¸ö´°ÌåÓÃÒ»¶Ñ¿Ø¼þ£¬ÏÖÔÚÏíÓжà¸öÖ÷´°Ì壬²»ÖªµÀÔõô×ö£¬Ï£ÍûÇë´ó ......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
......
±ÈÈçÎÒ´ò¿ª×ÀÃæµÄ¡°1.txt¡±Îı¾£¬ÀïÃæµÚÒ»ÐÐÊÇ¡°111¡±£¬ÓÃVBÔõôд¸ö³ÌÐò£¬¿ÉÒÔ¶¨Ê±¸Ä±ä¡°111¡±Îª¡°222¡±£¬ÔÙ¸ô¶Îʱ¼ä±ä³É¡°333¡±£¬Ôõôд .....
¶ÔÕýÔÚÔËÐеÄÎı¾ÓÐЧÂ𣬶ÔÕýÔÚÔËÐеÄÎı¾Äܲ»ÄÜÂíÉÏ¿´µ½±ä»¯£¨¿ ......
ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......