0

このコードは、データベースのリストビュー フィールドに表示しようとしますが、検索の一部を表示しようとすると、以前のデータが繰り返されます

Dim ds As DataSet = New DataSet
Dim sqlcon As MySqlConnection
Dim da As MySqlDataAdapter
 If sqlcon.State = ConnectionState.Open Then
        MsgBox("connected")
        da = New MySqlDataAdapter("SELECT cod_funcionario, matricula, nome, cpf, rg, sexo, email, telefone, endereco, data_nasc, setor FROM funcionario", sqlcon)
        da.Fill(ds, "funcionario")
        Tabelas.Items.Clear()
        If ds.Tables("funcionario").Rows.Count > 0 Then
            For i As Integer = 0 To ds.Tables("funcionario").Rows.Count - 1
                With Tabelas.Items.Add(ds.Tables("funcionario").Rows(i).Item(0).ToString)
                    .SubItems.Add(ds.Tables("funcionario").Rows(i).Item(1).ToString)
                    .SubItems.Add(ds.Tables("funcionario").Rows(i).Item(2).ToString)
                    .SubItems.Add(ds.Tables("funcionario").Rows(i).Item(3).ToString)
                    .SubItems.Add(ds.Tables("funcionario").Rows(i).Item(4).ToString)
                    .SubItems.Add(ds.Tables("funcionario").Rows(i).Item(5).ToString)
                    .SubItems.Add(ds.Tables("funcionario").Rows(i).Item(6).ToString)
                    .SubItems.Add(ds.Tables("funcionario").Rows(i).Item(7).ToString)
                    .SubItems.Add(ds.Tables("funcionario").Rows(i).Item(8).ToString)
                    .SubItems.Add(ds.Tables("funcionario").Rows(i).Item(9).ToString)
                    .SubItems.Add(ds.Tables("funcionario").Rows(i).Item(10).ToString)
                End With
            Next
        End If
    Else
4

1 に答える 1

0

SQL 検索にはwhere句がないため、関数内のすべての行が返されます。それはあなたの意図ですか？繰り返されるデータは実際にデータベースにありますか?

ds.clearクエリが同じ関数で繰り返される場合、2 番目のクエリの前にが必要になる場合があります。

于 2012-10-28T16:25:48.150 に答える