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

    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.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6548
    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: Qui 14 Dez 2017, 04:22