vbÈçºÎ²éѯsql serverÈÕÆÚ×Ö¶ÎÖÐÁ½¸öÈÕÆÚÖ®¼äµÄÊý¾Ý
ÐÅÏ¢±íÇé¿ö1:
±àºÅ Ãû³Æ ÐÞ¸ÄÈÕÆÚ
1 abcdef 2009-11-13
2 abgdheyu 2009-11-14
3 abcdeerttef 2009-11-15
4 ww35cdef 2009-11-12
ÐÅÏ¢±íÇé¿ö2:
±àºÅ Ãû³Æ ÐÞ¸ÄÈÕÆÚ
1 abcdef 2009-11-13 07:54:00.000
2 abgdheyu 2009-11-14 07:54:00.000
3 abcdeerttef 2009-11-15 07:54:00.000
4 ww35cdef 2009-11-12 07:54:00.000
²éѯ´úÂë:
Adodc1.ConnectionString = "Driver={SQL Server};datasource=»úÃû;DataBase=¿âÃû;Server=(local);UID=sa;PWD="
Adodc1.RecordSource = "select ±àºÅ,Ãû³Æ,ÐÞ¸ÄÈÕÆÚ from ÐÅÏ¢±í where ÐÞ¸ÄÈÕÆÚ between '" & DTPicker1.Value & "' and '" &
DTPicker2.Value & "' "
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
ÓÃÁËÁ½¸öDTPicker
¡ïҪʵÏÖµÄÄ¿µÄ:
²éѯ13ºÍ15ÈÕÖ®¼äµÄÊý¾Ý(º¬13ºÍ15ÈÕ)
¡ïÏÖ×´ÊÇ:
µ±Êý¾ÝÈç [ÐÅÏ¢±í1] ʱ ²éѯ´úÂë׼ȷÎÞÎó
¡ïÎÊÌâÊÇ:
µ±Êý¾ÝÈç [ÐÅÏ¢±í2] ʱ ²éѯ´úÂëÈ´Ö»Äܲéѯ³ö13ºÍ14ÈÕµÄÊ
Ïà¹ØÎÊ´ð£º
select convert(varchar(50),cast(convert(numeric(18,2),1275674000000/100000000)as real))+'ÒÚ'
select cast(convert(numeric(18,2),1275674000000/100000000)as real)
ΪʲôÉÏÒ»¸öÓÃvarcharת»»ºó¾ÍÖ»±£ÁôÁËÒ ......
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......
¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......