MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Filtra Listbox carregada pelo recordset com: frontend(Access) e backend(Mysql)

    avatar
    samukainfor
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 15/12/2011

    [Resolvido]Filtra Listbox carregada pelo recordset com: frontend(Access) e backend(Mysql) Empty [Resolvido]Filtra Listbox carregada pelo recordset com: frontend(Access) e backend(Mysql)

    Mensagem  samukainfor em 6/1/2012, 15:24

    [left]Boa tarde, sou novo por aqui, me já vi que aqui, o que não falta é conhecimento, então estou aproveitando para procurar uma solução junto aos colegas;

    É o seguinte tenho um frontend em "Access" acessando um backend em "Mysql", consigo preencher o form e a listbox sem problemas.

    O problema é que agora estou tentando desenvolver um form de pesquisa, o qual consiste em:
    - uma caixa de texto(servirá de critério para a busca),
    - e uma listbox(que é carregada assim que o form é aberto e servirá para receber o critério de pesquisa).

    Até agora já procurei e encontrei, mas para dentro do próprio access, mas via ADO/Recordset não consegui.

    Portanto, gostaria de junto aos colegas encontrar uma solução que sei, além de me ajudar vai ajudar a muitos.

    Um abraço...
    PAULORW
    PAULORW
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 08/04/2011

    [Resolvido]Filtra Listbox carregada pelo recordset com: frontend(Access) e backend(Mysql) Empty uma possivel solução LISTBOX com 2 colunas

    Mensagem  PAULORW em 7/1/2012, 22:05

    Amigo,

    a partir de um exemplo do mestre macoratti e usando VBA/ADO NO ACCESS2010 consegui reunir mais de uma coluna na LISTBOX. a partir destas informações , voce puxa o que quiser da tabela.

    'no cabeçalho do modulo
    public db as dao.database
    public ws as dao.workspace

    Public Sub CarregaControle(ByVal Controle As Object, Tabela, CodigoCampo, DescricaoCampo As String)
    Dim rs As Recordset 'Declara um recorset
    Dim sql As String 'Declara uma string para a consulta SQL

    Set ws = DBEngine.Workspaces(0)
    Set db = ws.OpenDatabase(nomedoarq, False, False, ";pwd=" & varPwd)

    sql = "SELECT " & CodigoCampo & ", " & DescricaoCampo & " FROM " & Tabela

    'abre o recorddset com os dados retornados
    Set rs = db.OpenRecordset(sql, dbOpenForwardOnly)

    With rs
    Do Until .EOF
    Controle.AddItem rs(DescricaoCampo) & ";" & rs(CodigoCampo)
    .MoveNext
    Loop
    .Close
    End With

    Set rs = Nothing
    Exit Sub


    espero ter contribuído. Boa Sorte

    Paulo Wassolowski
    Smile Smile Smile sunny

      Data/hora atual: 16/6/2019, 21:52