Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Update Access no SQL Server 2000


Pivato

Pergunta

Olá.

Sou novo aqui no fórum e faz muito tempo que não programo em VB. Preciso da ajuda de vocês.

Fiz um formulário no Access, para fazer um UPDATE no banco SQL que tenho aqui na empresa. Abaixo está o meu código, porém está errado, mas não sei onde está o erro.

Quando clico no botão Atualizar do formulário, surge a tela de erro: "Erro em tempo de execução '2185' - Você não pode fazer referência a uma propriedade ou método de um controle a menos que o controle tenha foco"

Private Sub cmd_atualiza_nota_Click()

Dim conn As New ADODB.Connection

Dim ssql As String

conn.Open "PROVIDER=MSDASQL;" & _

"DSN=dsn_DBBAYARD;DATABASE=DBBAYARD;" & _

"UID=BAYARD;PWD=ESPORTES;"

ssql = "UPDATE SEQ_NF_BKP SET " & _

"ULT_NF_EMI = '" & txt_nota.Text & "' " & _

"WHERE CNPJ_EMISS = '" & txt_cnpj.Text & "' " & _

"AND NUM_SERIE = & txt_num_serie.Text

conn.Execute ssql

MsgBox "Registro alterado com Sucesso!!!", vbInformation + vbOKOnly, "Conexão com Banco de Dados"

End Sub

Agradeço a ajuda. :rolleyes:

Link para o comentário
Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

  • 0

Obrigado MrMALJ.

Já alterei a string de conexão para essa:

conn.Open "Provider=sqloledb;Data Source=server-dba;Initial Catalog=DBBAYARD;User Id='BAYARD';Password='ESPORTES';"

Agora aparece o erro de falha no login. Eu uso esse mesmo usuário para acessar o banco pelo Enterprise Manager, mas para fazer esse Update não vai.

Vou tentando encontrar a solução, mas aguardo uma "luz" de alguém aqui do Fórum.

Obrigado!

Link para o comentário
Compartilhar em outros sites

  • 0

Pessoal, ainda não consegui resolver esse mistério.

Já verifiquei o acesso do usuário ao banco, tentei outras strings de conexão, mas continua informando que o Login ou Senha estão errados.

Será que alguém sabe onde está o problema?

Obrigado.

Link para o comentário
Compartilhar em outros sites

  • 0

Parece que consegui fazer o login no banco, mas agora mostra a seguinte mensagem:

"Erro em tempo de execução '2185'

Você não pode fazer referência a uma propriedade ou método de um controle a menos que o controle tenha foco."

Quando peço para depurar, as linhas abaixo estão selecionadas:

ssql = "UPDATE SEQ_NF_BKP SET " & _

"ULT_NF_EMI = '" & txt_nota.Text & "' " & _

"WHERE CNPJ_EMISS = '" & txt_cnpj.Text & "' " & _

"AND NUM_SERIE = & txt_num_serie.Text"

Segue O código completo:

==============================================================================

Option Compare Database

Private Sub cmd_atualiza_nota_Click()

Dim conn As New ADODB.Connection

Dim ssql As String

conn.Open "Driver={SQL Server};Server=SERVER-DBA\QDT_SAVE;Database=DBBAYARD;Uid=BAYARD;Pwd=ESPORTES;"

ssql = "UPDATE SEQ_NF_BKP SET " & _

"ULT_NF_EMI = '" & txt_nota.Text & "' " & _

"WHERE CNPJ_EMISS = '" & txt_cnpj.Text & "' " & _

"AND NUM_SERIE = & txt_num_serie.Text"

conn.Execute ssql

MsgBox "Registro alterado com Sucesso!!!", vbInformation + vbOKOnly, "Conexão com Banco de Dados"

conn.Close

End Sub

Link para o comentário
Compartilhar em outros sites

  • 0

Pessoal, muito obrigado pela atenção. Com um pouco de dedicação, consegui resolver o problema.

Segue o código correto.

===========================================================================

Private Sub cmd_atualiza_nota_Click()

Dim conn As New ADODB.Connection

Dim ssql As String

conn.Open "Driver={SQL Server};Server=SERVER-DBA\QDT_SAVE;Database=DBBAYARD;Uid=BAYARD;Pwd=ESPORTES;"

ssql = "UPDATE SEQ_NF SET ULT_NF_EMI = '" & txt_nota & "' WHERE CNPJ_EMISS = '" & txt_cnpj & "' AND NUM_SERIE = '" & txt_num_serie & "' "

conn.Execute ssql

conn.Close

MsgBox "Registro alterado com Sucesso!!!", vbInformation + vbOKOnly, "Conexão com Banco de Dados"

End Sub

===========================================================================

Obrigado!

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...