Gravando data no firebird em ASP

[marvazoler 0]

Boa tarde!

 

 

Dim com

Dim a

Dim d

Dim m

function formataData( parametro )

com = cDate(parametro)

d = Day(com)

m = Month(com)

a = Year(com)

if d < 10 then d = "0"& d

if m < 10 then m = "0"& m

formataData = a &"/"& m &"/"& d

end function

dim strConexao

dim oRs

dim varpro

dim varper

dim vardatai

dim vardataf

set strConexao = CreateObject("ADODB.Connection")

strConexao.Open("DRIVER=Firebird/InterBase® driver; UID=;PWD=; DBNAME=")

Set oRs = Server.CreateObject("ADODB.Recordset")

varpro = request.form("txtpro")

varper = request.form("txtper")

vardatai = formataData( Request.Form("txtdatai") )

vardataf = formataData( Request.Form("txtdataf") )

Linha 35 do select

Set oRs = strConexao.Execute("insert into pro (produto,PER,DATA_INI,DATA_FIN)values('"&varpro&"','"&varper&"','"&vardatai&"','"&vardataf&"')")

Erro

Microsoft OLE DB Provider for ODBC Drivers erro '80004005'

[ODBC Firebird Driver][Firebird]conversion error from string ""

/promo.asp, linha 35

 

 

O é esse erro?

 

Desde ja agradeço

[marvazoler 0]

Se alguem puder me ajudar!

[marvazoler 0]

Eu testei almas coisas, mais,, nada!!

[Fernando C 128]

não "capisco niente" de firebird, mas no caso o preenchimento do(s) campo(s) é obrigatório, senão da erro mesmo.

[marvazoler 0]

Bom dia, fiz o teste de recuperação da variavel de dada, e esta certa, ela me mostra o resultado correto!

ai, quando aplico novamente a função , continua a dar erro de conversão!, eita que coisa!

Se alguem tiver ideia!

 

Obs, estou usando banco local, ou seja, estou usando o 127.0.0.1, para realizar testes!

[Fernando C 128]

aparentemente a função está ok (testei e p/ o mysql/postgres precisaria só corrigir 1 linha).

assim, eu tentaria um "response.write" na sql.

[marvazoler 0]

Eu tambem fiz o response, e esta ok, o caso é qual linha esta errada!

Procurei na net e nada!

Obrigado pelo retorno!

[Fernando C 128]

qual linha esta errada!

esta:

 

formataData = a &"/"& m &"/"& d

mysql e postgres não aceitam barras.

 

troquei por traços (ou hifens):

formataData = a &"-"& m &"-"& d

tenta ai, quem sabe...

[marvazoler 0]

Infelizmente, não deu ainda!

[marvazoler 0]

Achei a solução!

 

Assim, não funciona

vardatai = formataData( Request.Form("txtdatai") )

vardataf = formataData( Request.Form("txtdataf") )

Assim, funciona

vardatai = (formataData( Request.Form("txtdatai") ))

vardataf = (formataData( Request.Form("txtdataf") ) )

 

 

Ou seja, tive que amarrar a função tambem!

 

Obrigado pela atenção!

[Fernando C 128]

kramba.. como de costume, vai entender essa M$..rs..

que bom q resolveu.. parabéns..