Ir para conteúdo
Fórum Script Brasil
  • 0

Erro No Insert


ju-rezende

Pergunta

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?

Link para o comentário
Compartilhar em outros sites

15 respostass a esta questão

Posts Recomendados

  • 0
insere = "insert into clientes(empresa) Values ('" & vempresa & "','" & vendereco & "','" & vbairro & "','" & vcidade & "', " & vtelefone & "," & vtelfax & ", '" & vproprietario & "', '" & vplano & "'," & vvencimento & ",'" & vemdia & "','" & vcategoria & "'," & vvalor & ",'" & vsite & "')"
Link para o comentário
Compartilhar em outros sites

  • 0

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 & "')"

Link para o comentário
Compartilhar em outros sites

  • 0

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()%>

Link para o comentário
Compartilhar em outros sites

  • 0

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.

Link para o comentário
Compartilhar em outros sites

  • 0

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!!!

Link para o comentário
Compartilhar em outros sites

  • 0

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.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...