(Resolvido) Update Access no SQL Server 2000

[Pivato]

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:

[MrMALJ]

Talvez alguma falha no codigo de conexão dá uma olhada aqui:

http://www.connectionstrings.com/

[Pivato]

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!

[Pivato]

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.

[Pivato]

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

[MrMALJ]

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"

[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!

[MrMALJ]

Agradeço por você ter retornado a sua solução isso com certeza poderá ajudar outras pessoas com dúvidas semelhantes a que você teve.