vb msflexgrid¿Ø¼þÔõôÑùÁ¬sql2005Êý¾Ý¿â
лл
ÓÐûÓиßÊÖ´ó¸ç½Ì½Ì°³°¡ ÒýÓà ֮ǰ¸ø±ðÈËдÁ˸öÀý×Ó: VB codeDim cnnAsNew ADODB.Connection cnn.ConnectionString="PROVIDER=MSDASQL;DRIVER={SQL Server};SERVER=192.168.1.100;DATABASE=database1;UID=sa;PWD=123"If cnn.State <> ADODB.ObjectStateEnum.adStateClosedThen cnn.Close cnn.OpenDim RsAs ADODB.RecordsetSet Rs=New ADODB.RecordsetWith RsSet .ActiveConnection= cnn .CursorLocation= adUseClient .CursorType= adOpenKeyset .LockType= adLockOptimistic .Open"SELECT good_code,customer,sum(price*amount)/sum(amount) AS avg_price from sales GROUP BY good_code,customer"If .RecordCount>0Then MSFlexGrid1.Clear MSFlexGrid1.Cols=3 MSFlexGrid1.Rows= .RecordCount+1 MSFlexGrid1.TextMatrix(0,0)="ÉÌÆ·±àºÅ" MSFlexGrid1.TextMatrix(0,1)="¹Ë¿ÍÃû³Æ" MSFlexGrid1.TextMatrix(0,2)="ƽ¾ù¼Û¸ñ" .MoveLast: .MoveFirstFor i=1To .RecordCount  
Ïà¹ØÎÊ´ð£º
Ö´ÐеÄ˳Ðò£º 1£©Îļþä¯ÀÀ¿ò£¨Ñ¡ÔñÎļþʹÓã© Ñ¡ÔñºÃÎļþºó µã»÷Ò»¸öµ¼Èë°´Å¥µÄʱºò £¬°ÑÉÏÃæÉÏ´«¿òÀïµÄcsvÎļþÒÔÒ»¸öIDΪÎļþÃû£¬ÉÏ´«µ½**/**Îļþ¼ÐÏ 2£©¶ÁÈ¡Õâ¸öÎļþ¼ÐϵÄcsvµÄÎļþ£¬×ª»»³Ésql 3 ......
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË ´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ ´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£ »Ø¸´ ......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡ ²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£ Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿ ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String) ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
ÏÖÔÚÓÐÁ½ÕÅ±í£ºÎÄÕÂÖ÷±íA(articleId,articleTitle)£¬ÎÄÕÂÆÀÂÛ±íB(commentId,articleId,commentTitle) ÏÖÔÚÎÒÏëʵÏÖÕâÑùµÄ¹¦ÄÜ£ºÁгöÎÄÕÂÁÐ±í£¬ÆäÖÐÿƪÎÄÕ±êÌâÏÂÃæÁгö´ËÎÄÕµÄǰ2¸öÎÄÕÂÆÀÂÛ£¬ÇëÎÊsqlÓï¾äÔõôд°¡ ......