Logo Hardware.com.br
pearljam
pearljam Membro Senior Registrado
254 Mensagens 0 Curtidas

problema em asp..... banco de dados

#1 Por pearljam 06/08/2003 - 17:53
tabela Ano...... não está guardando informações!!....... no cadastro eu digito ...... e no fim ele não guarda no banco de dados....

pq ?
dados problema informacoes ano banco cadastro tabela asp guardando
pearljam
pearljam Membro Senior Registrado
254 Mensagens 0 Curtidas
#3 Por pearljam
08/08/2003 - 09:28
o código do formulario.... www.viniciusbarsoteli.kit.net/formulario.txt

e o codigo q insere os dados no banco....

www.viniciusbarsoteli.kit.net/admcadaltdel.txt

esse ai é o código do formulario de cadastro..... q não ta entrando os dados..... eu havia falado q era a tabela..... Ano...... mas agora mudou....... eu refiz o banco de dados....... e agora mudou o problema para a tabela..... Revendas

o que pode estar acontecendo????

ele não envia o dado para o banco de dados.
Pearl Jam e System Of A Down... os melhores !
_______________________________________
ECS K7S5A / AMD Duron 1200 / Maxtor 20GB 7200 / Seagate 10GB 5200 / 128 SDRAM / Diamond Viper TNT AGP Video / WinXP PRO
pearljam
pearljam Membro Senior Registrado
254 Mensagens 0 Curtidas
#6 Por pearljam
09/08/2003 - 17:29
mjs
Cara pelo que percebi você está tentando usar o objeto recordset addnew, mas para fazer isso você teria que adicionar...


mjs....... cara....... ta dando um erro........ na linha 32.........


e esqueci de te falar q to começando agora com asp .heim.....

abrasssssss
Pearl Jam e System Of A Down... os melhores !
_______________________________________
ECS K7S5A / AMD Duron 1200 / Maxtor 20GB 7200 / Seagate 10GB 5200 / 128 SDRAM / Diamond Viper TNT AGP Video / WinXP PRO
mjs
mjs Ubbergeek Registrado
9.4K Mensagens 2 Curtidas
#7 Por mjs
09/08/2003 - 18:10
pearljam
mjs....... cara....... ta dando um erro........ na linha 32.........


e esqueci de te falar q to começando agora ...


Sim tá dando erro pro que a linha 32 é:

rsVeiculos("Ativo") = "S"

Que está usando o tipo de gravação de Recordset smile.png

Tente assim, apenas gravar no BD, para ver se você entende o esquema wink.png



<!-- #include file="conexao.asp" --> 

<% 

'======================================================================== 

'=========== CGI DE CADASTRO, ALTERAÇÃO E EXCLUSÃO DAS VeiculoS ========= 

'======================================================================== 

Public Erro'Variavel que armazena True se tiver ocorrido algum erro 

On Error Resume Next 

'=================== INICIALIZANDO BASE DE DADOS ======================= 

Set rsVeiculos = Server.CreateObject("ADODB.Connection&quot 



Dim strSQL 

strSQL = "INSERT INTO Veiculos (Modelo, Marca, Ano, Comb) VALUES " 

strSQL = strSQL & "('&Trim(Request.Form("Modelo&quot)&', '&Trim(Request.Form("Marca&quot)&', '&Trim(Request.Form("Ano&quot)&', '&Trim(Request.Form("Comb&quot)&')" 





rsVeiculos.Execute strSQL 

%> 

<% 

End If 

Fecha_Conexao 

%>


Cara vou te passar abaixo um exemplo de como fazer uma gravação usando o ADDNEW:

Veja esse código, ele utiliza o ADDNEW, se quiser tentar arrumar o seu código original, para continuar usando o addnew, já que ele está todo setado para este comando, eu te passo via mail o arquivo. adovbs.inc smile.png

Eis o código para que analise, não tem nada de complicado, só algumas coisas extras que você deve colocar no seu, veja:



<% @ LANGUAGE = VBScript %>

<% 

Option Explicit

Response.Expires = 0

%>

<!-- #include file="adovbs.inc" -->

<!-- #include file="conexao.asp" -->

<%

Dim objConn, objRS, strConn, strOut

Dim strCN, strPh, lngTransportadoraID



' Cria o Objeto Recorset

Set objRS = Server.CreateObject("ADODB.Recordset&quot



' Verifica se as existe alguma querystring enviada pelo form

If (Request.ServerVariables("CONTENT_LENGTH&quot > 0 ) Then



' seta a strCN para receber o valor NomeDaEmpresa

strCN = Trim(Request.Form("NomeDaEmpresa&quot)

' Veririca de a strnCN contém algum valor para prosseguir

If Len(strCN) > 0 Then

         ' Define alguns valores para as Constantes ADO (que foram

         ' adicionadas pelo arquivo adovbs.inc

	objRS.CursorLocation = adUseServer

	objRS.CursorType = adOpenKeyset

	objRS.LockType = adLockOptimistic

         ' Abre a tabela Transportadoras e o objConn é o objeto 

         ' de conexão que veio no conexao.asp



	objRS.Open "Transportadoras", objConn, , , adCmdTable

	' Adiciona uma Nova linha

	objRS.AddNew

         ' Na coluna Nome da Empresa insere o valor strCN

	objRS("NomedaEmpresa&quot = strCN

         ' Atribui ao strPh o valor Telefone Recuperado do Form

	strPh = Trim(Request.Form("Telefone&quot)

        ' Adiciona a no linha na coluna Telefone o valor da strPh

	objRS("Telefone&quot = strPh

	End If



         ' Atualiza os Valores

	objRS.Update

         ' Fecha conexão

	objRS.Close

Else

	Response.Write "Please supply a Company Name!<br><br>"

End If

End If

%>


Qualquer dúvida, estamos aí.
|254374| www.linuxhard.org | www.quati.com
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal