VB²éѯaccessÊý¾Ý¿â - VB / »ù´¡Àà
Êý¾Ý¿â½á¹¹ÊÇÕâÑùµÄ ²éѯ³öÀ´ÊÇÒ»¸öͳ¼ÆÐ§¹û
²éѯ³öÀ´¾ÍÊÇ µ±ÈÕÆÚΪʲôµÄʱºò ÕâÒ»ÌìËùÓÐÊý¾ÝµÄͳ¼Æ
sql = "select FScrq from TJlb "
Call OpenConn2
rs2.Open sql, cn2, 1, 1
Do While Not rs2.EOF
sql = "select sum(FScrq) as FScrq from TJlb where FScrq = '" & rs2!FScrq & "'"
rs1.Open sql, cn2, 1, 1
rs2.MoveNext
Loop
Call CloseConn2
ÏÂÃæ²»ÖªµÀÒªÔõôдÁË
http://download.csdn.net/source/1498324
http://download.csdn.net/source/1644211
²»ÖªËùÔÆ
£Ç£ï£ï£ç£ì£åһϡ°£Á£ã£ã£å£ó£ó£¬£Ö£Â£¶£¢£¬ÕÒ¼¸¸öÀý×Ó°É¡£
¶¥
û¿´µ½picture
Ôõô»áÓÐÕâÑùµÄÌû×Ó......
{{
Ïà¹ØÎÊ´ð£º
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·
¶¥Ï¶¥ÏÂ
ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0
BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......
ʹÓÃACCESS×î´óµÄÒþ»¼¾ÍÊDz»°²È«¡£½ñÌì¶ÔACCESSÊý¾Ý¿âÉèÖÃÁËÒ»¸öÃÜÂ룬±ØÐëʹÓÃÃÜÂë²ÅÄÜ´ò¿ª£¬µ«ÊÇÔÚ³ÌÐòÖÐÈ´ÎÞ·¨Á¬½ÓÊý¾Ý¿âÁË¡£´ó¼ÒÖªµÀʹÓÃÓû§ÃûºÍÃÜÂ룬ÈçºÎÁ¬½ÓACCESSÊý¾Ý¿â£¿Ã²ËÆACCESSµÄÓû§Ãû»¹²»ÖªµÀ£¿Ö»Öª ......