MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

2 participantes

    Recordset trava ao tentar ler dados do SQL Server

    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 394
    Registrado : 02/08/2018

    Recordset trava ao tentar ler dados do SQL Server Empty Recordset trava ao tentar ler dados do SQL Server

    Mensagem  mfmaiafilho 16/4/2021, 13:14

    Eu criei uma conexão com SQL e importei minhas tabelas de lá para o Access essa TBL_GERARCARTAS_CORPO por exemplo ela está no servidor SQL Server Express 2008, porém quando utilizo o Recordset pra fazer uma contagem de registros a tela simplesmente trava.

    Dim rs As Recordset
    Dim strCount As Integer
    strCount = 1


    Set rs = CurrentDb.OpenRecordset("SELECT * FROM TBL_GERARCARTAS_CORPO WHERE carta =" & Me.carta & " and periodo =" & Me.periodo & "")
    rs.MoveFirst
    Do While Not rs.EOF
    With rs
    strCount = strCount + 1
    End With
    rs.MoveNext
    Loop
    Set rs = Nothing
    rs.Close

    Me.nroitem.Value = strCount
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1777
    Registrado : 13/12/2016

    Recordset trava ao tentar ler dados do SQL Server Empty Re: Recordset trava ao tentar ler dados do SQL Server

    Mensagem  Alexandre Fim 16/4/2021, 14:25

    Mizael,
    Tá um pouco confuso.
    Você criou uma conexão?
    Qual? ODBC?
    Ou apenas vinculou as tabelas do SQL no Access?

    []'s

    FIM
    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 394
    Registrado : 02/08/2018

    Recordset trava ao tentar ler dados do SQL Server Empty Re: Recordset trava ao tentar ler dados do SQL Server

    Mensagem  mfmaiafilho 16/4/2021, 14:40

    Oi alexandre, tenho uma conexão via VBA, onde ele importa as tabelas pra dentro do Front, não sei se é o contador que não funciona em SQL

    "anteriormente rodando em Access funciona normalmente."


    Function CreateConnection()
    Dim strPasswd As String
    Dim strServer As String
    Dim strUser As String
    Dim strDB As String
    Dim strDB2 As String
    Dim strPort As String

    strPasswd = "novasol" ' Senha do servidor
    strUser = "novasol" ' Usuario do servidor
    strServer = "SERVER\EXPRESS2008R2" 'IP do servidor
    strDB = "SIGNUS" 'Banco de Dado
    strPort = "1433" 'Porta do servidor
    Rem error
    On Error Resume Next 'Tratamento de erro

    Set dummy = AttachDSNLessTable("dbo_TCOM_CATPRO", "dbo.TCOM_CATPRO", strServer, strDB, strUser, strPasswd)
    Set dummy = AttachDSNLessTable("dbo_TCOM_CLAPAR", "dbo.TCOM_CLAPAR", strServer, strDB, strUser, strPasswd)
    Set dummy = AttachDSNLessTable("dbo_TCOM_ENDPAR", "dbo.TCOM_ENDPAR", strServer, strDB, strUser, strPasswd)
    Set dummy = AttachDSNLessTable("dbo_TCOM_LISPRE", "dbo.TCOM_LISPRE", strServer, strDB, strUser, strPasswd)
    Set dummy = AttachDSNLessTable("dbo_TCOM_LISPRO", "dbo.TCOM_LISPRO", strServer, strDB, strUser, strPasswd)
    Set dummy = AttachDSNLessTable("dbo_TCOM_PRODUTO", "dbo.TCOM_PRODUTO", strServer, strDB, strUser, strPasswd)
    Set dummy = AttachDSNLessTable("dbo_TCOM_PARCEIRO", "dbo.TCOM_PARCEIRO", strServer, strDB, strUser, strPasswd)
    Set dummy = AttachDSNLessTable("dbo_TCOM_TIPPAR", "dbo.TCOM_TIPPAR", strServer, strDB, strUser, strPasswd)
    Set dummy = AttachDSNLessTable("dbo_TCOM_UNIMED", "dbo.TCOM_UNIMED", strServer, strDB, strUser, strPasswd)
    Set dummy = AttachDSNLessTable("dbo_TCOM_CONPAG", "dbo.TCOM_CONPAG", strServer, strDB, strUser, strPasswd)

      Data/hora atual: 21/9/2021, 02:32