Pivato

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!

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

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.

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!

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: