Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

reinaldo polato

sistema em asp

Recommended Posts

e ai galera blz o insert into não funciona eu queria que o botão gravar gravasse tudo que foi digitado nessa pagina de cadastro o sql insert into está no final da pagina ele da esse erro

 

Erro de compilação do Microsoft VBScript erro '800a0409'

Constante de cadeia não finalizada

/re/grade/cadastrar_grade.asp, linha 85

sql = "INSERT INTO Grade (Tamanho,Cores,Valor_de_Venda,Quantidade,Quantidade_Estoque,Quantidade_Grade,Quantidade_para_Cadastro)-------------------------------------------------------------------------------------------------------------------------------^

 

 

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<title> Cadastrar Grade </title>
<form name="frm1" Method="Post" action="receber_cadastro_grade.asp">
<table align="left" width="40" border="1">
<tr>
<tr>
<td>
</tr>
</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Tamanho</font><td>
<td width="423" colspan="8"><input type="text" name="Tamanho" Size="20"></font><td>
<tr>
<td>
</tr>
</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Cores</font><td>
<td width="423" colspan="8"><input type="text" name="Cores" Size="20"></font><td>
<tr>
<td>
</tr>
</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Valor_de_Venda</font><td>
<td width="423" colspan="8"><input type="text" name="Valor_de_Venda" Size="20"></font><td>
<tr>
<td>
</tr>
</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Quantidade</font><td>
<td width="423" colspan="8"><input type="text" name="Quantidade" Size="20"></font><td>
<tr>
<td>
</tr>
</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Quantidade_Estoque</font><td>
<td width="423" colspan="8"><input type="text" name="Quantidade_Estoque" Size="20"></font><td>
<tr>
<td>
</tr>
</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Quantidade_Grade</font><td>
<td width="423" colspan="8"><input type="text" name="Quantidade_Grade" Size="20"></font><td>
<tr>
<td>
</tr>
</td>
<td bgcolor="#336699" width="111" align="left"><font color="#ffffffr">Quantidade_para_Cadastro</font><td>
<td width="423" colspan="8"><input type="text" name="Quantidade_para_Cadastro" Size="20"></font><td>
<tr>
<td>
</tr>
</td>
<td align="left"><input type="Submit" name="btn_Cadastrar" value=" Cadastrar Grade"></td>
<tr>
<td>
</tr>
</td>
<P> </P>
</form>
</table>
</BODY>
</HTML>

<%
set conexao = server.createObject("ADODB.Connection")

Conexao.ConnectionString = "Provider=SQLOLEDB;Database=db_Grade;Server=maquina08;Uid=sa;Pwd=123456789"
Conexao.Open()

Tamanho= Request.Form("Tamanho")
Cores= Request.Form("Cores")
Valor_de_Venda= Request.Form("Valor_de_Venda")
Quantidade= Request.Form("Quantidade")
Quantidade_Estoque= Request.Form("Quantidade_Estoque")
Quantidade_Grade= Request.Form("Quantidade_Grade")
Quantidade_para_Cadastro= Request.Form("Quantidade_para_Cadastro")

conexao.execute sql


sql = "INSERT INTO Grade (Tamanho,Cores,Valor_de_Venda,Quantidade,Quantidade_Estoque,Quantidade_Grade,Quantidade_para_Cadastro)
Values ('" &Tamanho& "', '" & Cores & "','" & Valor_de_Venda & "','" & Quantidade & "','" & Quantidade_Estoque & "','" & Quantidade_Grade & "','" & Quantidade_para_Cadastro & "')"


response.write "sql = " & sql

response.redirect "receber_cadastro_grade.asp"

%>

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá Reinaldo,

 

O seu INSERT, aparenta está tudo certinho.

Se vc está usando includes junto com esta página, seria bom dar uma boa revisada neles se estão corretos e também se está, abrindo e fechando corretamente, exemplo: <!--#include file="seu_arquivo.asp"-->.

 

att,

Compartilhar este post


Link para o post
Compartilhar em outros sites

Pelo o que eu to vendo ele diz quais coluna quer inserir mas eu nao estou vendo o value.

 

https://www.facebook.com/webprogramation

 

Att;

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá Gilberto Jr, beleza.

 

Ele postou com os values sim:

 

sql = "INSERT INTO Grade (Tamanho,Cores,Valor_de_Venda,Quantidade,Quantidade_Estoque,Quantidade_Grade,Quantidade_para_Cadastro)
 Values ('" &Tamanho& "', '" & Cores & "','" & Valor_de_Venda & "','" & Quantidade & "','" & Quantidade_Estoque & "','" & Quantidade_Grade & "','" & Quantidade_para_Cadastro & "')"

