Erro No Insert

[ju-rezende]

Olá pessoal estou tentado usoa o insert mas ta dando o seguinte erro

Erro de compilação do Microsoft VBScript (0x800A0401)

Fim da instrução esperado

/tulio/Adicionar.asp, line 56, column 118

insere = "insert into clientes(empresa) Values ('" & vempresa & "','" & vendereco & "','" & vbairro & "','" & vcidade "', " & vtelefone & "," & vtelfax & ", '" & vproprietario & "', '" & vplano "'," & vvencimento & ",'" & vemdia & "','" & vcategoria & "'," & vvalor & ",'" & vsite"')"

---------------------------------------------------------------------------------------------------------------------^

Meu codigo

dim con

dim rs

dim vempresa

dim vendereco

dim vbairro

dim vcidade

dim vtelefone

dim vtelfax

dim vproprietario

dim vplano

dim vencimento

dim vemdia

dim vcategoria

dim valor

dim vsite

dim vdelet

dim sql

dim insere

dim recset

vempresa=trim(request.form ("Empresa"))

vendereco=trim(request.form("Endereco"))

vbairro=trim(request.form("Bairro"))

vcidade=trim(request.form("Cidade"))

vtelefone=trim(replace(request.form("Telefone"),"'", ""))

vtelfax=replace(request.form("Telfax"),"'","")

vproprietario=trim(request.form("Prorietario"))

vplano=trim(request.form("Plano"))

vvencimento=isdate(request.form("vencimento"))

vemdia=trim(request.form("EmDia"))

vcategoria=trim(request.form("Categoria"))

vvalor=isnumeric(reques.form("Valor"))

vsite=trim(request.form("Site"))

insere = "insert into clientes(empresa) Values ('" & vempresa & "','" & vendereco & "','" & vbairro & "','" & vcidade "', " & vtelefone & "," & vtelfax & ", '" & vproprietario & "', '" & vplano "'," & vvencimento & ",'" & vemdia & "','" & vcategoria & "'," & vvalor & ",'" & vsite"')"

call AbreConexao()

set recset = con.execute(insere)

response.write "Dados Cadastrados com Sucesso!!!"

Call FechaConexao()%>

Alguém poderia me ajudar?

[.Andreia.]

insere = "insert into clientes(empresa) Values ('" & vempresa & "','" & vendereco & "','" & vbairro & "','" & vcidade & "', " & vtelefone & "," & vtelfax & ", '" & vproprietario & "', '" & vplano & "'," & vvencimento & ",'" & vemdia & "','" & vcategoria & "'," & vvalor & ",'" & vsite & "')"

[ju-rezende]

Valeu mesmo erre nas concatenizaçoes,

só q agora da outo erro

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: ''

/tulio/Adicionar.asp, line 52

meu codigo

vempresa=trim(request.form ("Empresa"))

vendereco=trim(request.form("Endereco"))

vbairro=trim(request.form("Bairro"))

vcidade=trim(request.form("Cidade"))

vtelefone=trim(replace(request.form("Telefone"),"'", ""))

vtelfax=replace(request.form("Telfax"),"'","")

vproprietario=trim(request.form("Prorietario"))

vplano=trim(request.form("Plano"))

vvencimento=isdate(request.form("vencimento"))

vemdia=trim(request.form("EmDia"))

vcategoria=trim(request.form("Categoria"))

LINHA 52 vvalor=isnumeric(reques.form("Valor"))

vsite=trim(request.form("Site"))

insere = "insert into clientes(empresa,Endereco,Bairro,Cidade,Telefone, TelFax, Proprietario, Plano, Vencimento, EmDia, Categoria, Valor, Site) Values ('" & vempresa & "','" & vendereco & "','" & vbairro & "','" & vcidade & "', " & vtelefone & "," & vtelfax & ", '" & vproprietario & "', '" & vplano & "'," & vvencimento & ",'" & vemdia & "','" & vcategoria & "'," & vvalor & ",'" & vsite & "')"

[.Andreia.]

Juliana, questao de entender a linha... a maioria dos seus erros são de digitação. veja:

