ÎÒÏë¸øÎÒµÄvb³ÌÐò¼ÓÔØÒ»¸öƤ·ô£¬Ó¦¸ÃÔõô×öÄØ£¬Çë¸÷λ°ïæָ½Ì
×îºÃ¾ßÌåµã£¬ÎÒ³õѧvb£¬»¹ÊǸö²ËÄñ
ʹÓÃÒ»¸ö3·½µÄ¿Ø¼þÀ´ÊµÏÖ°É¡£
VBµÄƤ·ô¿Ø¼þÓкܶ࣬¿ÉÒÔGoogleÏ¡£
ÎÒµ÷ÓÃÁËÒ»¸öSkinH_VB6.dllÁ¬½Ó¿â£¬Æ¤·ô¼ÓÔسɹ¦ÁË£¬µ«ÊÇÔÚÍ˳ö³ÌÐòʱ·¢Éú´íÎ󣬲»ÄÜÕý³£¹Ø±Õ³ÌÐò£¬ÕâÊÇΪʲôÄØ£¬Çë´ó¼ÒÖ¸½Ì
´ó¼Ò°ï°ï棬up
......
ÎÒÓÐÒ»¸ö±ía£¬ÀïÃæ¼Ç¼Á˺ܶàÊý¾Ý£¬Ã¿¸öÊý¾ÝÇ°Ã涼ÓÐÒ»¸ö±àºÅ£ºID
ÏÖÔÚÒªÇóIDÊÇΨһµÄ£¬µ«ÊÇÒÔÇ°µÄÊý¾ÝÀïÃæ²»ÊÇΨһµÄ£¬ÓкܶàÏàͬµÄID
ÔÚ²»ÖªµÀÄĸöIDÏàͬµÄÇé¿öÏ£¬ÓÐûÓа취°ÑÕâЩӵÓÐÏàͬµÄIDµÄÊý¾ÝÕÒ³öÀ´£¿
»Ò³£¸Ðл
SQL code:
select T.* from (
select [ID],count(*) as CountID from myTable group b ......
ϵͳÔÚ¶ą̀µçÄÔÉÏÔËÐУ¬¾ÍÔÚÆäÖÐһ̨µçÄÔÉϲúÉú¡±ÄÚ´æÒç³ö¡°¡£
ÿ̨µçÄÔ²Ù×÷ϵͳ ÅäÖö¼Ò»ÑùµÄ¡£¡£ÇëÎÊÊÇʲôÔÒò£¿
(1)ÓÃÁËÉè¼Æ²»ÍêÉƵĿؼþ£¬¿Ø¼þ±¾ÉíÓÐÎÊÌ⣬»òÕß²»Ç¡µ±µØʹÓÃÁËapiº¯Êý¡£
(2)ÎÞÏ޵ĵݹ顣ʹÓÃÁ˲»µ±µÄÊý¾ÝÀàÐÍ¡£
(3)һЩµ×²ãµÄ´íÎó±»´¥·¢£¬±»µ±×÷ÁËÄÚ´æÒç³öµÄ´íÎ󣬱ÈÈçȱÉÙ×é¼þ¡¢È¨ÏÞ²»× ......
ÈçÏÂVB´úÂ룺
Public Class Form1
Dim DyLikeDrawLib As New DYD.DYD
Dim PngPath As String
Dim PNG As Bitmap
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PngPath = "y:\ͼƬ¿â\0.png& ......
ÎÒÓÃVB¼ÓÔØÒ»¸öDLL£¬ÔÚ¡°¹¤³Ì==¡µÒýÓá±ÒýÓÃÕâ¸öDLLµÄʱºò£¬ÏÔʾ¸ÃDLL²»ÄܼÓÔØcould not be loaded
Èç¹ûÖ±½ÓÔËÐÐPrivate Declare Function RDBPointQuery Lib "C:\WINDOWS\system32\MACSVIDBCom.dll" (ByVal pQueryFlag As PointQueryFlag, ByRef lPNum As Long, ByRef PNameArr() As String_struct, ByVal lDom ......
ÔÎļþÄÚÈÝÈçÏ£¨ÎļþºÜ´ó£¬Ô¼ÓÐ15ÍòÐУ©£º
'ÈÕÆÚ+Õýµã Êý¾Ý
2001110100 25325.0
2001110101 25635.0
2001110102 26035.0
2001110103 26345.0
2001110104 26700.0
2001110105 99999
2001110106 99999
2001110107 99999
2001110108 27170.0
2001110109 27070.0
2001110110 26850.0
2001110111 26580.0
2001110 ......