O problema dele, deve estar no restante do código ou em outra página com INCLUDE, como eu referi acima.

 

Att,

Compartilhar este post


Link para o post
Compartilhar em outros sites

Dá um response.write na sua string SQL para ver o que esta sendo passado e verifique se todas as aspas estão corretas.

Compartilhar este post


Link para o post
Compartilhar em outros sites

e ai galera blz

 

está dando esse erro

 

Constante de cadeia não finalizada

 

na linha do insert Into

 

 

sql = "INSERT INTO Grade (Tamanho,Cores,Valor_de_Venda,Quantidade,Quantidade_Estoque,Quantidade_Grade,Quantidade_para_Cadastro) Values ('" &Tamanho& "', '" & Cores & "','" & Valor_de_Venda & "','" & Quantidade & "','" & Quantidade_Estoque & "','" & Quantidade_Grade & "','" & Quantidade_para_Cadastro & "')

 


Compartilhar este post


Link para o post
Compartilhar em outros sites

verifique se as aspas estão corretas e se esta passando os valores de acordo com a tipagem dos campos.

Compartilhar este post


Link para o post
Compartilhar em outros sites

agora está dando esse erro

 

Microsoft OLE DB Provider for SQL Server erro '80040e0c'

O comando de texto não foi definido para o objeto de comando.

/re/grade/cadastrar_grade.asp, linha 91

 

<%
set conexao = server.createObject("ADODB.Connection")

Conexao.ConnectionString = "Provider=SQLOLEDB;Database=db_Grade;Server=maquina;Uid=login;Pwd="senha
Conexao.Open()

Tamanho= Request.Form("Tamanho")
Cores= Request.Form("Cores")
Valor_de_Venda= Request.Form("Valor_de_Venda")
Quantidade= Request.Form("Quantidade")
Quantidade_Estoque= Request.Form("Quantidade_Estoque")
Quantidade_Grade= Request.Form("Quantidade_Grade")
Quantidade_para_Cadastro= Request.Form("Quantidade_para_Cadastro")

conexao.execute sql


SQL = "Insert Into Cadastro"

SQL = SQL & "(Tamanho,Cores,Valor_de_Venda,Quantidade,Quantidade_Estoque,Quantidade_Grade,Quantidade_para_Cadastro)"

SQL = SQL & "Values ('" &Tamanho& "', '" & Cores & "','" & Valor_de_Venda & "','" & Quantidade & "','" & Quantidade_Estoque & "','" & Quantidade_Grade & "','" & Quantidade_para_Cadastro & "')"

response.write "sql = " & sql

response.redirect "receber_cadastro_grade.asp"

conexao = nothing

set conexao = nothing


%>

 

quando eu criei o banco de dados no sql server eu coloquei tudo como texto

 

tipo assim

 

Tamanho = nvarchar 50

Cores = nvarchar 50

Valor_de_Venda = nvarchar 50

Quantidade = nvarchar 50
Quantidade_Estoque =nvarchar 50
Quantidade_Grade =nvarchar 50

Quantidade_para_Cadastro = nvarchar 50

Compartilhar este post


Link para o post
Compartilhar em outros sites

Esse erro geralmente é causado por uma instrução SQL vazia (e não necessariamente lidar com o objeto explícito ADODB.Command).


Use o Option Explicit para evitar erros como este (bem, na verdade, usando Option Explicit só iria causar um erro diferente). Utilizando práticas de depuração rápida e sensata, ajudando a determinar a causa de muitos erros relacionados SQL.

Compartilhar este post


Link para o post
Compartilhar em outros sites

e ai galera blz

 

quero fazer tipo assim na pagina de cadastro de grade eu preencho os campos ai eu clico no botão gravar ai grava tudo que foi preenchido

isso é feito com insert into ou pode ser feito com ajax

Compartilhar este post


Link para o post
Compartilhar em outros sites

tem que fazer via SQL através do INSERT, apenas recupere os dados dos form crie a SQL INSERT

Compartilhar este post


Link para o post
Compartilhar em outros sites

Esse Código eu consegui fazer gravar

 

mais o problema dele é que ele grava no banco de dados ai na pagina do formulário eu tenho que digitar tudo de novo ele não fica gravado ele so grava no banco de dados

 

 

 

<%
'definição do nome da sua classe
Class Agenda

Dim Nome, Endereco, Telefone, Email 'definição de variáveis que serão utilizadas para guardar as informações que serão digitadas.
Private Conex 'variáel que fará a conexão com banco.
Private RS 'variável do recordset.
Private SQL 'variável que terá o retorno do que foi gravado.

