Incorrect decimal value

[marvazoler 0]

Olá galera beleza?

Gostaria da ajuda de vcs, se possível

 

Seguinte estou usando asp x MySql

 

Meu campo é do tipo: Decimal

 

e estou este script

 

SET oRs2 = Conn.execute("select max(vjd_codigo) as cod from recla_col")
varnovo_codigo = (oRs2("cod")+1)
Set oRs = Conn.Execute("insert into recla_col...)

e estando este erro ao dar o insert

 

Microsoft OLE DB Provider for ODBC Drivers erro '80004005'

 

[MySQL][ODBC 3.51 Driver][mysqld-5.1.31-community]Incorrect decimal value: '' for column 'vjd_Codigo' at row 1

 

 

o que faço?

 

Desde já agradeço

[marvazoler 0]

iai galera beleza?

 

Sobre o script do meu último post, acho que tem que converte, mas não sei por onde começar!

 

Se alguem puder me ajuda!

 

Fico grato!!

[Mário Monteiro 179]

o erro é em que linha?

 

ponha as instrucoes sql completas e se possivel ponha tambem o que vem em response.write nelas

[marvazoler 0]

Eis o código Mário Monteiro

valeu pela atenção

<%
Dim conn 
Dim oRs 
Dim oRs2 
Dim filePath 
Dim vardata
Dim varreclamante
Dim varcontato
Dim varfuncionario
Dim varreferencia
Dim vardocorrencia
Dim varhocorrencia
Dim varcarro
Dim varlinha
Dim varassunto
Dim varmotivo
Dim vardescricao
Dim varnovo_codigo
Set conn = Server.CreateObject("ADODB.Connection") 
conn.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=192.168.0.1;Database=;Uid=;Pwd=;"
conn.Open()
Set oRs = Server.CreateObject("ADODB.Recordset")
Set oRs2 = Server.CreateObject("ADODB.Recordset")
vardata = request.Form("data")
varreclamante = request.Form("reclamante")
varcontato = request.Form("contato")
varfuncionario = request.Form("funcionario")
varreferencia = request.Form("referencia")
vardocorrencia = request.Form("docorrencia")
varhocorrencia = request.Form("hocorrencia")
varcarro = request.Form("carro")
varlinha = request.Form("linha")
varassunto = request.Form("assunto")
varmotivo = request.Form("motivo")
vardescricao = request.Form("descricao")
SET oRs2 = Conn.execute("select max(vjd_codigo) as cod from recla_col")
varnovo_codigo = (oRs2("cod")+1)
Set oRs = Conn.Execute("insert into recla_col(vjd_codigo,vjd_data,vjd_reclamante,vjd_tel_contato,vjd_funcionario,vjd
_Ponto_referencia,vjd_Data_ocorrencia,vjd_hora,vjd_Num_carro,vjd_linha,vjd_assun
to,vjd_motivo,vjd_descricao)values('"&varnovo_codigo&"','"&vardata&"','"&varreclamante&"', '"&varcontato&"','"&varfuncionario&"','"&varreferencia&"','"&vardocorrencia&"','"&varhocorrencia&"','"&varcarro&"', '"&varlinha&"','"&varassunto&"','"&varmotivo&"','"&vardescricao&"')")  
%>

Desde já agradeço

[Mário Monteiro 179]

imprime a sql e poste aqui

[marvazoler 0]

Tentei imprimir e me retornando isso!

 

Erro de tempo de execução do Microsoft VBScript erro '800a000d'

 

Tipos incompatíveis

 

/novo/colatina/reclam.asp, line 55

[xanburzum 169]

erro de tipo, verifique se esta tentando passar um valor numerico em uma variavel texto, ou de outro tipo,

e dá um response.write na SQL

 

SQL="insert into recla_col(vjd_codigo,vjd_data,vjd_reclamante,vjd_tel_contato,vjd_funcionario,vjd
_Ponto_referencia,vjd_Data_ocorrencia,vjd_hora,vjd_Num_carro,vjd_linha,vjd_assun
to,vjd_motivo,vjd_descricao)values('"&varnovo_codigo&"','"&vardata&"','"&varreclamante&"', '"&varcontato&"','"&varfuncionario&"','"&varreferencia&"','"&vardocorrencia&"','"&varhocorrencia&"','"&varcarro&"', '"&varlinha&"','"&varassunto&"','"&varmotivo&"','"&vardescricao&"')"
response.write SQL
response.End()

