Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Galera eu fiz esse codigo e até aparece que o dado foi incluido mas no bd não aparece nada! Valeu!!<%@ Language=VBScript %><HTML><HEAD><META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"></HEAD><BODY bgcolor="#FFFFFF"><%' USANDO O COMMAND - SEM ODBC (ADO)SET CMD = Server.CreateObject("ADODB.COMMAND")CMD.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("./dados/dados.MDB")nome = Request("nome")email = Request("email")rg= Request("rg")rz_social = Request("rz_social")fantasia= Request("fantasia")cnpj= Request("cnpj")endereco= Request("endereco")complemento = Request("complemento")bairro = Request("bairro")cep = Request("cep")uf = Request("uf")tel = Request("tel")fax = Request("fax")CMD.CommandText = "INSERT INTO cliente (nome,email,rg,rz_social,fantasia,cnpj,endereco,complemento, bairro,cep,uf,tel,fax) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?)"CMD.Execute ARRAY(nome,email,rg,rz_social,fantasia,cnpj,endereco,complemento, bairro,cep,uf,tel,fax)%><%if X<>0 then%> <H2 align="center"> <font face="Arial, Helvetica, sans-serif">cliente não incluidos</font></H2><div align="center"><font face="Arial, Helvetica, sans-serif"> <%else%> </font> </div><H2 align="center"><font face="Arial, Helvetica, sans-serif"> clientes Incluidos</font></H2><%end if%><%set CMD=nothing%></BODY></HTML>
agora ao menos da erro! Olha só
Tipo de erro:
Microsoft JET Database Engine (0x80040E0C)
O comando de texto não foi definido para o objeto de comando.
/cliente/INCLUIR2.ASP, line 30
Página:
POST 160 bytes to /cliente/INCLUIR2.ASP
POST Data:
nome=xxxx&email=xx&rg=xx&cpf=xx&rz_social=xx&fantasia=xxxxx&cnpj=x&endereco=xxx&complemento=xx&bairro=xx&cidade=x&uf=x&cep=x&tel=dsdsd&fax=xxdas&submit1=Incluir
Hora:
O Codigo Alterado ficou assim!
<%@ Language=VBScript %><HTML><HEAD><META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"></HEAD><BODY bgcolor="#FFFFFF"><%' USANDO O COMMAND - SEM ODBC (ADO)SET CMD = Server.CreateObject("ADODB.COMMAND")CMD.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("./dados/dados.MDB")nome = Request("nome")email = Request("email")rg= Request("rg")rz_social = Request("rz_social")fantasia= Request("fantasia")cnpj= Request("cnpj")endereco= Request("endereco")complemento = Request("complemento")bairro = Request("bairro")cep = Request("cep")uf = Request("uf")tel = Request("tel")fax = Request("fax")SQL = "INSERT INTO cliente (nome,email,rg,rz_social,fantasia,cnpj,endereco,complemento, bairro,cep,uf,tel,fax) VALUES ('"&nome&"','"&email&"',"&rg&",'"&rz_social&"','"&fantasia&"',"&cnpj&",'"&endereco&"',"&complemento&", '"&bairro&"',"&cep&",'"&uf&"',"&tel&","&fax&")"CMD.Execute(SQL)%><%if X<>0 then%><H2 align="center"> <font face="Arial, Helvetica, sans-serif">cliente não incluidos</font></H2><div align="center"><font face="Arial, Helvetica, sans-serif"><%else%></font> </div><H2 align="center"><font face="Arial, Helvetica, sans-serif"> clientes Incluidos</font></H2><%end if%><%set CMD=nothing%></BODY></HTML>
ASP [/tr][tr]<%@ Language=VBScript %>
<%' USANDO O COMMAND - SEM ODBC (ADO)
SET CMD = Server.CreateObject("ADODB.COMMAND")
CMD.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("./dados/dados.MDB")
nome = Request("nome")
email = Request("email")
rg= Request("rg")
rz_social = Request("rz_social")
fantasia= Request("fantasia")
cnpj= Request("cnpj")
endereco= Request("endereco")
complemento = Request("complemento")
bairro = Request("bairro")
cep = Request("cep")
uf = Request("uf")
tel = Request("tel")
fax = Request("fax")
SQL = "INSERT INTO cliente (nome,email,rg,rz_social,fantasia,cnpj,endereco,complemento, bairro,cep,uf,tel,fax) VALUES ('"&nome&"','"&email&"',"&rg&",'"&rz_social&"','"&fantasia&"',"&cnpj&",'"&endereco&"',"&complemento&", '"&bairro&"',"&cep&",'"&uf&"',"&tel&","&fax&")"
CMD.Execute(SQL)
%>
<%if X<>0 then%>
<%else%>
<%end if%>
<%
set CMD=nothing
%>
[/tr]