Última edição em 15/10/2019 18:02:00 por KERPLUNK

 Anexos estao visíveis somente para usuários registrados

Olá.

Tenho uma aplicação em VB6 e estou montando uma consulta em tela com filtros em textbox e Combobox para buscar no access e trazer no listview os dados conforme filtros selecionados.
Gostaria de um auxílio na parte da busca dos dados conforme filtros selecionados.

Quando filtros estão VAZIOS vou considerar como filtrar/trazer TODOS os registros

Quando algum filtro for preenchido filtrar somente o(s) preenchido(s) e trazer no listview. (PRECISO DE AJUDA AQUI)

Acredito que isso deva ser tratado na parte do WHERE da consulta, mas também posso estar enganado e isso deva ser realizado de outra forma. Não estou encontrando a forma correta para que a pesquisa entenda para buscar somente aquele(s) filtro(s) preenchido(s) e os outros (ignorar) da pesquisa.

Anexei a tela para melhor entendimento. (Cada filtro possui uma coluna específica na tabela BD.)

Olá
Já tenho a aplicação rodando em rede e com banco de dados access.
Preciso liberar as consultas aos usuários, com os filtros conforme tela enviada anteriormente, porém estou com dificuldades na montagem da pesquisa.

O problema da busca individual é que restringe o usuário a usar somente 1 filtro por vez (o que dificulta para o usuário).
No caso em questão o usuário pode selecionar vários filtros e realizar a busca/pesquisa em uma única vez no banco de dados, para que demonstre os registros relacionados a todos os filtros selecionados.

tem muito tempo que nao uso vb6 mas acho que seria tipo assim depois é so você poluir seu listview você pode usar o click do combo

Private Sub Combo1_Click()
string texto=[Ô][Ô]
texto =Combo1.Text

If texto = [Ô]A PAGAR[Ô] Then
Connect
rs.Open [Ô]SELECT * FROM seubanco de dados WHERE coluna banco de dados =[ô][Ô] & texto & [Ô][ô][Ô] & [Ô]order by ordenado por[Ô], CON, adOpenStatic, adLockOptimistic
End If
TRATA:
    


em modulo para conectar algum banco de dados

Public CON As ADODB.Connection
Public rs As ADODB.Recordset


Sub Disconnect()
On Error GoTo TrataErro
rs.Close
con.Close
TrataErro:

If Err.Number = 3265 Then
   MsgBox [Ô]Erro de dados[Ô]
End If


Set rs = Nothing
Set con = Nothing
End Sub


Sub Connect()
On Error GoTo trato
Set CON = CreateObject([Ô]ADODB.Connection[Ô])
Set rs = CreateObject([Ô]ADODB.Recordset[Ô])
    Dim sConn As String
        sConn = [Ô]DRIVER={MySQL ODBC 3.51 Driver};[Ô]
        sConn = sConn & [Ô]SERVER=[Ô] & ip & [Ô];[Ô]
        sConn = sConn & [Ô]USER=usuario;[Ô]
        sConn = sConn & [Ô]PWD=senha;[Ô]
        sConn = sConn & [Ô]database=basededados[Ô]
        CON.Open sConn    [ô]Abre o Banco de Dados
        rs.CursorLocation = adUseClient
trato:
End Sub

 Anexos estao visíveis somente para usuários registrados

Olá
Estive um tempo fora e estou retomando este programa para poder liberar aos usuários, porém no momento da execução está me apresentando o erro [Ô]Run-time error 3704: Operação não permitida quando o objeto está fechado[Ô] e direciona no comando [Ô]Do Until rs.EOF[Ô] (página 2 do anexo). Em anexo meu código completo para poderem visualizar e se possível auxiliar na solução.

na minha humilde opinião faria mais ou menos assim:
dim STR as string

str= [Ô]SELECT Campo1, Campo2, Campo3 FROM Tabela where Campo1 LIKE[ô]*[Ô] & txtcampo1.text & [Ô][ô] AND Campo2 LIKE [ô]*[Ô] & ComboCampo2.text & [Ô][ô] AND Campo3 LIKE [ô]*[Ô] & ComboCampo3.text & [Ô][ô];[Ô]

Detalhe: o like só funciona com campos texto

O conhecimento é como o dinheiro: quanto mais temos, mais queremos ter (Josh Billings)