sistema em asp

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,

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;

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

Att,

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

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

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

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

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.

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

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

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.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
%>

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

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

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.

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>

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,

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

Olha este artigo usando o método AutoSave

xanburzum esse artigo AutoSave em Jquery e asp.net

da pra fazer isso em asp ou so em asp.net

Em ASP.Net, mas vc pode rodar tranquilamente .asp com .aspx

xanburzum e ai blz

o sistema que eu fiz em asp eu faço o cadastro de cliente e preencho todos os campos ai tem como criar um botão e nesse botão pesquisar todos os campos que foi preenchido na tabela

ai eu preciso que os campos já fiquem preenchidos automaticamente

e como eu faço isso em asp

e ai galera blz

eu quero fazer igual a isso

Botão Gravar, Botão Excluir Botão Incluir como que eu faço isso em asp entendeu

igual a esse código mais so que em asp

Private Sub BtnSalvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSalvar.Click

If Me.TxtNome.Text = "" Then

MsgBox("Por Favor informe um nome para este Cliente!", MsgBoxStyle.Information, "Cadastro de Clientes")

TxtNome.Focus()

Exit Sub

ElseIf TxtEndereco.Text = "" Then

MsgBox("Por Favor informe o endereco do Cliente!", MsgBoxStyle.Information, "Cadastro de Clientes")

TxtEndereco.Focus()

Exit Sub

ElseIf TxtCidade.Text = "" Then

MsgBox("Por favor informe a cidade do Cliente!", MsgBoxStyle.Information, "Cadastro de Clientes")

TxtCidade.Focus()

Exit Sub

ElseIf cboEstado.Text = "" Then

MsgBox("Por Favor informe o Estado do Cliente!", MsgBoxStyle.Information, "Cadastro de Clientes")

cboEstado.Focus()

Exit Sub

ElseIf TxtFone.Text = "" Then

MsgBox("Por Favor informe o telefone do cliente!", MsgBoxStyle.Information, "Cadastro de Clientes")

TxtFone.Focus()

Exit Sub

Else

If mCliCod <> 0 Then

'Edita(Cliente)

Dim oCliente As New Clientes

oCliente.atualizaCliente(TxtCodigo.Text, TxtNome.Text, TxtEndereco.Text, TxtCidade.Text, cboEstado.Text, TxtFone.Text, txtEmail.Text)

If oCliente.mError = "" Then

MsgBox("Dados atualizados com sucesso !", MsgBoxStyle.Information, "Cadastro de Clientes!")

Exit Sub

Else

MsgBox("Error ao Atualizar dados do Cliente !", MsgBoxStyle.Information, "Cadastro de Clientes!")

Exit Sub

End If

Else

'Incluir Novo Cliente

Dim oCliente As New Clientes

oCliente.incluirNovoCliente(TxtNome.Text, TxtEndereco.Text, TxtCidade.Text, cboEstado.Text, TxtFone.Text, txtEmail.Text)

If oCliente.mError = "" Then

MsgBox("Cliente includo com sucesso !", MsgBoxStyle.Information, "Cadastro de Clientes!")

Exit Sub

Else

MsgBox("Error ao incluir Cliente no Banco de Dados!" & vbCrLf & oCliente.mError, MsgBoxStyle.Information, "Cadastro de Clientes!")

Exit Sub

End If

End If

End If

End Sub

ainda sobre o autosabe, é interessante o uso deste plugin, funciona muito bem: http://sisyphus-js.herokuapp.com/

sobre a validação, use o Jquery.Validate

sobre preenchimento automatico de campos, olhe isso

espero ter ajudado...

Você pode trabalhar com asp e .net juntos

xanburzum Eu so trabalho com asp vou começar a mexer com vb.net e comecei a mexer com asp.net