Entre para seguir isso  
Seguidores 0
Taureus

Problema com filtro no VB6

3 posts neste tópico

Bom dia! :legal:

Estou com problema ao filtrar no VB6, vou passar o código e explicarei o que NÃO ocorre como eu planejava...

segue o código:

__________________________________________________ _______________

Dim Criterio As String

Dim Data As String

Dim consql As ADODB.Connection

Dim rec As Recordset

Public Sub Conexão()

Set consql = New ADODB.Connection

Set rec = New ADODB.Recordset

consql.Open "Provider=SQLOLEDB.1;" & _

"Password=(SENHA);" & _

"Integrated Security=SSPI;" & _

"Persist Security Info=False;" & _

"User ID=(USUARIO);" & _

"Initial Catalog=(BASEDADOS);" & _

"Data Source=(SERVIDOR)"

End Sub

Public Sub Mostrardados()

Conexão

Data = "SELECT (CAMPO) FROM (TABELA) WHERE (CAMPO)>0"

rec.Open Data, consql

Set Me.MSHFlexGrid1.DataSource = rec

End Sub

Private Sub cmdFiltrar_Click()

With MSHFlexGrid1

Criterio = txt1.Text

If Criterio <> "" Then

rec.Close

Data = "SELECT (CAMPO) FROM (TABELA) WHERE (CAMPO) LIKE '& Criterio &'"

rec.Open Data

Set .DataSource = rec

Else

cmdFiltrar.Caption = "Retirar Filtro"

rec.Close

Data = "SELECT (CAMPO) FROM (TABELA) WHERE (CAMPO)>0"

rec.Open

Set .DataSource = rec

End If

End With

End Sub

Private Sub Form_Load()

Mostrardados

End Sub

__________________________________________________ _______________

Então, é o seguinte... o filtro roda como planejado, mais quando um valor no txt1 é inserido para testar o filtro, os campos são 'zerados' e aparece apenas o nome do campo. :angry:

Compartilhar este post


Link para o post
Compartilhar em outros sites

Consegui ajuda e foi resolvido...

Era aqui o problema:

Data = "SELECT C6_NOTA FROM SC6000 WHERE C6_NOTA LIKE '" & Criterio & "'"

E eu troquei por:

Data = "SELECT C6_NOTA AS Notas FROM SC6000 WHERE C6_NOTA = " & Criterio

Editado por Taureus

Compartilhar este post


Link para o post
Compartilhar em outros sites

Problema Resolvido!

Caso o autor necessite que o tópico seja reaberto, entre em contato com um dos membros da equipe de moderação.

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
Entre para seguir isso  
Seguidores 0

  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.