查询相同记录的数据，在线等待！

[jumay]

用VB和SQL做软件，在VB窗体中按CMD查询按钮时，能够把SQL数据库的表A中的“NH料号”字段中相同的记录能够查询出来，谢谢

[chuifengde]

select * from A x where (select count(1) from A where NH料号=x.NH料号)>1

[lxq19851204]

SELECT NH料号 FROM test group by NH料号 having count(NH料号)>=2

[lxq19851204]

select  *  from  test 
where NH料号 in(SELECT NH料号 FROM test group by NH料号 having count(NH料号)>1)

[jumay]

vb按钮代码怎么写

[jumay]

并且把查询的结果显示在Dategrid网络控件里

[pdsjay]

把datagrid的网格的datasource设置为那个sql代码~

[jumay]

我就是那么设置的，不行

[jumay]

Private Sub Command1_Click()
DG.DataSource = "SELECT * From PL_NR WHERE (PLNH IN(SELECT PLNH From PL_NR GROUP BY PLNH HAVING COUNT(PLNH) > 1))"
End Sub

[dbcontrols]

菜单"工程"->"引用" 找 Microsoft ActiveX Data Object.... 

Dim cn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim SqlStr As String
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"
    SqlStr = "Select * From 某个表"
    rst.CursorLocation = adUseClient
    rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Set DataGrid1.DataSource = rst '给DataGrid修改数据源