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


3 participantes

    [Resolvido]Verificar se banco esta aberto na hora de gravar

    avatar
    Robert_2012
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 07/03/2012

    [Resolvido]Verificar se banco esta aberto na hora de gravar Empty Verificar se banco esta aberto na hora de gravar

    Mensagem  Robert_2012 5/4/2012, 19:06

    caros,

    Boa Tarde

    Tenho o código para gravar os dados no banco, gostaria de saber como colocar um comando de erro caso o banco esteja aberto na hora de tentar gravar os dados.

    O meu formulário esta em VBA do excel e gravo os dados em um banco feito em access.

    Segue código de gravação

    Sub Incluir_Entradas()

    ''FAZER O CHECK PARA VER SE O BANCO ESTA ABERTO, CASO ESTEJA AGUARDAR UM POUCO E TENTAR GRAVAR NOVAMENTE

    sql = "INSERT INTO TBEntradas(Processo, Data_Atual, Quantidade, Canal, TipoEntrada, MesAno, UsuarioLogado, DtHrLancado, Desc_Motivo_Contato, Codigo_Assinante, Operador, Empresa)"
    sql = sql & " VALUES ("
    If Not IsNull(Me.CboProcesso.Value) Then sql = sql & " '" & Me.CboProcesso.Value & "'"
    If Not IsNull(Me.DtAtu1.Value) Then sql = sql & ", '" & Me.DtAtu1.Value & "'"
    If Not IsNull(Me.TxtQuantidade1.Value) Then sql = sql & ", 0" & Me.TxtQuantidade1.Value
    If Not IsNull(Me.CboCanal.Value) Then sql = sql & ", '" & Me.CboCanal.Value & "'"
    If Not IsNull(Me.CbTpe.Value) Then sql = sql & ", '" & Me.CbTpe.Value & "'"
    If Not IsNull(Me.txtmesano.Value) Then sql = sql & ", '" & Me.txtmesano.Value & "'"
    If Not IsNull(Me.UserLogado.Value) Then sql = sql & ", '" & Me.UserLogado.Value & "'"
    sql = sql & ", '" & Now & "'"
    If Not IsNull(Me.CBMotivo_Contato.Value) Then sql = sql & ", '" & Me.CBMotivo_Contato.Value & "'"
    If Not IsNull(Me.TxtCodAssinante.Value) Then sql = sql & ", '" & Me.TxtCodAssinante.Value & "'"
    sql = sql & ", '" & Rsusuario & "'"
    sql = sql & ", '" & Rsusuario1 & "'"
    sql = sql & " )"

    Set BANCO = New ADODB.Recordset

    CX.Conectar

    BANCO.Open sql, CX.conn

    Set BANCO = Nothing
    CX.Desconectar

    LblMensagem1.Caption = "Cadastro efetuado com sucesso."

    End Sub





    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Verificar se banco esta aberto na hora de gravar Empty Re: [Resolvido]Verificar se banco esta aberto na hora de gravar

    Mensagem  Alexandre Neves 5/4/2012, 19:14

    Boa tarde, Robert

    Utilize:
    Sub Incluir_Entradas()
    On Error GoTo MostraErro
    ...
    Sair:
    Exit Sub
    MostraErro:
    MsgBox err.Number & vbCr & err.Description, , "ERRO"
    GoTo Sair
    End Sub
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Verificar se banco esta aberto na hora de gravar Empty Verificar se banco esta aberto na hora de gravar

    Mensagem  good guy 5/4/2012, 20:00

    No site do Macoratti,

    http://www.macoratti.net/connect.htm

    Tente adaptar o seguinte código:

    Dim cnn as ADODB.Connection
    Set cnn = New ADODB.Connection

    'abrindo uma conexão usando um DSN configurado com o nome de Teste

    Cnn.Open "Teste" , "usuario", ""

    'Verifica se a conexão foi efetivamente efetuada

    If cnn.State = adStateOpen then

    Msgbox " Conexão ativa "

    else

    MsgBox " Conexão inativa "

    End if

    Cnn.close 'Fecha a conexão
    avatar
    Robert_2012
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 07/03/2012

    [Resolvido]Verificar se banco esta aberto na hora de gravar Empty Re: [Resolvido]Verificar se banco esta aberto na hora de gravar

    Mensagem  Robert_2012 5/4/2012, 20:40

    Caros,

    Deu certo.

    Obrigado pela Ajuda.

    Conteúdo patrocinado


    [Resolvido]Verificar se banco esta aberto na hora de gravar Empty Re: [Resolvido]Verificar se banco esta aberto na hora de gravar

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 14:26