sql delect 删除学生表中姓名字段中重复的姓名

Question

sql delect 删除学生表中姓名字段中重复的姓名
 现在表中的姓名下有多个AA，如何使得最后表中只有一个AA呢？

Answer 1

sql = "select distinct 姓名 from 表"

Answer 2

    Dim Sql As String, MM As String
    Dim Rs As New ADODB.Recordset
    Dim i As Long, j As Long    With Rs
        Set .ActiveConnection = Cn'这里是你自己的数据库连接字符串
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
    End With    Sql = "select * from 学生表 "
    Rs.Open Sql
    If Rs.RecordCount > 1 Then Rs.MoveLast: Rs.MoveFirst
    For i = 0 To Rs.RecordCount - 1
        MM = Rs.Fields("姓名").Value
        For j = 1 To Rs.RecordCount - 1
            Rs.MoveNext
            If Rs.Fields("姓名").Value = MM Then Rs.Delete adAffectCurrent
        Next
        Rs.Move 1 - j
    Next    
    Rs.Close
    Set Rs = Nothing

Answer 3

lsql = ""
    lsql = lsql & "Delete "
    lsql = lsql & " from "
    lsql = lsql & "    M_社員"
    lsql = lsql & "    where NO  in"
    lsql = lsql & "  ("
    lsql = lsql & "  select min"
    lsql = lsql & "("
    lsql = lsql & "  NO"
    lsql = lsql & ")"
    lsql = lsql & " from "
    lsql = lsql & "    M_社員"
    lsql = lsql & "  group by"
    lsql = lsql & "  名前"
    lsql = lsql & " having　count(*)>2"
    lsql = lsql & " )"
这样不可以吗 我都已经连接数据库了 

Answer 4

Set .ActiveConnection = Cn'这里是你自己的数据库连接字符串
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
这个位子不明白

Answer 5

delete from 學生表 where 姓名 in (select 姓名 from 學生表 group by 姓名 having count(*)>1)

Answer 6

    Private Cn As New ADODB.Connection
    Cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" _
                        & "Persist Security Info=False;User ID=sa;" _
                        & "Initial Catalog= database1;Data Source= localhost"
    If Cn.State <> ADODB.ObjectStateEnum.adStateClosed Then Cn.Close
    Cn.Open怎么不是在VB中的吗，难道是纯SQL？

Answer 7

是在vb中 但是.CursorLocation = adUseClient 
        .CursorType = adOpenStatic 
        .LockType = adLockOptimistic 
都没见过呢 6楼那样的还看得懂 蒙着呢

Answer 8

        
        Set rs.ActiveConnection = Cn'这里是你自己的数据库连接字符串
         rs.CursorLocation = adUseClient
        rs.CursorType = adOpenStatic
        rs.LockType = adLockOptimistic这样看得明白点吧，不明白with？去找点资料看看吧
你干脆这样吧 delete from 學生表 where [NO] not in (select min([NO]) from 學生表 group by 姓名 having count(*)>1)

Answer 9

恩 那个原来是连接中用的 连接数据库没具体学 就给我俩模块添加到我的vb中 就自己鼓捣呢 with我明白 你后来写那个挺明白的 还有说有错误 不知道哪的错啊 

Answer 10

delete from 學生表 where [NO] not in (select min([NO]) from 學生表 group by 姓名 having count(*)>1) and 
    [姓名] in (select 姓名 from 學生表 group by 姓名 having count(*)>1)

Answer 11

不知道你是不是用的SQLServer，在这个下面是可以通过的呀，把你的代码贴点出来看看