手工调整的话 我是喜欢用
然后用SELECT * INTO 新表 from ( select 字段1,字段2,。。。。所有字段,count(某个字段) AS JS FROM 表名 group by 字段1,字段2,。。。。所有字段 )
这样新表里就有了不重复的数据 再修改下表结构 删除JS字段 添加自动ID 就好了
程序中 我通常是这样写代码
'下面是一段比较典型的查询语句 如查到有记录就修改记录 没有记录就增加一条记录
DIM SQL AS STRING
Dim r As New ADODB.Recordset
r.Open "select * from s_tab_bm where dm='" & Trim(txtBH) & "'", CN
If Not (r.EOF And r.BOF) Then
SQL = "update s_tab_bm set "
SQL = SQL & " dm='" & Trim(txtBH) & "',"
SQL = SQL & " mc='" & Trim(txtMC) & "'"
SQL = SQL & " where idd=" & r!idd
Else
SQL = "insert into s_tab_bm(dm,mc) values("
SQL = SQL & "'" & Trim(txtBH) & "',"
SQL = SQL & "'" & Trim(txtMC) & "')"
End If
r.Close
CN.Execute SQL