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

[resolvido] Asp+mysql


eduardo.d2

Pergunta

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

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

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

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

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

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

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

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

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

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

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.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...