AJUDA COM FILTROBINDINGSOURCE.FILTER TOP 30

 Tópico anterior Próximo tópico Novo tópico

AJUDA COM FILTROBINDINGSOURCE.FILTER TOP 30

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#482703 - 03/07/2018 13:16:20

JONASJTG
MARILIA
Cadast. em:Maio/2015


Bom dia a todos!

Minha consulta está funcionando normal mas quero limitar a quantidade de dados a ser mostrado para 30 registros.

Essa e a consulta

OrigemevacinaBindingSource.Filter = "brinco like '" & txtbrincop.Text & "%' AND PBrinco like '" & txtpbrincop.Text & "%'" & _
                "AND Nantigo like '" & txtnantigop.Text & "%' AND raca like '" & txtracap.Text & "%'" & _
                "AND animal like '" & txtanimalp.Text & "%' AND especificar like '" & txtespecificarp.Text & "%'" & _
                "AND especificar like '" & txtespecificarp.Text & "%' AND fazenda like '" & txtfazendap.Text & "%'" & _
                "AND Observacoes like '" & txtObservacoesp.Text & "%' AND Ativo like '" & txtativop.Text & "%'" & _
                "AND dtvacina >= " + "'" + Convert.ToDateTime(dtInicial) + "'" + " AND dtvacina <=" + "'" + Convert.ToDateTime(dtFinal) + "'"

                listapesquisa.DataSource = OrigemevacinaBindingSource

como eu faço para trazer só os 30 registros?

Quem puder ajudar eu agradeço!

JonasjTG

Resposta escolhida #482721 - 03/07/2018 22:31:21

JABA
CABO FRIO
Cadast. em:Agosto/2005


Última edição em 03/07/2018 22:31:55 por JABA

SELECT TOP 30 * FROM Tabela;


www.w3schools.com/sql/sql_top.asp

_______________________________________________________________________________________________

Se a alma ou espírito são imateriais, como eles fazem para se localizarem quando o corpo está em movimento?



#482724 - 04/07/2018 10:11:49

JONASJTG
MARILIA
Cadast. em:Maio/2015


Última edição em 04/07/2018 10:21:25 por JONASJTG

Bom dia jaba obrigado por responder!

Mas dessa forma não resolve, devido eu estar querendo só usar o usando o BindingSource.Filter!

Ai eu fiz assim e deu certo!

Dim maxlinhas As String
        maxlinhas = 4

If txtbrincop.Text = "" Then
            
                'traz somente o ID menor que 4 do registro
                OrigemevacinaBindingSource.Filter = String.Format("id < '{0}'", maxlinhas) & "AND brinco like '" & txtbrincop.Text & "%' AND PBrinco like '" & txtpbrincop.Text & "%'" & _
                "AND Nantigo like '" & txtnantigop.Text & "%' AND raca like '" & txtracap.Text & "%'" & _
                "AND animal like '" & txtanimalp.Text & "%' AND especificar like '" & txtespecificarp.Text & "%'" & _
                "AND especificar like '" & txtespecificarp.Text & "%' AND fazenda like '" & txtfazendap.Text & "%'" & _
                "AND Observacoes like '" & txtObservacoesp.Text & "%' AND Ativo like '" & txtativop.Text & "%'"

                listapesquisa.DataSource = OrigemevacinaBindingSource

            ElseIf txtbrincop.Text <> "" Then

                OrigemevacinaBindingSource.Filter = "brinco like '" & txtbrincop.Text & "%' AND PBrinco like '" & txtpbrincop.Text & "%'" & _
                "AND Nantigo like '" & txtnantigop.Text & "%' AND raca like '" & txtracap.Text & "%'" & _
                "AND animal like '" & txtanimalp.Text & "%' AND especificar like '" & txtespecificarp.Text & "%'" & _
                "AND especificar like '" & txtespecificarp.Text & "%' AND fazenda like '" & txtfazendap.Text & "%'" & _
                "AND Observacoes like '" & txtObservacoesp.Text & "%' AND Ativo like '" & txtativop.Text & "%'"

                listapesquisa.DataSource = OrigemevacinaBindingSource
            End If


JonasjTG

#482770 - 05/07/2018 14:25:15

JONASJTG
MARILIA
Cadast. em:Maio/2015


Boa tarde pessoal!

Só para atualizar e finalizar segue a consulta final !

Dim id_atual As Integer
Dim maxlinhas As String

'***CONSULTA QUE TRAZ ULTIMO ID ATIVO****
        Using con As OleDbConnection = conexaobd()
            Try
                con.Open()
                Dim com As OleDbCommand = Nothing
                Dim ultimoid As Integer
                Dim sql As String = "SELECT TOP 1 id FROM origemevacina WHERE Ativo = Sim ORDER BY Data DESC"
                com = New OleDbCommand("SELECT MAX(id) FROM cria", con)
                ultimoid = com.ExecuteScalar()
                Dim cmd As OleDb.OleDbCommand = New OleDbCommand(sql, con)
                id_atual = ultimoid
            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                con.Close()

            End Try
        End Using

        maxlinhas = id_atual
      
If txtbrincop.Text = "" Then
            
                'traz somente o ID menor que 4 do registro
                OrigemevacinaBindingSource.Filter = String.Format("id < '{0}'", maxlinhas) & "AND brinco like '" & txtbrincop.Text & "%' AND PBrinco like '" & txtpbrincop.Text & "%'" & _
                "AND Nantigo like '" & txtnantigop.Text & "%' AND raca like '" & txtracap.Text & "%'" & _
                "AND animal like '" & txtanimalp.Text & "%' AND especificar like '" & txtespecificarp.Text & "%'" & _
                "AND especificar like '" & txtespecificarp.Text & "%' AND fazenda like '" & txtfazendap.Text & "%'" & _
                "AND Observacoes like '" & txtObservacoesp.Text & "%' AND Ativo like '" & txtativop.Text & "%'"

                listapesquisa.DataSource = OrigemevacinaBindingSource

            ElseIf txtbrincop.Text <> "" Then

                OrigemevacinaBindingSource.Filter = "brinco like '" & txtbrincop.Text & "%' AND PBrinco like '" & txtpbrincop.Text & "%'" & _
                "AND Nantigo like '" & txtnantigop.Text & "%' AND raca like '" & txtracap.Text & "%'" & _
                "AND animal like '" & txtanimalp.Text & "%' AND especificar like '" & txtespecificarp.Text & "%'" & _
                "AND especificar like '" & txtespecificarp.Text & "%' AND fazenda like '" & txtfazendap.Text & "%'" & _
                "AND Observacoes like '" & txtObservacoesp.Text & "%' AND Ativo like '" & txtativop.Text & "%'"

                listapesquisa.DataSource = OrigemevacinaBindingSource
            End If


JonasjTG

 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por JONASJTG em 05/07/2018 14:25:28