vvalor=isnumeric(request.form("Valor"))

[ju-rezende]

Desculpe mesmo, valeu pelo toque, mas agora deu outro erro

Microsoft JET Database Engine (0x80040E10)

Nenhum valor foi fornecido para um ou mais parâmetros necessários.

/tulio/Adicionar.asp, line 59

codigo

insere = "insert into clientes(empresa,Endereco,Bairro,Cidade,Telefone, TelFax, Proprietario, Plano, Vencimento, EmDia, Categoria, Valor, Site) Values ('" & vempresa & "','" & vendereco & "','" & vbairro & "','" & vcidade & "', " & vtelefone & "," & vtelfax & ", '" & vproprietario & "', '" & vplano & "'," & vvencimento & ",'" & vemdia & "','" & vcategoria & "'," & vvalor & ",'" & vsite & "')"

call AbreConexao()

Linha 59 set recset = con.execute(insere)

response.write "Dados Cadastrados com Sucesso!!!"

Call FechaConexao()%>

[kuroi]

algum nome de campo (empresa,Endereco,Bairro,Cidade,Telefone, TelFax, Proprietario, Plano, Vencimento, EmDia, Categoria, Valor, Site) esta errado ou não existe no banco.

[ju-rezende]

O pior é tosos esses campos existem.

[.Andreia.]

ok... mas viu se estão corretamente iguais? Uma letra já diferencia. E veja tb se os tipos de dados no BD estão iguais no INSERT. Os campos que não são textos:

telefone, telfax, vencimento e valor

no BD eles não podem estar como texto

[kuroi]

faz o seguinte. na linha em q esta

set recset = con.execute(insere)

troque por

response.write insere

mas so pra testar, depois pode tirar.

copie o codigo q aparece e tente executar como consulta no access (ou no banco q você esta utilizando) pra ver se ele aponta mais especificamente qual o erro.

[ju-rezende]

No banco o campo telefone é numero

telfax é numero

vencimento é data abreviada

e valor é moeda......

[ju-rezende]

Fiz o q disse olhe o q aconteceu

insert into clientes(Empresa,Endereco,Bairro,Cidade,Telefone,TelFax,Proprietario,Plano,Vencimento,EmDia,Categoria,Valor,Site) Values ('Dr. Alípio Aquino Gudes','Rua Cap. João José de Macedo, 304','Centro','Jacareí', 39516918,39624862, '', 'Simples',Verdadeiro,'OK','Advocacia',Verdadeiro,'')Dados Cadastrados com Sucesso!!!

[ri_nepo]

Juliana,

não tem problema

se fazer isso vai funcionar

sql = 'insert into tabela (campo1,campo2,campo3) values ('"& vcampo1 &"','"& vcampo2 &"','"& vcampo3 &"')"

mesmo sendo número moeda o dado será inserido de qualquer forma

qualquer dúvida é so falar

Ricardo

[kuroi]

troque as linhas:

vvencimento=isdate(request.form("vencimento"))
vvalor=isnumeric(request.form("Valor"))

por

vvencimento=request.form("vencimento")
vvalor=request.form("Valor")

[ju-rezende]

Fiz isso mas deu erro veja

Microsoft JET Database Engine (0x80004005)

O campo 'clientes.Proprietario' não pode ser uma seqüência de caracteres de comprimento nulo.

/tulio/Adicionar.asp, line 59

[kuroi]

veja essa linha:

vproprietario=trim(request.form("Prorietario"))

esse request.form("Prorietario") esta trazendo um valor em branco. normalmente isso não é problema, mas talvez, no banco você tenha posto pra na deixar entrar valor em branco. tipo, no access, se você puser Requerido = Sim.

se você realmente não quiser deixar cadastrar em branco, você deve validar antes do insert. senao, verifique o banco.

[ju-rezende]

valeu mesmo pela ajuda ....sem a ajuda de vocês eu não teria conseguido...

olhe o q diz com a data

vvencimento=datevalue(request.form("vencimento"))

é possivel fazer uma mascara para ela ?

existe algo parecido com o q fiz para valor.?