'Criei variáveis privadas, porque só serão usadas aqui na classe.
Private Sub AbrirConexao
Set Conex = CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.Recordset")
Conex.Open "dbq=C:\re\calculadora\db_cadastro.mdb;driver={Microsoft Access Driver (*.mdb)}" 'colque sua string de conexão
End Sub

'função que chamarei para fazer a inclusão dos dados.
Sub Incluir
'chama a função que faz a conexão com banco.
Call AbrirConexao
SQL = "Insert into Cadastro (Nome, Endereco, Telefone, Email) values ('" & nome & "', '" & Endereco & "', '" & Telefone & "', '" & Email & "')"
set RS = Conex.Execute(SQL)


Call FecharConexao
End Sub

'função que fecha a conexão com o banco.
Private Sub FecharConexao
If Conex.State <> 0 Then Conex.Close
End Sub


End Class
%>

<html>
<head>
<title>Form Incluir - Usando Classe</title>
</head>
<body>
<form name="FormIncluir" method="post">

<table width="42%" border="0" cellspacing="1" cellpadding="1" align="center">
<tr>
<td width="13%">Nome:</td>
<td width="87%">
<input type="text" name="nome" size="50">
</td>
</tr>
<tr>
<td>Endereço:</td>
<td>
<input type="text" name="endereco" size="40">
</td>
</tr>
<tr>
<td>Telefone:</td>
<td>
<input type="text" name="telefone" size="20">
</td>
</tr>
<tr>
<td>E-mail:</td>
<td>
<input type="text" name="email" size="60">
</td>
</tr>
<tr>
<td colspan="2" align="center" height="40">
<input type="button" name="gravar" value=" Gravar " onClick="clicou();">  
</td>
</tr>
</table>
<input type="hidden" name="bt">
</form>
</body>
</html>

<script>
function clicou()
{
FormIncluir.bt.value = 0;
FormIncluir.action = 'calculadora.asp'
FormIncluir.submit();
}

</script>

<%
if request("bt") = "0" then
'Chamando a classe que possui a função incluir que grava no banco de dados
dim ag
'INSTÂNCIA A CLASSE
set ag = new agenda

'atribui os valores digitados nos campos àquelas variáveis que criamos na classe. Lembra?
Nome = request("nome")
Endereco = request("endereco")
Telefone = request("telefone")
Email = request("email")
'Chama o nome da função
ag.incluir

response.Write("<div align=center>Dados incluido com sucesso....</div>")
end if
%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

não entendi, você quer que os dados fiquem nos campos do form ?

Compartilhar este post


Link para o post
Compartilhar em outros sites

eu tenho uma pagina de cadastro

 

com os campos Abaixo ai no form eu digito assim igual em baixo ai eu quero que esses dados fiquem gravado no formulário pra mim não ter que digitar tudo de novo

 

nome : Reinaldo
Endereco : Endereço do Cliente
Telefone: Telefone do Cliente

E-mail : e eu digito o nome do cliente

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá Reinaldo,

 

Está página que vc fez, é para Inserir, gravar em sua base de dados.

 

Se vc quer Mostrar essas informações, terá que fazer isso Resgatando essas informações através do Resquest.form:

 

Cria um select de sua base de dados com sua Tabela e campos, e pede para mostrar as informações abaixo.

 

listar_dados = Request.form("nome")

listar_dados = Request.form("endereco")

 

<form ...>

<input type=text name=nome value="<%=listar_dados("nome")%>">

</form>

 

 

E assim, vc vai listando todos os campos que desejar.

 

 

Espero que ajude.

Compartilhar este post


Link para o post
Compartilhar em outros sites

DBNETLIB][ConnectionOpen (Connect()).]SQL Server inexistente ou acesso negado.

 

está dando erro na linha 51

 

sql = INSERT INTO Cadastro (Tamanho,Cores,Valor_de_Venda,Quantidade,Quantidade_Estoque,Quantidade_Grade,Quantidade_para_Cadastro) VALUES ('35','Azul','10','20','30','40','50')

 

está aparecendo assim o sql insert into

 

essa é a pagina de conexão do sistema


<%

'Mostrar Parametros

Tamanho=Request.Form("Tamanho")
Cores=Request.Form("Cores")
Valor_de_Venda=Request.Form("Valor_de_Venda")
Quantidade=Request.Form("Quantidade")
Quantidade_Estoque=Request.Form("Quantidade_Estoque")
Quantidade_Grade=Request.Form("Quantidade_Grade")
Quantidade_para_Cadastro=Request.Form("Quantidade_para_Cadastro")

 

