Postada em 14/03/2008 10:26 hs
galera estou com um erro identico ao do lu_sandman:
Run-time error '-2147217900 (80040e14)': Syntax error in INSERT INTO statement.
Analizei todas as sugestões dadas aki mas nenhma se encaixa no meu caso.
Minha função é a seguinte:
Public Sub Insere_Job()
On Error GoTo lError
Dim sql As String
sql = "INSERT INTO TB_JOBS (ID_SISTEMA, ID_AMBIENTE, JOB, PROC, " &_
"DESCRICAO, PERIODICIDADE, CONDICAO_EXEC, SITUACAO, " & _
"EXCLUIDO) VALUES (" & id_sistema & "," & id_ambiente & ",'" &
frmBatchInserir.txtJob & "','" & frmBatchInserir.txtProc & "','" & _
frmBatchInserir.txtDesccricao & "','" & frmBatchInserir.txtPeriodicidade & _
"','" & frmBatchInserir.txtCondicoes & "','" & frmBatchInserir.cboSituacao
& "','N')"
Set rsdados = conect.Execute(sql)
lContinue:
Exit Sub
lError:
MsgBox Err.Number & " - BASE DE DADOS INDISPONÍVEL!"
MsgBox Err.Description
Exit Sub
End Sub
Quando dou um Debug.print na várial sql ele me traz o seguinte valor:
INSERT INTO TB_JOBS (ID_SISTEMA, ID_AMBIENTE, JOB, PROC, DESCRICAO, PERIODICIDADE, CONDICAO_EXEC, SITUACAO, EXCLUIDO) VALUES (1,3,'AAAAA','BBBBB','DDDDDD','CCCCC','EEEEEEE','ATIVO','N')
Já peguei essa string acima e executei direto no QueryAnalyser do Access e a inserção é feita com sucesso! mas quando é pelo VB dá o erro mencionado
PS: já usei esse mesmo código para Inserts mais simples e funciona normalmente!
Espero que alguém possa ajudar!
|
