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]Popular ListBox via recordset ADODB

    Compartilhe

    lebert
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 07/05/2014

    [Resolvido]Popular ListBox via recordset ADODB

    Mensagem  lebert em Qui 12 Maio 2016, 20:23

    Olá pessoal! Smile

    Estou tentando popular um listbox com o código abaixo, porem o mesmo não está funcionando e nem retornando erro. Será que alguém poderia me ajudar?

    Dim Con As ADODB.Connection
    Set Con = New ADODB.Connection
    Dim Rst As ADODB.Recordset

                         
    Con.ConnectionString = "Driver={SQL Server};Server=SES-DBSERVER;Database=XXXX;User Id=X;Password=XXXXX;"
                         
    Con.Open

    Set Rst = Con.Execute("SELECT Descricao FROM StatusDeCobranca")


    Me.Lista2.RowSourceType = "Table/Query"
    Me.Lista2.RowSource = "Rst"
    Rst.Close
    Con.Close
    Set Rst = Nothing
    Set Con = Nothing

    Não estou utilizando vínculos, pois vou ter que ficar configurando a conexão maquina a maquina e não tenho acesso de ADM nas máquinas. Crying or Very sad
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3412
    Registrado : 04/04/2010

    Re: [Resolvido]Popular ListBox via recordset ADODB

    Mensagem  Avelino Sampaio em Sex 13 Maio 2016, 10:47

    Olá!

    Se não for muito extenso, troque para lista de valores

    Me.Lista2.RowSourceType ="Value list"

    e então percorra o recordset, preenchendo a lista.  Algo assim:

    ...
    'Seta a listbox como Lista de valores
    Me.Lista2.RowSourceType = "Value List"
    Do While Not rst.EOF
      'Pega os valores do campo
      strValor = strValor & rst!Descricao & ";"
      rst.MoveNext
    Loop
    'Preenche a lista
    Me.Lista2.RowSource = strValor
    ...


    Sucesso!

    lebert
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 07/05/2014

    Obrigado Avelino Sampaio!

    Mensagem  lebert em Sex 13 Maio 2016, 14:59

    Deu certo!

    Saberia dizer como eu deveria fazer se for movimentar muitos registros?


    Muito Obrigado! bounce
    avatar
    Pablo Neruda
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 310
    Registrado : 17/09/2010

    Re: [Resolvido]Popular ListBox via recordset ADODB

    Mensagem  Pablo Neruda em Sab 14 Maio 2016, 13:12

    Bom dia!

    Tive problemas com lista de valores, que não apresentava todos os dados ai usei como abaixo, faça a atentativa...

    Dim Con As ADODB.Connection
    Set Con = New ADODB.Connection
    Dim Rst As ADODB.Recordset


    Con.ConnectionString = "Driver={SQL Server};Server=SES-DBSERVER;Database=XXXX;User Id=X;Password=XXXXX;"

    Con.Open

    Set Rst = Con.Execute("SELECT Descricao FROM StatusDeCobranca")


    Me.Lista2.RowSourceType = "Table/Query"
    Me.Lista2.Recordset = Rst
    Rst.Close
    Con.Close
    Set Rst = Nothing
    Set Con = Nothing


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Elohim Manutenção & Sistemas
    ..............Powered by MS Access with VBA code..............

    lebert
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 07/05/2014

    Re: [Resolvido]Popular ListBox via recordset ADODB

    Mensagem  lebert em Seg 16 Maio 2016, 19:02

    Vlw galera!

      Data/hora atual: Sex 24 Nov 2017, 03:59