dim conexao
dim strDriver
dim objconexao
dim objrecordset


dim StrSQL


set DBConn =server.CreateObject("ADODB.connection")
strConexao = "Provider=SQLOLEDB;Database=Db_Grade;Server=nomemaquina;Uid=login;Pwd=senha"
'Provider=SQLOLEDB;Database=NomeDoSeuBancoDeDados;Server=NomeDoServidor;Uid=Seuusuario;Pwd=SuaSenha"


sql="INSERT INTO Cadastro (Tamanho,Cores,Valor_de_Venda,Quantidade,Quantidade_Estoque,Quantidade_Grade,Quantidade_para_Cadastro)"
sql=sql & " VALUES "
sql=sql & "('" & Request.Form("Tamanho") & "',"
sql=sql & "'" & Request.Form("Cores") & "',"
sql=sql & "'" & Request.Form("Valor_de_Venda") & "',"
sql=sql & "'" & Request.Form("Quantidade") & "',"
sql=sql & "'" & Request.Form("Quantidade_Estoque") & "',"
sql=sql & "'" & Request.Form("Quantidade_Grade") & "',"
sql=sql & "'" & Request.Form("Quantidade_para_Cadastro") & "')"


response.write "sql = " & sql

 

'strconexao="DBQ=c:\vendas\cadastrar cliente\db_vendedor.mdb"
'strdriver="Driver={Microsoft Access Driver (*.mdb)}"

set objconexao=server.CreateObject("adodb.connection")
set objrecordset=server.CreateObject("adodb.recordset")

objconexao.Open strconexao & ";" & strdriver

objrecordset.Open "Cadastro",objconexao,1,3,2
objrecordset.AddNew
objrecordset.Fields("Tamanho")= Request("Tamanho")
objrecordset.Fields("Cores")= Request("Cores")
objrecordset.Fields("Valor_de_Venda")= Request("Valor_de_Venda")
objrecordset.Fields("Quantidade")= Request("Quantidade")
objrecordset.Fields("Quantidade_Estoque")= Request("Quantidade_Estoque")
objrecordset.Fields("Quantidade_Grade")= Request("Quantidade_Grade")
objrecordset.Fields("Quantidade_para_Cadastro")= Request("Quantidade_para_Cadastro")
objrecordset.Update
Response.Write "cadastro incluido com sucesso. Codigo nr. " & Tamanho

objconexao.Close
set objconexao=nothing
set objrecordset=nothing

%>

<table width="100">
<tr>
<td bgcolor="#336699"><font color="#ffffffr">Tamanho</td>
<td bgcolor="#336699"><%Response.Write(Tamanho)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="#ffffffr">Cores</td>
<td bgcolor="#336699"><%Response.Write(Cores)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="#ffffffr">Valor_de_Venda</td>
<td bgcolor="#336699"><%Response.Write(Valor_de_Venda)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="#ffffffr">Quantidade</td>
<td bgcolor="#336699"><%Response.Write(Quantidade)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="#ffffffr">Quantidade_Estoque</td>
<td bgcolor="#336699"><%Response.Write(Quantidade_Estoque)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="#ffffffr">Quantidade_Grade</td>
<td bgcolor="#336699"><%Response.Write(Quantidade_Grade)%></td>
</tr>
<tr>
<td bgcolor="#336699"><font color="#ffffffr">Quantidade_para_Cadastro</td>
<td bgcolor="#336699"><%Response.Write(Quantidade_para_Cadastro)%></td>
</tr>
<tr>

</table>
<form name="btn1" method="Post" action="consultar_cadastro_grade.asp">
<input type="Submit" name="frm4" value="Consulta Cadastro Grade >>>">
</form>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá Reinaldo,

 

Este erro "SQL Server inexistente ou acesso negado." Pode ser:

 

O nome (local) esta errado;

 

O nome do usuario ou senha estão errados.

Verifique esses dados, o nome do servidor, usuario e senha.

 

Precisa informar corretamente os nomes que instância seu SQL Server.

 

Espero que ajude,

 

Att,

Compartilhar este post


Link para o post
Compartilhar em outros sites

tem um sistema da totvz e outros por ai que faz assim na pagina de cadastro de cliente você preenche tudo ai você clica em salvar ai tudo que você preencheu fica salvo ai você faz outro cadastro de clientes e clica em salvar ai fica cadastrado pra você não digitar tudo de novo

 

eu fiz o sistema em asp com sql insert into na terça pagina aonde tem a pagina de conexão

 

mais so que quando eu volto pra primeira pagina aonde é a pagina do cadastro ele não grava nada

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olha este artigo usando o método AutoSave

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.