sql server ÎÊÌâ - .NET¼¼Êõ / VB.NET
ÎÒÓÐÒ»¸ö±ía£¬ÀïÃæ¼Ç¼Á˺ܶàÊý¾Ý£¬Ã¿¸öÊý¾ÝÇ°Ãæ¶¼ÓÐÒ»¸ö±àºÅ£ºID
ÏÖÔÚÒªÇóIDÊÇΨһµÄ£¬µ«ÊÇÒÔǰµÄÊý¾ÝÀïÃæ²»ÊÇΨһµÄ£¬ÓкܶàÏàͬµÄID
ÔÚ²»ÖªµÀÄĸöIDÏàͬµÄÇé¿öÏ£¬ÓÐûÓа취°ÑÕâЩӵÓÐÏàͬµÄIDµÄÊý¾ÝÕÒ³öÀ´£¿
»Ò³£¸Ðл
SQL code:
select T.* from (
select [ID],count(*) as CountID from myTable group by [ID]) T
where T.CountID > 1
ѧϰÁË
Ïà¹ØÎÊ´ð£º
ÈçºÎÔÚSQL2005ÖÐÉ趨¶¨Ê±×÷Òµ£¬±ÈÈç˵¶¨Ê±ÇåÀíijЩ±íµÄÊý¾Ý£¬
»òÕßÊǶ¨Ê±µÄ½«Ä³Ð©±íµÄÊý¾Ýµ¼³öexcel£¡
ÔÚÏߵȴý£¬¼±¼±¼±£¬×îºÃÊÇÏêϸ²½Ö裡
֮ǰÎÒ×öµÄ×÷ÒµÓеãÎÊÌ⣡
°ïUP
²Î¿¼:http://hi.baidu.com/toiota ......
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......