Ir para conteúdo

Foto

Problema com filtro no VB6


  • Este tópico está fechado Este tópico está fechado
2 respostas neste tópico

#1
Taureus

Taureus

    Novato

  • Novato
  • Pip
  • 2 posts
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:

#2
Taureus

Taureus

    Novato

  • Novato
  • Pip
  • 2 posts
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, 22 novembro 2011 - 08:32.


#3
netcriptus

netcriptus

    Coordenador de Moderação

  • Coordenador
  • 1.846 posts
  • Sexo:Masculino
  • Local:Curitiba, PR
Problema Resolvido!

Caso o autor necessite que o tópico seja reaberto, entre em contato com um dos membros da equipe de moderação.
Linha Defensiva no Twitter!
Imagem Postada
Sorria, você está sendo Googlado.




0 usuário(s) está(ão) lendo este tópico

0 membros, 0 visitantes, 0 membros anônimos