Ir para conteúdo

Arquivado

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

marvazoler

Outro tipo de Insert

Por , em ASP Clássico

Recommended Posts

marvazoler    0

marvazoler
Postado

Olá galera beleza?

 

Seguinte:

 

Estou fazendo um insert no mysql e acho que não está certo o script, alguem pode me dizer o que está errado?

 

Olha isso:

 

Set oRs = bd.Execute("insert into reclama(vjd_codigo,vjd_data,vjd_reclamante,vjd_tel_contato,vjd_funcionario,vjd_Ponto_referencia,vjd_Data_ocorrencia,vjd_hora,vjd_Num_carro,vjd_linha,vjd_assunto,vjd_motivo,vjd_descricao)values("&varnovo_codigo&",'"&vardata&"','"&varreclamante&"','"&varcontato&"','"&varfuncionario&"','"&varreferencia&"','"&vardocorrencia&"','"&varhocorrencia&"','"&varcarro&"','"&varlinha&"','"&varassunto&"','"&varmotivo&"','"&vardescricao&"')")

 

 

Desde já agradeço

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

dá um response.write na sua string SQL para ver o que esta sendo passado

 

SQL="insert into reclama(vjd_codigo,vjd_data,vjd_reclamante,vjd_tel_contato,vjd_funcionario,vjd_Ponto_referencia,vjd_Data_ocorrencia,vjd_hora,vjd_Num_carro,vjd_linha,vjd_assunto,vjd_motivo,vjd_descricao)values("&varnovo_codigo&",'"&vardata&"','"&varreclamante&"','"&varcontato&"','"&varfuncionario&"','"&varreferencia&"','"&vardocorrencia&"','"&varhocorrencia&"','"&varcarro&"','"&varlinha&"','"&varassunto&"','"&varmotivo&"','"&vardescricao&"')"
response.write(SQL)
response.end()

caso ele gere algum número de erro, poste o erro e número da linha

Compartilhar este post

Link para o post
Compartilhar em outros sites

marvazoler    0

marvazoler
Postado

Cara, não mostra nada, a página fica vazia!!

 

olha isso!!

 

<% Option Explicit %>

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

 

<html>

<head>

<title>Teste</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

 

<body>

<%

Dim conex1

Dim conex2

Dim conn2

Dim oRs

Dim oRs2

Dim localbd

Dim bd

Dim varnovo_codigo

Dim vardata

Dim varreclamante

Dim varcontato

Dim varfuncionario

Dim varreferencia

Dim vardocorrencia

Dim varhocorrencia

Dim varcarro

Dim varlinha

Dim varassunto

Dim varmotivo

Dim vardescricao

Dim SQL

'Set conex1 = Server.CreateObject("ADODB.Connection")

'conex1.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=teste;Database=teste;Uid=teste;Pwd=123456; option=3"

'conex1.Open()

 

'Set conex2 = Server.CreateObject("ADODB.Connection")

'conex2.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=teste;Database=teste;Uid=teste;Pwd=123456; option=3"

'conex2.Open()

call abrir_conexao

Set oRs = Server.CreateObject("ADODB.Recordset")

Set oRs2 = Server.CreateObject("ADODB.Recordset")

SQL = "select max(vjd_codigo) as cod from reclama"

 

varnovo_codigo = oRs2("cod")+1

vardata = formataData( Request.form("data") )

varreclamante = request.form("reclamante")

varcontato = request.form("contato")

varfuncionario = request.form("funcionario")

varreferencia = request.form("referencia")

vardocorrencia = formataData( Request.form("docorrencia") )

varhocorrencia = request.form("hocorrencia")

varcarro = request.form("carro")

varlinha = request.form("linha")

varassunto = request.form("assunto")

varmotivo = request.form("motivo")

vardescricao = request.form("descricao")

SQL="insert into reclama(vjd_codigo,vjd_data,vjd_reclamante,vjd_tel_contato,vjd_funcionario,vjd_Ponto_referencia,vjd_Data_ocorrencia,vjd_hora,vjd_Num_carro,vjd_linha,vjd_assunto,vjd_motivo,vjd_descricao)values("&varnovo_codigo&",'"&vardata&"','"&varreclamante&"','"&varcontato&"','"&varfuncionario&"','"&varreferencia&"','"&vardocorrencia&"','"&varhocorrencia&"','"&varcarro&"','"&varlinha&"','"&varassunto&"','"&varmotivo&"','"&vardescricao&"')"

 

 

 

%>

 

 

<table width="200" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td> <div align="center"><a href="fale.asp" title="Volta para a página de Reclamações">Volta</a></div></td>

</tr>

</table>

 

</body>

</html>

<%call fechar_conexao%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

certifique-se de que esta sendo passado dados nas variaveis

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

desabilie a opção de exibir mensagens de erros HTTP amigáveis no browser

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

não aparece nada mesmo? nem no código fonte da pagina gerada?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

mas não faz sentido deve ter algo parando o fluxo como um response.end ou outra coisa senão pelo menos o erro seria impresso

Compartilhar este post

Link para o post
Compartilhar em outros sites

marvazoler    0

marvazoler
Postado

Cara olha isso!

 

<html>

<head>

<title>Teste - Programa1</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

 

<body>

 

<%

Dim conn

Dim conex1

Dim conex2

Dim conn2

Dim oRs

Dim oRs2

Dim localbd

Dim bd

Dim varnovo_codigo

Dim vardata

Dim varreclamante

Dim varcontato

Dim varfuncionario

Dim varreferencia

Dim vardocorrencia

Dim varhocorrencia

Dim varcarro

Dim varlinha

Dim varassunto

Dim varmotivo

Dim vardescricao

Dim SQL

Dim SQL1

 

Set conn = Server.CreateObject("ADODB.Connection")

conn.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=TESTE;Uid=TESTE;Pwd=123;option=3"

conn.Open()

 

Set oRs = Server.CreateObject("ADODB.Recordset")

Set oRs2 = Server.CreateObject("ADODB.Recordset")

'SQL1 = "select max(vjd_codigo) as cod from reclama"

 

varnovo_codigo = oRs2("cod")+1

vardata = formataData( Request.QueryString("data") )

varreclamante = request.QueryString("reclamante")

varcontato = request.QueryString("contato")

varfuncionario = request.QueryString("funcionario")

varreferencia = request.QueryString("referencia")

vardocorrencia = formataData( Request.QueryString("docorrencia") )

varhocorrencia = request.QueryString("hocorrencia")

varcarro = request.QueryString("carro")

varlinha = request.QueryString("linha")

varassunto = request.QueryString("assunto")

varmotivo = request.QueryString("motivo")

vardescricao = request.QueryString("descricao")

 

Set oRs = Conn.Execute("insert into reclama(vjd_codigo,vjd_data,vjd_reclamante,vjd_tel_contato,vjd_funcionario,vjd_Ponto_referencia,vjd_Data_ocorrencia,vjd_hora,vjd_Num_carro,vjd_linha,vjd_assunto,vjd_motivo,vjd_descricao)values("&varnovo_codigo&",'"&vardata&"','"&varreclamante&"','"&varcontato&"','"&varfuncionario&"','"&varreferencia&"','"&vardocorrencia&"','"&varhocorrencia&"','"&varcarro&"','"&varlinha&"','"&varassunto&"','"&varmotivo&"','"&vardescricao&"')" )

 

 

 

%>

 

 

Teste

 

</body>

</html>

<%'call fechar_conexao%>

 

 

Quando eu troco o titulo, por exemplo para Teste - Programa2 funciona, mas

a tela continua e branco!1

 

iai?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

mas neste trecho aparentemente não mandou escrever nada mesmo

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Eu sei camarada, o problema é que não mostra nada, mesmo dando um response.write()

 

Se tiver isso online fica mais fácil pois simplesmente o que diz não faz sentido se não tiver nada que impeça como uma parada no carregamento da pagina

 

post o código atual da pagina com algo que deveria ter sido impresso na tela de preferencias alguns response.write com as querys usadas

Compartilhar este post

Link para o post
Compartilhar em outros sites

DaniloBSi    0

DaniloBSi
Postado

Uma vez aconteceu comigo de não aparecer nada na tela. Mande exibir o código fonte (HTML) pelo navegador após tentar realizar a inclusão, ou seja, na tela vazia. Provavelmente a mensagem de erro estará no fonte, e houve alguma quebra nas tags html, por isso pode não estar mostrando na tela.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Então danilo ainda no post #8 pedi para ele ver o fonte e não sei se foi feito

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito