MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Barra de progresso

    Compartilhe

    wesleymeim
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 20/08/2014

    Barra de progresso

    Mensagem  wesleymeim em Ter 21 Out 2014, 16:25

    Boa tarde!

    Será que eu conseguiria adptar essa barra de prograsso para o código abaixo?

    Lembrando que eu não tenho nehuma tabela no meu access, tenho apenas leituras acontecendo no SQL server 2008.

    Segue código:

    Private Sub Form_Load()

    Dim cns As New ADODB.Connection
    Dim rss As New ADODB.Recordset
    Dim rs_cliente As ADODB.Recordset
    Dim sqls As String

    cns.Provider = "SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=true;Data Source=11.111.161.29;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=DEBRBRG310F27X;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Catalog=baseteste"
    cns.Open

    MsgBox "Aguarde Enquanto os Dados são Carregados..."

    Set rss = New ADODB.Recordset
    Set rss.ActiveConnection = cns

    'sqls = "select * from cliente"
    sqls = "SELECT cod_clien, canis, orend, sei, de_cliente, pa_cliente, uf_clien, cidade_clien, teste FROM cliente order by cod_clien, desc_clien"

    rss.CursorLocation = adUseClient
    rss.Open sqls, cns, adOpenForwardOnly, adLockPessimistic 'adLockPessimistic (Permitir alteração)
    Set rs_cliente = rss
    Set rss = Nothing
    Set cns = Nothing
    Set Me.Recordset = rs_cliente

    End Sub


    Muito obrigado.

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: Barra de progresso

    Mensagem  Alexandre Neves em Ter 21 Out 2014, 19:54

    Boa noite,
    A sala de repositórios não é para tirar dúvidas.


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: Dom 04 Dez 2016, 20:20