¹ØÓÚvb·ÖÀàͳ¼Æ - VB / »ù´¡Àà
ʹÓÃvbºÍaccess£¬ÀûÓÃadodcÁ¬½ÓÊý¾Ý¿â£¬±íÃû³ÆÎªkaoqin, ±íÐÅÏ¢£º
ÐÕÃû ³öÇÚÇé¿ö ÈÕÆÚ
11 ³öÇÚ 2010-04-30
22 Çë¼Ù 2010-04-30
33 ³öÇÚ 2010-04-30
44 ³öÇÚ 2010-04-30
11 ȱÇÚ 2010-05-01
22 ȱÇÚ 2010-05-01
33 ³öÇÚ 2010-05-01
44 ȱÇÚ 2010-05-01
11 Çë¼Ù 2010-05-02
22 ³öÇÚ 2010-05-02
33 ȱÇÚ 2010-05-02
44 ³öÇÚ 2010-05-02
ʹÓÃÁ½¸öDTPicker¿Ø¼þµÃµ½Ò»¸öʱ¼ä¼ä¸ô±ÈÈ磨2010-04-30µ½2010-05-01£©
ÈçºÎ½«Ã¿¸öÈ˵ijöÇÚÇé¿ö£¨³öÇÚ´ÎÊý£¬Çë¼Ù´ÎÊý£¬È±ÇÚ´ÎÊý£©Í³¼Æ²¢ÏÔʾ³öÀ´
¿ÉÒÔÏÔʾÔÚdatagird¿Ø¼þÖУ¬¸ñʽΪ
ÐÕÃû ³öÇÚ´ÎÊý ȱÇÚ´ÎÊý Çë¼Ù´ÎÊý
11 2 3 4
22 3 5 4
33 4 1 2
44 2 1 2
лл¸ßÊÖ°ïæ£¬×îºÃ°ÑʵÏÖµÄÈ«²¿´úÂëÈ«²¿Ð´³öÀ´£¬ÎÒ¶ÔÔÚVBÖÐÈçºÎʹÓÃSQLÓïÑԵĸñʽ²»ÊǺÜÁ˽â
UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP
ÎÒÒ²ÂíÉÏÒªÓã¬ÄãÏÈÊÔÊÔÕâ¾äÐв»£º
RecordSource="select * from kaoqin where ÐÕÃû=" & idname & " and ³öÇÚÇé¿ö='³öÇÚ'" & _
Ïà¹ØÎÊ´ð£º
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
Çó¸övbÖеÄsqlÓï¾äµÄд·¨£¬´ÎsqlÓï¾äµÄÓ÷¨ÊÇ·ÖÒ³³ÌÐò
ÎÒдµÄÈçÏ£ºÆäÖÐAÊÇÓÃÀ´½ÓÊÕÿҳÏÔʾµÄ¼Ç¼µÄÌõÊý£¬BÊÇÓÃÀ´½ÓÊÕÏÔʾµÄµ±Ç°µÄÒ³Ãæ.
sqltext="select top A * from log where id not in(select top ( ......