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

Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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

Answer 7

菜单"工程"->"引用" 找 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修改数据源