• Announcements

    • FallenHawk

      Atualização do Fórum   05/30/2016

      Olá, O fórum da Linha Defensiva foi atualizado neste domingo (29) e, por esse motivo, estamos enfrentando os problemas que sempre aparecem com esse tipo de processo.  Peço a compreensão de todos. Erros e problemas podem ser relatados aqui: http://www.linhadefensiva.org/forum/topic/168359-atualização-ipboard-4/ Obrigado e abraço.  
Sign in to follow this  
Followers 0
Taureus

Problema com filtro no VB6

3 posts in this topic

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:

Share this post


Link to post
Share on other 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

Edited by Taureus

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  
Followers 0