ATUALIZACAO DE DADOS
Pessoal,
Estou com problemas para atualizar o banco de dados em access utilizando instruções SQL, abaixo está um exemplo do que estou tentando fazer, a mensagem de erro diz que a instrução SQL contém erro, alguém pode me dizer o que estou fazendo de errado?
Obrigada
Ana Paula
Private Sub SalvarPag()
Dim sSQL As String
Dim auxPgto As Date
auxPgto = Format(TxtDataPag, "mm/dd/yyyy") & Format(TxtHoraPag, " hh:mm:ss")
sSQL = "UPDATE TblChassis"
sSQL = sSQL & "SET PgtoNFData =" & auxPgto
sSQL = sSQL & "WHERE NumNF =" & TxtNFPag
db.Execute (sSQL)
End Sub
Estou com problemas para atualizar o banco de dados em access utilizando instruções SQL, abaixo está um exemplo do que estou tentando fazer, a mensagem de erro diz que a instrução SQL contém erro, alguém pode me dizer o que estou fazendo de errado?
Obrigada
Ana Paula
Private Sub SalvarPag()
Dim sSQL As String
Dim auxPgto As Date
auxPgto = Format(TxtDataPag, "mm/dd/yyyy") & Format(TxtHoraPag, " hh:mm:ss")
sSQL = "UPDATE TblChassis"
sSQL = sSQL & "SET PgtoNFData =" & auxPgto
sSQL = sSQL & "WHERE NumNF =" & TxtNFPag
db.Execute (sSQL)
End Sub
se o campo PgtoNFData for do tipo data, voce precisa fazer uma pequena alteracao
sSQL = "UPDATE TblChasses"
sSQL = sSQL & " SET PgtoNFData=#" & auxPgto & "#"
sSQL = sSQL & " Where NumNF=" & txtNFPag & ";"
além dos dois #, cuidado com espaços. No comando que você passou, TblChassis e SET estão grudados - dê espaço entre uma palavra e outra - o mesmo se repete com auxPgto e WHERE - o comando que voce passou foi algo como
Update tblChassisSet pgtonfdata =01/02/2004Where NumNF=1
e deveria ser
Update tblChassis Set pgtonfdata=#01/02/2004# Where NumNF=1;
nao se esqueca do ponto e virgula no final e aconselho a trabalhar com a data no formato yyyy/mm/dd - para evitar problemas por causa de regional settings de maquina
sSQL = "UPDATE TblChasses"
sSQL = sSQL & " SET PgtoNFData=#" & auxPgto & "#"
sSQL = sSQL & " Where NumNF=" & txtNFPag & ";"
além dos dois #, cuidado com espaços. No comando que você passou, TblChassis e SET estão grudados - dê espaço entre uma palavra e outra - o mesmo se repete com auxPgto e WHERE - o comando que voce passou foi algo como
Update tblChassisSet pgtonfdata =01/02/2004Where NumNF=1
e deveria ser
Update tblChassis Set pgtonfdata=#01/02/2004# Where NumNF=1;
nao se esqueca do ponto e virgula no final e aconselho a trabalhar com a data no formato yyyy/mm/dd - para evitar problemas por causa de regional settings de maquina
eh um tipo de identificação de que os dados são do tipo Date...
por favor encerre o tópico qdo sua dúvida estiver solucionada
por favor encerre o tópico qdo sua dúvida estiver solucionada
Tópico encerrado , respostas não são mais permitidas