PQ ISSO NAO FUNCIONA?

ONBASS 14/12/2006 09:33:47
#189875

CARA,

ce já tentou aplicar um Format(DataNova, "dd/mm/yyyy"), à s vezes a data do SO tem formato diferente, vc poderia tbm tentar usar um BeginTrans antes de iniciar e CommitTrans ao final.. tenta ae.. abs

HUGOSSOUZA 14/12/2006 09:38:31
#189876

qual o banco de dados?

USUARIO.EXCLUIDOS 14/12/2006 10:09:18
#189881

MYSQL em ADO

Vou tentar e te aviso!

abraços e valew

USUARIO.EXCLUIDOS 14/12/2006 10:17:42
#189884 Resposta escolhida

Bem, você terá de ver na base o formato no qual sua data esta sendo gravada, pois, isso varia de banco para banco, dependendo da configuração.

Sua data pode estar fsendo gravvada como dd/mm/yyyy/ ou ainda yyyy/mm/dd ou ainda outros formatos.

então veja o formato que esta em seua base, aplique o comando de formatação na sua variável data na hora da inserção e retire as #, ficaria mais ou menos assim, dependendo do formato da data na base:

SQL = "SELECT CadTermo.ODS, CadTermo.CodCli, CadTermo.DataODS, CadTermo.TempObj, CadTermo.TempMax, CadTermo.TempCorr, CadTermo.TempAmb, CadTermo.Carga, CadTermo.Class, CadTermo.Acao, CadTermo.ValorA, CadTermo.ValorB, CadTermo.ValorC, CadTermo.TipoEquip, CadTermo.TipoAbrang, CadTermo.Risco, CadTermo.OBS, CadTermo.Item, CadTermo.VelocVento, CadTermo.Path1, CadTermo.Path2, CadTermo.Path3, CadTermo.NTermo, CadTermo.Descricao, CadTermo.Componente, CadTermo.Vista, CadTermo.Emiss, CadTermo.IMed, CadTermo.CliItem, CadTermo.Simples, CadTermo.TipoCam, CadTermo.TipoTermo, CadRot.Loc, CadRot.Equip, CadCli.Nome, CadCli.Cidade, CadODS.Tecnico FROM ((CadRot INNER JOIN CadTermo ON CadRot.ItemCli = CadTermo.CliItem) INNER JOIN CadCli ON CadTermo.CodCli = CadCli.CodCli) INNER JOIN CadODS ON CadTermo.ODS = CadODS.ODS WHERE CadTermo.DataODS=" & format(DataNova,"mm/dd/yyyy") & " AND CadTermo.TipoCam='" & Camera & "'"

Espero que te ajude.

USUARIO.EXCLUIDOS 14/12/2006 10:51:44
#189898

Qto a data...já ta no tipo certo (YYYY/MM/DD)

Não posso tirar o #...pq se trata de um campo Data..se eu tirar..n dá o erro..mas a consulta n funciona tb..n seleciona nada

O arquivo em anexo..é a foto do erro que dá..assim..acho que fica mais fácil:

Valew..

USUARIO.EXCLUIDOS 14/12/2006 17:00:45
#190017

Desculpe, não tinha lido que o erro er ano insert.

abaixo veja as mudanças que fiz e tente rodar desta forma:

SQL = "SELECT CadTermo.ODS, CadTermo.CodCli, CadTermo.DataODS, " & _
"CadTermo.TempObj, CadTermo.TempMax, CadTermo.TempCorr, CadTermo.TempAmb, " & _
"CadTermo.Carga, CadTermo.Class, CadTermo.Acao, CadTermo.ValorA, " & _
"CadTermo.ValorB, CadTermo.ValorC, CadTermo.TipoEquip, CadTermo.TipoAbrang, " & _
"CadTermo.Risco, CadTermo.OBS, CadTermo.Item, CadTermo.VelocVento, " & _
"CadTermo.Path1, CadTermo.Path2, CadTermo.Path3, CadTermo.NTermo, " & _
"CadTermo.Descricao, CadTermo.Componente, CadTermo.Vista, CadTermo.Emiss, " & _
"CadTermo.IMed, CadTermo.CliItem, CadTermo.Simples, CadTermo.TipoCam, " & _
"CadTermo.TipoTermo, CadRot.Loc, CadRot.Equip, CadCli.Nome, CadCli.Cidade, " & _
"CadODS.Tecnico FROM ((CadRot INNER JOIN CadTermo ON CadRot.ItemCli = " & _
"CadTermo.CliItem) INNER JOIN CadCli ON CadTermo.CodCli = CadCli.CodCli) INNER JOIN " & _
"CadODS ON CadTermo.ODS = CadODS.ODS " & _
"WHERE CadTermo.DataODS=#" & DataNova & "# AND CadTermo.TipoCam='" & Camera & "'"

Tente desta forma para ver se funciona.

Espero que te ajude.

ConectRelat.Execute "Insert Into Relat (ODS, CodCli, DataODS, " & _
"TempObj, TempMax, TempCorr, TempAmb, Carga, Class, Acao, ValorA, " & _
"ValorB, ValorC, TipoEquip, TipoAbrang, Risco, OBS, Item, VelocVento, " & _
"Path1, Path2, Path3, NTermo, Descricao, Componente, Vista, Emiss, IMed," & _
"CliItem, Simples, TipoCam, TipoTermo, Loc, Equip, Nome, Cidade, Tecnico) " & _
& SQL