[Dúvida]Conexão com o BD.

Luckyxd · 29 de Julho 2010

Olá pessoal, estou no 2 ano do Ensino Médio de Informática.. e o professor de programação passou um exercicio nessas férias muito f**** . é assim, eu tenho que criar um formulário em html, com validação em Javascript.. e criar uma conexão com o Banco de dados, para armazenar os dados digitados no formulário. Porém eu fiz tudo certo, e mesmo assim não vai, instalei o IIS na minha maquina, o SQL, tudo certinho.. e não vai nem ferrando. Vou mostrar-lhes o arquivo ".inc" (responsavel pela conexão) e o arquivo ".asp" que posta as informações no banco de dados.

.INC

__________________________________

<%

sub abreconexao

dim banco,servidor,usuario,senha

servidor = "HOME\SQLEXPRESS"

banco = "Clientes"

usuario = "sa"

senha = "07056060"

Dim adoCon, strCon, rsLivros

Set Conexaodb = CreateObject("ADODB.Connection")

Conexaodb.Open "Provider=SQLOLEDB.1;SERVER="servidor&";DATABASE="&banco&";UID="&usuario&";PWD="&senha&";"

end sub

sub fechaconexao

conexaodb.Close

set conexaodb=nothing

end sub

%>

__________________________________

.ASP

__________________________________

<%

Option Explicit

%>

<*!--#Include file="conexao.inc"-->

<%

dim conexaodb, rsInsert, rsSql, strIns, strSql

dim vCodigo, vNome, vIdade, vSexo, vEmail, vTel, vBairro, vEnd, vNum, vComp, vCidade, vEstado, vCep, vObs

vCodigo = TRIM(request.form("cod"))

vNome = TRIM(request.form("nome"))

vIdade = TRIM(request.form("idade"))

vSexo = TRIM(request.form("sexo"))

vEmail = TRIM(request.form("email"))

vTel = TRIM(request.form("tel"))

vBairro = TRIM(request.form("bairro"))

vEnd = TRIM(request.form("end"))

vNum = TRIM(request.form("num"))

vComp = TRIM(request.form("comp"))

vCidade = TRIM(request.form("cidade"))

vEstado = TRIM(request.form("estado"))

vCep = TRIM(request.form("cep"))

vObs = TRIM(request.form("obs"))

strIns = "Insert into Clientes (Codigo, Nome, Idade, Sexo, Email, Telefone, Bairro, Endereco, Numero, Complemento, Cidade, Estado, CEP, Observacoes) values ('" & vCodigo & "','" & vNome & "','" & vIdade & "','" & vSexo & "','" & vEmail & "','" & vTel & "', '" & vBairro & "', '" & vEnd & "','" & vNum & "', '" & vComp & "', '" & vCidade & "','" & vEstado & "','" & vCep & "','" & vObs & "');"

strSql = "Select nome from clientes where nome='" & vNome & "'"

call abreconexao

set rsSql = conexaoDB.execute(strSql)

%>

<html>

<head>

<title>Envio de Correspondência</title>

</head>

<body>

<style> @import url(Estilo.css);</style>

<%

if not rsSql.eof then

response.write ("O nome " & vNome & " já consta em nosso banco de dados.")

else

set rsInsert = conexaoDB.execute(strIns)

response.write ("O nome " & vNome & " foi cadastrado com sucesso.")

end if

rsSql.close

call fechaconexao

set rsSql = Nothing

set rsInsert = Nothing

%>

<br><br>

<a href="cadastro.htm">Novo Cadastro</a>

</body>

</html>

__________________________________

Espero que me ajudem, pois é urgente.. Abraços, e obrigado desde já ;D

avaremotemo · 16 de Agosto 2010

u

Entrar

Quem está por aqui 0 membros estão online

[Dúvida]Conexão com o BD.

Posts Recomendados

Luckyxd 0

Link para o comentário

Compartilhar em outros sites

avaremotemo 0

Link para o comentário

Compartilhar em outros sites

Fóruns

Todas Atividades

Lojinha WC

Informação Importante