[marvazoler 0]

O meu campo é do tipo

 

DECIMAL(10,0)

 

como fazer aceitar?

 

Amigão, está dando este erro

 

Erro de tempo de execução do Microsoft VBScript erro '800a000d'

 

Tipos incompatíveis

 

/novo/colatina/reclam.asp, line 55

[Mário Monteiro 179]

qual é a linha 55?

 

teoricamente é antes disso pois nao pode dar erro depois do response.end o erro é antes

 

veja onde é esta linha e mostre aqui

[marvazoler 0]

Eis o script inteiro de insert

 

<%
Dim conn 
Dim oRs 
Dim oRs2 
Dim filePath 
Dim vardata
Dim varreclamante
Dim varcontato
Dim varfuncionario
Dim varreferencia
Dim vardocorrencia
Dim varhocorrencia
Dim varcarro
Dim varlinha
Dim varassunto
Dim varmotivo
Dim vardescricao
Dim varnovo_codigo
Set conn = Server.CreateObject("ADODB.Connection") 
conn.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=;Database=;Uid=root;Pwd=;"
conn.Open()
Set oRs = Server.CreateObject("ADODB.Recordset")
Set oRs2 = Server.CreateObject("ADODB.Recordset")
vardata = request.Form("data")
varreclamante = request.Form("reclamante")
varcontato = request.Form("contato")
varfuncionario = request.Form("funcionario")
varreferencia = request.Form("referencia")
vardocorrencia = request.Form("docorrencia")
varhocorrencia = request.Form("hocorrencia")
varcarro = request.Form("carro")
varlinha = request.Form("linha")
varassunto = request.Form("assunto")
varmotivo = request.Form("motivo")
vardescricao = request.Form("descricao")
SET oRs2 = Conn.execute("select max(vjd_codigo) as cod from recla_col")
varnovo_codigo = (oRs2("cod")+1) ' [b]Linha 55[/b]
Set oRs = Conn.Execute("insert into recla_col(vjd_codigo,vjd_data,vjd_reclamante,vjd_tel_contato,vjd_funcionario,vjd
_Ponto_referencia,vjd_Data_ocorrencia,vjd_hora,vjd_Num_carro,vjd_linha,vjd_assun
t
o,vjd_motivo,vjd_descricao)values('"&varnovo_codigo&"','"&vardata&"','"&varreclamante&"','"&varcontato&"', '"&varfuncionario&"','"&varreferencia&"','"&vardocorrencia&"','"&varhocorrencia&"','"&varcarro&"', '"&varlinha&"','"&varassunto&"','"&varmotivo&"','"&vardescricao&"')")  
response.Write(oRs)
%>

O erro é esse:

 

Erro de tempo de execução do Microsoft VBScript erro '800a000d'

 

Tipos incompatíveis

 

/novo/colatina/reclam.asp, line 55

Obrigado pela atenção!

[marvazoler 0]

Bom galera, fiz teste mas ainda não está funcionando

meu campo é do tipo DECIMAL

 

mas não funciona que quero fazer!

 

se alguem entedeu o quero fazer beleza, preciso de uma ajuda!!

 

Até +

[Mário Monteiro 179]

nao adiantou postar o codigo todo

 

qual a linah do erro?

[marvazoler 0]

A linha é essa:

 

varnovo_codigo = (oRs2("cod")+1)

 

é ela que está dando erro de:

 

Erro de tempo de execução do Microsoft VBScript erro '800a000d'

 

Tipos incompatíveis

 

/novo/colatina/reclam.asp, line 55

 

Como fazer aceitar?

[marvazoler 0]

Galera beleza?

Infelizmente não consegui resolver o meu problema ainda!!

 

pois está dando erro:

 

Erro de tempo de execução do Microsoft VBScript erro '800a000d'

 

Tipos incompatíveis

 

/novo/colatina/reclam.asp, line 55

 

 

SET oRs2 = Conn.execute("select max(vjd_codigo) as cod from recla_col")

varnovo_codigo = (oRs2("cod")+1) " Linha 55 "

 

Valeu

[Mário Monteiro 179]

tente converter para numero antes de somar

 

varnovo_codigo =  CINT(oRs2("cod")) + 1

coloquei como se o numero fosse inteiro