Upload de fotos com Gravação em Banco de Dados Acess

flneves · Dezembro 21, 2008

Pessoal,

Segue código que capturei no Laboratório, mas não consegui colocar em prática, podem me ajudar???

Obrigado asp.net, mas nao consegui fazer funcionar ainda!

<span style='color:blue'>[b]==================CODIGO========================[/b]</span>

<span style='color:red'>==========FORMULÁRIO DE SELEÇÃO DO ARQUIVO</span>

<form action="enviandofoto2.asp" method="post" [b]<span style='color:red'>enctype="multipart/form-data</span>[/b]"> ' <span style='color:red'>INFORMAÇÃO OBRIGATÓRIA, POIS DETERMINA QUE SERÃO ENVIADAS INFORMAÇÕES BINÁRIAS.</span>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td><input name="foto" type="file"> </td>
<td> </td>
</tr>
<tr> 
<td> </td>
<td></td>
</tr>
<tr> 
<td><input type="submit" name="Submit" value="Cadastrar Foto"></td>
<td> </td>
</tr>
</table>
</form> 

<span style='color:red'>==================ENVIANDO O ARQUIVO PARA O SERVIDOR</span>

<%Server.ScriptTimeOut=10000000%> 'AUMENTA O TEMPO PARA O ENVIO DO ARQUIVO

Set UploadFoto=Server.CreateObject("aspSmartUpload.SmartUpload")
UploadFoto.AllowedFilesList="jpg" ' DETERMINA O TIPO DE ARQUIVO QUE PODE SER ENVIADO
UploadFoto.DeniedFilesList = "bmp,tif,cdr,png" ' DETERMINA O TIPO DE ARQUIVO QUE NÃO PODE SER ENVIADO
UploadFoto.MaxFileSize = 50000 ' DETERMINA O TAMANHO MÁXIMO DO ARQUIVO
UploadFoto.TotalMaxFileSize =50000
'nomefoto=UploadFoto.Files.Foto.Name ' PEGA O NOME DO ARQUIVO QUE ESTÁ SENDO ENVIADO.

UploadFoto.Upload

'IntCount = UploadFoto.Save("d:\imagens\")
IntCount = UploadFoto.Save("d:\web\valeuboi\htdocs\fotos\")
IF Err Then
response.Write("<B>Ocorreu um erro</>::" &Err.Description)
else
For Each file In UploadFoto.Files
nomefoto=File.FileName
next
response.redirect("enviandofoto3.asp?idfoto="&nomefoto&"")
end if

<span style='color:red'>==========================SALVANDO ENDEREÇO/NOME DO ARQUIVO EM UM BANCO DE DADOS</span>

idtfoto=Request.QueryString("idfoto")

Obrecordset.Open "fotos", Conexao, adOpenKeyset, adLockOptimistic
Obrecordset.AddNew
Obrecordset("foto")="fotos/"&idtfoto
Obrecordset("nome")=idtfoto
Obrecordset.Update
Fechar()
response.redirect("album.asp")

Segue como ficou na page:

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<span style='color:red'>==========FORMULÁRIO DE SELEÇÃO DO ARQUIVO</span>

<form action="enviandofoto2.asp" method="post" [b]<span style='color:red'>enctype="multipart/form-data</span>[/b]"> ' <span style='color:red'>INFORMAÇÃO OBRIGATÓRIA, POIS DETERMINA QUE SERÃO ENVIADAS INFORMAÇÕES BINÁRIAS.</span>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td><input name="foto" type="file"> </td>
<td> </td>
</tr>
<tr> 
<td> </td>
<td></td>
</tr>
<tr> 
<td><input type="submit" name="Submit" value="Cadastrar Foto"></td>
<td> </td>
</tr>
</table>
</form> 

<span style='color:red'>==================ENVIANDO O ARQUIVO PARA O SERVIDOR</span>

<%Server.ScriptTimeOut=10000000%> 'AUMENTA O TEMPO PARA O ENVIO DO ARQUIVO

Set UploadFoto=Server.CreateObject("aspSmartUpload.SmartUpload")
UploadFoto.AllowedFilesList="jpg" ' DETERMINA O TIPO DE ARQUIVO QUE PODE SER ENVIADO
UploadFoto.DeniedFilesList = "bmp,tif,cdr,png" ' DETERMINA O TIPO DE ARQUIVO QUE NÃO PODE SER ENVIADO
UploadFoto.MaxFileSize = 50000 ' DETERMINA O TAMANHO MÁXIMO DO ARQUIVO
UploadFoto.TotalMaxFileSize =50000
'nomefoto=UploadFoto.Files.Foto.Name ' PEGA O NOME DO ARQUIVO QUE ESTÁ SENDO ENVIADO.

UploadFoto.Upload

'IntCount = UploadFoto.Save("d:\imagens\")
IntCount = UploadFoto.Save("d:\web\valeuboi\htdocs\fotos\")
IF Err Then
response.Write("<B>Ocorreu um erro</>::" &Err.Description)
else
For Each file In UploadFoto.Files
nomefoto=File.FileName
next
response.redirect("enviandofoto3.asp?idfoto="&nomefoto&"")
end if

<span style='color:red'>==========================SALVANDO ENDEREÇO/NOME DO ARQUIVO EM UM BANCO DE DADOS</span>

idtfoto=Request.QueryString("idfoto")

Obrecordset.Open "fotos", Conexao, adOpenKeyset, adLockOptimistic
Obrecordset.AddNew
Obrecordset("foto")="fotos/"&idtfoto
Obrecordset("nome")=idtfoto
Obrecordset.Update
Fechar()
response.redirect("album.asp")
</body>
</html>

Preciso da ajuda para que rode!!!!

Pois quando publico ela da o seguinte erro:

Microsoft JScript compilation error '800a03ea' 

Syntax error 

/teste.asp, line 30 

<%Server.ScriptTimeOut=10000000
-^

Quais as alterações que devo fazer para que funcione???

Desde já agradeço a todos!

xanburzum · Dezembro 21, 2008

A quantidade máxima de tempo para um script para executar foi excedido. Você pode alteração esse limite especificando um novo valor para a propriedade Server.ScriptTimeout ou alterando o valor nas ferramentas de administração do IIS. A propriedade ScriptTimeout especifica a quantidade máxima de tempo que um script pode executar antes que ela é encerrada. O erro é gerado quando o tempo processamento do script excede o valor máximo que foi designado para a propriedade ScriptTimeout . e mude o <%@LANGUAGE="JAVASCRIPT" para <%@LANGUAGE="VBSCRIPT"

flneves · Dezembro 23, 2008

A quantidade máxima de tempo para um script para executar foi excedido. Você pode alteração esse limite especificando um novo valor para a propriedade Server.ScriptTimeout ou alterando o valor nas ferramentas de administração do IIS. A propriedade ScriptTimeout especifica a quantidade máxima de tempo que um script pode executar antes que ela é encerrada. O erro é gerado quando o tempo processamento do script excede o valor máximo que foi designado para a propriedade ScriptTimeout . e mude o <%@LANGUAGE="JAVASCRIPT" para <%@LANGUAGE="VBSCRIPT"

Alterei o script e decidi utilizar o AspUpload porém ta dando esse erro direto:

Microsoft VBScript runtime error '800a01b6' 

Object doesn't support this property or method: 'Server.MapPath(...).Save' 

/upload/upload2/odbc_upload.asp, line 13

O Código ta assim:

Linha 13:

Upload.Save = Server.MapPath("../upload2")

Meus diretórios estão assim

www/upload/ulpoad2

POdem ver esse erro no end:

http://www.velassaojoao.com.br/upload/upload2/odbc.asp

O Código inteiro segue abaixo:

<HTML>
<BODY>

<%
	Set Upload = Server.CreateObject("Persits.Upload")

	' Capture files
	  Upload.Save = Server.MapPath("../upload2")


	' Obtain file object
	Set File = Upload.Files("THEFILE")

	If Not File Is Nothing Then
		' Build ODBC connection string
		Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(".\aspupload.mdb")

		' If you use SQL Server, the connecton string must look something like this:
		' Connect = "Driver=SQL Server;Server=MYSRV;Database=master;UID=sa;PWD=xxx"

		' Build SQL INSERT statement
		SQL = "INSERT INTO MYIMAGES(image_blob, filename, description, filesize) VALUES(?, '"
		SQL = SQL & File.Filename & "', '"
		SQL = SQL & Replace(Upload.Form("DESCR"), "'", "''") & "', "
		SQL = SQL & File.Size & ")"

		' Save to database
		File.ToDatabase Connect, SQL
		Response.Write "File saved."
	Else
		Response.Write "File not selected."
	End If
%>

</BODY>
</HTML>

Desde já obrigado!!!!

Ted k' · Dezembro 23, 2008

Upload.Save Server.MapPath("../upload2")

tire a igualdade

flneves · Dezembro 23, 2008

Upload.Save Server.MapPath("../upload2")

tire a igualdade

Vlw Ted K, você é o cara!!!!

Funfou!!!!

Agora quero ir mais a fundo.....

esse código que peguei ta com um form de dois campos:

- Arquivo (THEFILE)

- Description

<HTML>

Como abaixo:

<BODY>

<%
	Set Upload = Server.CreateObject("Persits.Upload")

	' Capture files
	  Upload.Save  Server.MapPath("../upload2")


	' Obtain file object
	Set File = Upload.Files("THEFILE")

	If Not File Is Nothing Then
		' Build ODBC connection string
		Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(".\aspupload.mdb")

		' If you use SQL Server, the connecton string must look something like this:
		' Connect = "Driver=SQL Server;Server=MYSRV;Database=master;UID=sa;PWD=xxx"

		' Build SQL INSERT statement
		SQL = "INSERT INTO MYIMAGES(image_blob, filename, description, filesize) VALUES(?, '"
		SQL = SQL & File.Filename & "', '"
		SQL = SQL & Replace(Upload.Form("DESCR"), "'", "''") & "', "
		SQL = SQL & File.Size & ")"

		' Save to database
		File.ToDatabase Connect, SQL
		Response.Write "File saved."
	Else
		Response.Write "File not selected."
	End If
%>

</BODY>
</HTML>

Quero colocar mais dois campos no form:

- Data

- foto 2

- foto 3

SO que quando altero o form e o código acima da pau!!!!

como devo fazer????

Ja que no código acima ele faz varias referencias ao THEFILE como as abaixo:

image_blob, filename, description, filesize

Da tipo duplicidade de dados quando altero o form e o cod....

Ted k' · Dezembro 23, 2008

tentou fazer tipo isso?

http://www.forumdohardware.com.br/viewtopi...p;view=previous

flneves · Dezembro 23, 2008

Acho que sim.... nao cheguei a jogar no codigo, pq ainda to na empresa, mas pelo que percebi ele pega os dados de um form em uma page com os campos citados no exemplo e grava no bd atraves da funcao upload.form os campos:

titulo=Upload.Form("titulo") 
olho=Upload.Form("olho") 
texto=Upload.Form("texto") 
data=Upload.Form("data") 
titulo_home=Upload.Form("titulo_home") 
olho_home=Upload.Form("olho_home")

É isso mesmo?

Cara de tanto perguntar ja to aprendendo!!!!!

Vou fazer o teste hoje de madruga e te dou a resposta!

Vlw Ted

flneves · Dezembro 24, 2008

Ted,

O código da página de inclusão, com o form ficou assim:

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<%
// *** Logout the current user.
MM_Logout = String(Request.ServerVariables("URL")) + "?MM_Logoutnow=1";
if (String(Request("MM_Logoutnow"))=="1") {
  Session.Contents.Remove("MM_Username");
  Session.Contents.Remove("MM_UserAuthorization");
  var MM_logoutRedirectPage = "index.asp";
  // redirect with URL parameters (remove the "MM_Logoutnow" query param).
  if (MM_logoutRedirectPage == "") MM_logoutRedirectPage = String(Request.ServerVariables("URL"));
  if (String(MM_logoutRedirectPage).indexOf("?") == -1 && Request.QueryString != "") {
	var MM_newQS = "?";
	for (var items=new Enumerator(Request.QueryString); !items.atEnd(); items.moveNext()) {
	  if (String(items.item()) != "MM_Logoutnow") {
		if (MM_newQS.length > 1) MM_newQS += "&";
		MM_newQS += items.item() + "=" + Server.URLencode(Request.QueryString(items.item()));
	  }
	}
	if (MM_newQS.length > 1) MM_logoutRedirectPage += MM_newQS;
  }
  Response.Redirect(MM_logoutRedirectPage);
}
%>
<!--#include file="../Connections/con_fvsj.asp" -->
<%
var e_hist = Server.CreateObject("ADODB.Recordset");
e_hist.ActiveConnection = MM_con_fvsj_STRING;
e_hist.Source = "SELECT *  FROM historico, adm";
e_hist.CursorType = 0;
e_hist.CursorLocation = 2;
e_hist.LockType = 1;
e_hist.Open();
var e_hist_numRows = 0;
%>
<%
// *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

// set the record count
var e_hist_total = e_hist.RecordCount;

// set the number of rows displayed on this page
if (e_hist_numRows < 0) {			// if repeat region set to all records
  e_hist_numRows = e_hist_total;
} else if (e_hist_numRows == 0) {	// if no repeat regions
  e_hist_numRows = 1;
}

// set the first and last displayed record
var e_hist_first = 1;
var e_hist_last  = e_hist_first + e_hist_numRows - 1;

// if we have the correct record count, check the other stats
if (e_hist_total != -1) {
  e_hist_numRows = Math.min(e_hist_numRows, e_hist_total);
  e_hist_first   = Math.min(e_hist_first, e_hist_total);
  e_hist_last	= Math.min(e_hist_last, e_hist_total);
}
%>
<% var MM_paramName = ""; %>
<%
// *** Move To Record and Go To Record: declare variables

var MM_rs		= e_hist;
var MM_rsCount   = e_hist_total;
var MM_size	  = e_hist_numRows;
var MM_uniqueCol = "ID";
	MM_paramName = "id";
var MM_offset = 0;
var MM_atTotal = false;
var MM_paramIsDefined = (MM_paramName != "" && String(Request(MM_paramName)) != "undefined");
%>
<%
// *** Move To Specific Record: handle detail parameter

if (MM_paramIsDefined && MM_rsCount != 0) {

  // get the value of the parameter
  var param = String(Request(MM_paramName));

  // find the record with the unique column value equal to the parameter value
  for (MM_offset=0; !MM_rs.EOF; MM_offset++) {
	if (MM_rs.Fields.Item(MM_uniqueCol).Value == param) break;
	MM_rs.MoveNext();
  }

  // if not found, set the number of records and reset the cursor
  if (MM_rs.EOF) {
	if (MM_rsCount < 0) MM_rsCount = MM_offset;
	if (MM_size < 0 || MM_size > MM_rsCount) MM_size = MM_rsCount;
	MM_offset = 0;

	// reset the cursor to the beginning
	if (MM_rs.CursorType > 0) {
	  if (!MM_rs.BOF) MM_rs.MoveFirst();
	} else {
	  MM_rs.Close();
	  MM_rs.Open();
	}
  }
}
%>
<%
// *** Move To Record: if we dont know the record count, check the display range

if (MM_rsCount == -1) {

  // walk to the end of the display range for this page
  for (var i=MM_offset; !MM_rs.EOF && (MM_size < 0 || i < MM_offset + MM_size); i++) {
	MM_rs.MoveNext();
  }

  // if we walked off the end of the recordset, set MM_rsCount and MM_size
  if (MM_rs.EOF) {
	MM_rsCount = i;
	if (MM_size < 0 || MM_size > MM_rsCount) MM_size = MM_rsCount;
  }

  // if we walked off the end, set the offset based on page size
  if (MM_rs.EOF && !MM_paramIsDefined) {
	if ((MM_rsCount % MM_size) != 0) {  // last page not a full repeat region
	  MM_offset = MM_rsCount - (MM_rsCount % MM_size);
	} else {
	  MM_offset = MM_rsCount - MM_size;
	}
  }

  // reset the cursor to the beginning
  if (MM_rs.CursorType > 0) {
	if (!MM_rs.BOF) MM_rs.MoveFirst();
  } else {
	MM_rs.Requery();
  }

  // move the cursor to the selected record
  for (var i=0; !MM_rs.EOF && i < MM_offset; i++) {
	MM_rs.MoveNext();
  }
}
%>
<%
// *** Move To Record: update recordset stats

// set the first and last displayed record
e_hist_first = MM_offset + 1;
e_hist_last  = MM_offset + MM_size;
if (MM_rsCount != -1) {
  e_hist_first = Math.min(e_hist_first, MM_rsCount);
  e_hist_last  = Math.min(e_hist_last, MM_rsCount);
}

// set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount != -1 && MM_offset + MM_size >= MM_rsCount);
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Sistema Administrativo - Velas São João</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
td {
	font-family: Verdana;
	font-size: 10px;
	color: #FFCC33;
	cursor: hand;
}
body {
	background-color: #000000;
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.style1 {
	font-size: 16px;
	font-weight: bold;
}
a:link {
	color: #333333;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #333333;
}
a:hover {
	text-decoration: none;
	color: #333333;
}
a:active {
	text-decoration: none;
	color: #666666;
}
.style2 {font-size: 18px}
.style3 {font-size: 18px; font-weight: bold; }
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
</head>

<body>
<script type="text/ecmascript">
<!--
	window.history.forward();
-->
</script>
<table width="100%" height="5" border="0" cellpadding="0" cellspacing="0">
  <tr>
	<td width="100%" height="29"><font size="5" face="Impact" color="#333333">Sistema Administrativo - http://www.velassaojoao.com.br</font></td>
  </tr>
  <tr>
	<td width="100%" height="21">
	<p align="right"><font color="#C0C0C0">Bem Vindo <%=(e_hist.Fields.Item("Nome").Value)%> !      </font></td>
  
  </tr>
  <tr>
	<td width="100%" height="37" background="../imagens/f_tab_adm.jpg" valign="middle">
	<p align="right"><font color="#333333"><img border="0" src="../imagens/b_adm.jpg"> <a href="d_hist.asp">Dados Atuais</a>   <img border="0" src="../imagens/b_adm.jpg"> <a href="e_hist.asp">Editar dados</a>  <img border="0" src="../imagens/b_adm.jpg"> Apagar dados  <img src="../imagens/b_adm.jpg" width="8" height="8">  <a href="<%= MM_Logout %>">Sair </a>  </font></p></td>
  </tr>
</table>
<br>
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="odbc_upload.asp">
  <table width="666" border="1" align="center" cellpadding="2" cellspacing="0" bordercolor="#333333">
	<tr>
	  <td colspan="2"><div align="center" class="style1">
		<div align="right" class="style2">Inclusão de Dados </div>
	  </div></td>
	</tr>
	<tr bgcolor="#333333">
	  <td width="188"> </td>
	  <td width="464"> </td>
	</tr>
	<tr>
	  <td>Data da Publicação: </td>
	  <td><input name="data" type="text" id="data"></td>
	</tr>
	<tr bgcolor="#333333">
	  <td> </td>
	  <td> </td>
	</tr>
	<tr>
	  <td valign="top">História da Empresa: </td>
	  <td><textarea name="texto" cols="60" rows="6" id="texto"></textarea></td>
	</tr>
	<tr bgcolor="#333333">
	  <td> </td>
	  <td> </td>
	</tr>
	<tr>
	  <td colspan="2" valign="top" onClick="MM_openBrWindow('odbc.asp','Upload','width=250,height=300')"><input name="foto1" type="file" id="foto1"></td>
	</tr>
	<tr bgcolor="#313031">
	  <td colspan="2" valign="top" onClick="MM_openBrWindow('odbc.asp','Upload','width=250,height=300')"> </td>
	</tr>
	<tr>
	  <td colspan="2" valign="top" onClick="MM_openBrWindow('odbc.asp','Upload','width=250,height=300')"><input name="foto2" type="file" id="foto2"></td>
	</tr>
	<tr bgcolor="#313031">
	  <td colspan="2" valign="top" onClick="MM_openBrWindow('odbc.asp','Upload','width=250,height=300')"><img src="../imagens/b_adm.jpg" width="8" height="8">  Para adicionar a foto clique aqui!</td>
	  </tr>
	<tr>
	  <td> </td>
	  <td> </td>
	</tr>
	<tr>
	  <td> </td>
	  <td><div align="right"><span class="links" onClick="MM_openBrWindow('../upload/formulario1.html','Upload','width=300,height=110')">
		  <input name="submit" type="image" id="submit" src="../imagens/b_atualizar.jpg" width="120" height="54" border="0"> 
	  </span></div></td>
	</tr>
	<tr bgcolor="#333333">
	  <td> </td>
	  <td> </td>
	</tr>
  </table>
</form>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p>  </p>
</body>
</html>
<%
e_hist.Close();
%>

e a do asp para inclusão do bd, ficou:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
Set Upload = Server.CreateObject("Persits.Upload.1") 
Upload.OverwriteFiles = False

Upload.SetMaxSize 1048576 
Upload.Save("C:\Inetpub\vhosts\velassaojoao.com.br\httpdocs\adm\")

data=Upload.Form("data") 
texto=Upload.Form("texto") 

set filenome = Upload.files("foto1") 
set filenome2 = Upload.files("foto2") 

If Not Filenome Is Nothing Then 
foto1 = Filenome.FileName 
end if 
If Not Filenome2 Is Nothing Then 
foto2 = Filenome2.FileName 
end if
%>
</body>
</html>

So que não funfou!!!!

xanburzum · Dezembro 25, 2008

é gerado algum erro ?

flneves · Dezembro 25, 2008

Xamburzão,

Não dá erro a página fica branca, mas acho que falta ligação com o bd, não é isso?

Vlw

xanburzum · Dezembro 25, 2008

no segundocódigo não existe nenhum INSERT no bd.

flneves · Dezembro 25, 2008

Pois é, como devo fazer?

Se puder me ajudar nos míííííínimos detalhes te agradeço. SOu novato e apanho bastante ainda!

Vlw

xanburzum · Dezembro 25, 2008

olha abaixo, um exemplo simples de INSERT INTO

sintaxe: "insert into tabela (campo1,campo2,campo3,...) values ('valor1','valor2','valor3',...)"

SQL="INSERT INTO agenda (titulo, local, texto, data)" & "VALUES('" & titulo & "', '" & local & "', '" & texto & "', '" & data & "')"

- insere na tabela agenda os valores dos campos titulo, local, texto, data.

Abaixo, Exemplo Prático com a string de inserção de dados:

Estrutura do Banco de Dados:

nome do banco de dados: teste.mdb

path do banco de dados: c:\teste

nome da conexao : conexao

tabela a ser consultada: agenda

campos da tabela agenda: titulo, local, texto, data

<% 

sqlstmt = SQL="INSERT INTO agenda (titulo, local, texto, data)" & "VALUES('" & titulo & "', '" & local & "', '" & texto & "', '" & data & "')" 

Set conn = server.createobject("adodb.connection") 'abre a conexão com o banco de dados 

conn.open "nome_conexao" 'avisa qual banco de dados será utilizado na consulta 

set rsquery = conn.execute(sqlstmt) 'executa a instrução SQL contida na variavel sqlstmt 

set rsquery = nothing 

set conn = nothing 

'Note que não é necessário fechar a rsquery. Isso ocorre devido à string de inserção não ficar armazenada na memória , para futura consulta. Ela é executada, e automaticamente, fechada. Isso também ocorre nas strings de deleção e atualização. 

%> 


Acompanhe agora este outro exemplo: 

Página para inserção dos dados nome, email, cidade, estado, idade 

<form method="post" action="inserir_registro.asp">
Nome: <input type="text" name="nome" value="">
Email: <input type="text" name="email" value="">
Cidade: <input type="text" name="cidade" value="">
Estado: <input type="text" name="estado" value="">
Idade: <input type="text" name="idade" value="">
<input type="submit" name="submit" value="Gerar Consulta">
</form> 



Página de Inserção dos Dados (inserir_registro.asp): 

<% 

nome_local = request.form("titulo") 

email_local = request.form("local") 

cidade_local = request.form("texto") 

estado_local = request.form("data") 


sqlstmt ="INSERT INTO agenda (titulo, local, texto, data)" & "VALUES('" & titulo & "', '" & local & "', '" & texto & "', '" & data & "')"  

set conn = server.createobject("adodb.connection") 

conn.open "conexao" 

set rsquery = conn.execute(sqlstmt) 

response.redirect("inserido_com_sucesso.htm") 

%>

para maiores detalhes consulte o link aqui e no nosso fórum

Arquivado

Upload de fotos com Gravação em Banco de Dados Acess

Recommended Posts

flneves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

flneves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

flneves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

flneves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

flneves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

flneves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

flneves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante