Ir para conteúdo
Fórum Script Brasil
  • 0

[resolvido] Asp+mysql

eduardo.d2

Perguntado por eduardo.d2,

 Share

Pergunta

eduardo.d2

eduardo.d2

Postado
Postado (editado)

Olá pessoal!! estou tendo problema para que meu script em asp se conecte com meu banco de dados MYSQL alquem poderia me ajudar ? meu script esta logo abaixo 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<title>mercado</title>
</head>
<body><font size="5"><font face="verdana" color="aqua"><center>Conexão com o banco</center>
</font>

<form method="post" action="mercado.asp">
<p>ID:<INPUT TYPE="text" name="id">
<p>Nome:<input type="text" name="nome" >
<p>Endereco:<input type="text" name="endereco">
<p>Telefone:<input type="text" name="telefone">
<p>E-mail:<input type="text" name="email">
<p><input type="submit" value="Enviar">
</form>
<%

' Variáveis de conexão
Dim tabela, db, host, usuario, senha, rs
tabela = "fornecedor"
db = "mercado"
host = "localhost"
usuario = "root"
senha = "andrade"

Set mercado = Server.CreateObject("ADODB.Connection")
mercado.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};server="& host &";database="& db &";uid="& usuario &";pwd="& senha &";"
mercado.Open()

' Recebendo valores
Dim id, nome, endereco, telefone, email
id = request.Form("id")
nome = request.Form("nome")
endereco = request.Form("endereco")
telefone = request.Form("telefone")
email = request.Form("email")

rs = "INSERT INTO fornecedor (id,nome,endereco,telefone,email) VALUES ("& id &","& nome &","& endereco &","& telefone &","& email &")"

mercado.Execute(rs)


%>
</body>
</html>

Editado por bareta
USAR TAGS!!! BARETA...
Link para o comentário
Compartilhar em outros sites

20 respostass a esta questão

Posts Recomendados

  • 0
eduardo.d2

eduardo.d2

Postado
  • Autor
Postado (editado)

então o que acontece e que não consigo armazena o dados no meu banco mysql. E que quando preenchido meu formulario ele não armazena no banco já inserir esse dois comando ai em baixo 

rs = "INSERT INTO fornecedor (id,nome,endereco,telefone,email) VALUES ("& id &","& nome &","& endereco &","& telefone &","& email &")"
    ==>   response.write rs
    ==>  response.end()
             mercado.Execute(rs)
mais o que acontece, não da mais erro mais no rodapé da pagina aparece o comando insert 
INSERT INTO fornecedor (id,nome,endereco,telefone,email) VALUES (,,,,')

E o erro que ta quando eu não insiro esse comado e esse

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

[MySQL][ODBC

3.51 Driver][mysqld-5.0.41-community-nt]You have an error in your SQL

syntax; check the manual that corresponds to your MySQL server version

for the right syntax to use near ''','','','')' at line 1

/asp/mercado.asp, line 41

se poderem me ajudar agradeço

Editado por eduardo.d2
Link para o comentário
Compartilhar em outros sites
  • 0
kuroi

kuroi

Postado
Postado

a pagina ta vindo mesmo do post do formulario?? porque o que parece é que todos os requests tão vindo em branco. você devia testar antes se eles vem em branco.

alias, pelo que eu to vendo você ta fazendo o insert sem nem postar o formulario antes. do jeito que ta agora, ele vai fazer o insert toda vez que abri a pagina.

tipo, ponha um input hidden no seu form com um valor qualquer. e antes de fazer o insert, teste se esse request tem valor. se tiver é porque o formulario foi postado. exemplo:

<form method="post" action="mercado.asp">
<input type="hidden" name="post" value="post" />

<p>ID:<INPUT TYPE="text" name="id">
<p>Nome:<input type="text" name="nome" >
<p>Endereco:<input type="text" name="endereco">
<p>Telefone:<input type="text" name="telefone">
<p>E-mail:<input type="text" name="email">
<p><input type="submit" value="Enviar">
</form>[/code]


e antes de fazer o insert teste:

[code]If Request.Form("post") = "post" Then
     - AQUI você FAZ O INSERT -
End If

Link para o comentário
Compartilhar em outros sites
  • 0
Guest Visitante

Guest Visitante

Postado
Postado

Cara esta tando erro ainda

Tipo de erro:
Erro de compilação do Microsoft VBScript (0x800A0401)
Fim da instrução esperado
/asp/mercado.asp, line 41, column 32
f Request.Form("post") = "post" Then
Ve se esta certo !! 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<title>mercado</title>
</head>
<body><font size="5"><font face="verdana" color="aqua"><center>Conexão com o banco</center>
</font>

<form method="post" action="mercado.asp">
<input type="hidden" name="post" value="post"/>
<p>ID:<INPUT TYPE="text" name="id">
<p>Nome:<input type="text" name="nome" >
<p>Endereco:<input type="text" name="endereco">
<p>Telefone:<input type="text" name="telefone">
<p>E-mail:<input type="text" name="email">
<p><input type="submit" value="Enviar">
</form>
<%

' Variáveis de conexão
Dim tabela, db, host, usuario, senha, rs
tabela = "fornecedor"
db = "mercado"
host = "localhost"
usuario = "root"
senha = "andrade"

Set mercado = Server.CreateObject("ADODB.Connection")
mercado.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};server="& host &";database="& db &";uid="& usuario &";pwd="& senha &";"
mercado.Open()

' Recebendo valores
Dim id, nome, endereco, telefone, email
id = request.Form("id")
nome = request.Form("nome")
endereco = request.Form("endereco")
telefone = request.Form("telefone")
email = request.Form("email")

f Request.Form("post") = "post" Then
rs = "INSERT INTO fornecedor(id,nome,endereco,telefone,email) VALUES ("& id &","& nome &","& endereco &","& telefone &","& email &"')"
End If
mercado.Execute(rs)


%>
</body>
</html>

Link para o comentário
Compartilhar em outros sites
  • 0
Guest --eduardo --

Guest --eduardo --

Postado
Postado

boa noite kuroi agora a pagina esta aparecendo o formulario :) , mais dessa vez quando eu preenche o mesmo da erro o que devo fazer agora ?

esse e o erro

# ipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[MySQL][ODBC 3.51 Driver][mysqld-5.0.41-community-nt]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'tata,54545285,teste@super.com.br')' at line 1
/asp/mercado.asp, line 43

# Tipo de navegador:
Mozilla/5.0 (Windows; U; Windows NT 5.1; pt-BR; rv:1.8.1.6) Gecko/20070725 Firefox/2.0.0.6

# Página:
POST 89 bytes to /asp/mercado.asp

# POST Data:
post=post&id=01&nome=luiz+&endereco=rua+tata&telefone=54545285&email=teste%40super.com.br

# Hora:
quinta-feira, 2 de agosto de 2007, 21:23:13

desde já meu muito obrigado e valeou pela força

Link para o comentário
Compartilhar em outros sites
  • 0
Guest Visitante

Guest Visitante

Postado
Postado

Não adiantou da uma olhada no meu script

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<title>mercado</title>
</head>
<body><font size="5"><font face="verdana" color="aqua"><center>Conexão com o banco</center>
</font>

<form method="post" action="mercado.asp">
<input type="hidden" name="post" value="post"/>
<p>ID:<INPUT TYPE="text" name="id">
<p>Nome:<input type="text" name="nome" >
<p>Endereco:<input type="text" name="endereco">
<p>Telefone:<input type="text" name="telefone">
<p>E-mail:<input type="text" name="email">
<p><input type="submit" value="Enviar">
</form>
<%

' Variáveis de conexão
Dim tabela, db, host, usuario, senha, rs
tabela = "fornecedor"
db = "mercado"
host = "localhost"
usuario = "root"
senha = "andrade"

Set mercado = Server.CreateObject("ADODB.Connection")
mercado.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};server="& host &";database="& db &";uid="& usuario &";pwd="& senha &";"
mercado.Open()

' Recebendo valores
Dim id, nome, endereco, telefone, email
id = request.Form("id")
nome = request.Form("nome")
endereco = request.Form("endereco")
telefone = request.Form("telefone")
email = request.Form("email")

if Request.Form("post") = "post" Then
rs = "INSERT INTO fornecedor(id,nome,endereco,telefone,email) VALUES ("& id &",'"& nome &"','"& endereco &"',"'& telefone &"',"& email &"')"
mercado.Execute(rs)

response.write "Preencha corretamente"
End If

%>
</body>
</html>

ver se e isso porque esta aparecendo o mesmo erro !!

Link para o comentário
Compartilhar em outros sites
  • 0
kuroi

kuroi

Postado
Postado

faltou um ' no email:

rs = "INSERT INTO fornecedor(id,nome,endereco,telefone,email) VALUES ("& id &",'"& nome &"','"& endereco &"',"'& telefone &"','"& email &"')"

mas se esse erro continuar, ou você tiver otro erro de sql, faca aquilo que você fez da outra vez:

==> response.write rs

==> response.end()

e poste pra gente ver a query do comando insert que aparecer

Link para o comentário
Compartilhar em outros sites
  • 0
Guest Visitante

Guest Visitante

Postado
Postado

Então fiz isso, mais não adiantou !! nem os dados ficam armazenado no mysql e nem aquele insert sai !!

if Request.Form("post") = "post" Then
rs = "INSERT INTO fornecedor(id,nome,endereco,telefone,email) VALUES ("& id &",'"& nome &"','"& endereco &"',"'& telefone &"','"& email &"')"
response.write rs
response.end()
mercado.Execute(rs)

o que eu posso fazer agora ?

Link para o comentário
Compartilhar em outros sites
  • 0
Guest Visitante

Guest Visitante

Postado
Postado

Cara você sabe como eu faço para que depois de preencher toda a tabela apareca na mesma pagina os dados preenchido e ai sim depois enviar pro banco ?

Link para o comentário
Compartilhar em outros sites
  • 0
kuroi

kuroi

Postado
Postado

não entendi direito, é tipo uma tela de confirmacao??

bom se for, você pode escrever todos os dados que vem do request na pagina e também grava-los em inputs hiddens. e ai você poe um botao ou link pra postar o formulario. ai por exemplo, se vai ser na mesma pagina, você pega aquele input hidden com value "post" e poe tipo outro value, tipo "post2". ai quando for o primeiro post, você mostra a confirmacao. quando for o segundo, você insere no banco.

Link para o comentário
Compartilhar em outros sites
  • 0
eduardo.d2

eduardo.d2

Postado
  • Autor
Postado (editado)

Então kuroi ainda esta dando pau no meu script asp !!!quando você termina de preencher os campos do formulario e clica em enviar aparece essa tela 

# Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[MySQL][ODBC 3.51 Driver][mysqld-5.0.41-community-nt]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1
/asp/mercado.asp, line 43

# Tipo de navegador:
Mozilla/5.0 (Windows; U; Windows NT 5.1; pt-BR; rv:1.8.1.6) Gecko/20070725 Firefox/2.0.0.6

# Página:
POST 92 bytes to /asp/mercado.asp

# POST Data:
post=post&id=01&nome=jljlk&endereco=klkjljljl&telefone=45464655&email=kjlkjll%E7%E7lkk%E7lkl

# Hora:
domingo, 5 de agosto de 2007, 01:32:02
 [/coide]

segue o script!!
[code]
[code]<html>
<head>
<title>mercado</title>
</head>
<body><font size="5"><font face="verdana" color="aqua"><center>Conexão com o banco</center>
</font>

<form method="post" action="mercado.asp">
<input type="hidden" name="post" value="post"/>
<p>ID:<INPUT TYPE="text" name="id">
<p>Nome:<input type="text" name="nome" >
<p>Endereco:<input type="text" name="endereco">
<p>Telefone:<input type="text" name="telefone">
<p>E-mail:<input type="text" name="email">
<p><input type="submit" value="Enviar">
</form>
<%

' Variáveis de conexão
Dim tabela, db, host, usuario, senha, rs
tabela = "fornecedor"
db = "mercado"
host = "localhost"
usuario = "root"
senha = "andrade"

Set mercado = Server.CreateObject("ADODB.Connection")
mercado.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};server="& host &";database="& db &";uid="& usuario &";pwd="& senha &";"
mercado.Open()

' Recebendo valores
Dim id, nome, endereco, telefone, email
id = request.Form("id")
nome = request.Form("nome")
endereco = request.Form("endereco")
telefone = request.Form("telefone")
email = request.Form("email")

if Request.Form("post") = "post" Then
rs = "INSERT INTO fornecedor(id,nome,endereco,telefone,email) VALUES ('"& id &"','"& nome &"','"& endereco &"',"'& telefone &"','"& email &"')"
mercado.Execute(rs)
response.Write"cadastrado com sucesso"
response.end()
End If

%>

Editado por eduardo.d2
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...