Inserir Dados No Banco

Kindelis · Junho 15, 2005

é o seguinte eu assisti uma video aula de asp porém na video aulas eles ensinam apenas a fazer consultas em um banco de dados , eu gostaria de saber os comandos para inserir informações no banco de dados, pode -se utilizar os comandos de mysql ou o asp possui comandos próprios??

abaixo segue o código do exemplo de consulta que criei, caso ajude um pouco, se alguém puder me dizer como faço pra fazer este exemplo cadastrar informações e não consultar:

<%@ Language=VBScript%>

function tudo_ok(k)

{

if (k==0)

alert('Top Model não encontrada!');

document.location.replace("Default.asp");

}

</script>

<%

Set BdTopModel=Server.CreateObject("Adodb.connection")

Rem BdTopModel.Open "Provider=Microsoft.Jet.OleDb.4.0;Data Source=http://www.rexmore.com.br/asp/Banco.mdb"

BdTopModel.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Banco.mdb")

%>

<%

dim objerro, Procura

procura="select * from topmodels where nome='"& request.form("nome") & "' AND corcabelo='"& request.form("corcabelo") & "' AND corolho='"& request.form("corolho")& "'"

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

RecTopModel.Activeconnection=BdTopModel

RecTopModel.Cursortype=adOpenkeyset%>

<%

RecTopModel.Locktype=adlockOptimistic

RecTopModel.Cursorlocation=adUseServer

RecTopModel.Open Procura, BdTopModel,adOpestaticc, adLockOptimistic,adCmdText

if RecTopModel.bof and RecTopModel.eof then

Response.write("<body onload='javascript:tudo_ok(0)' > </body>")

else

Vnome= RecTopModel("nome")

VcorCabelo=RecTopModel("corcabelo")

Vcorolho=RecTopModel("corolho")

Vlocal=RecTopModel("local")

End if

%>

<tr>

<p align="center"><font size="2" face="Tahoma"><b>Top Model Encontrada</b></font></td>

</tr>

<tr>

</tr>

<tr>

Top Model encontrada</b></font></td>

</td>

</tr>

<tr>

<td width="50%" align="center" height="23"><font face="Tahoma" size="2" color="#FFFFFF"><b>Cor do

Cabelo</b></font></td>

</td>

</tr>

<tr>

<td width="50%" align="center" height="21"><font face="Tahoma" size="2" color="#FFFFFF"><b>Cor do

Olho</b></font></td>

</td>

<td width="50%" align="center" height="21"><img border="1" height=279 width=124 src="<% Response.write(Vlocal)%>" width="294" height="202"></td>

</tr>

<tr>

</td>

</tr>

<tr>

dede já agradeço pela atenção.

Luiz Guilherme · Junho 15, 2005

Para fazer inserções você utiliza o comando insert... Procura uma apstila de sql, ajuda bastante ter essas ferramentas em mãos ... Exemplo

<%
if request.form("enviando")="sim" then
sql= "insert into Clientes(nome,endereco,email) values ('"&Request.form("nome")&"','"&Request.form("endereco")&"','"&Request.form("email")&"')"
conexao.execute(sql)
end if
%>
<form action=cadastro.asp method=post>
<input type=hidden name=enviando value=sim
Nome: <input type=text name=nome value=<%=request.from("nome")%>><br>
Endereço: <input type=text name=endereco value=<%=request.from("endereco")%>><br>
E-mail: <input type=text name=email value=<%=request.from("email")%>>
<input type=submit value=cadastrar>
</form>

bareta · Junho 15, 2005

a sintaxe é:

dilouco · Junho 16, 2005

a sintaxe é:
ASP
sql="insert into nome_tabela (campos_separados_por,virgulas) values ('"&texto&"',"&numero&")"
objeto_conexão.execute(sql)
simples né???

só complementendo...

sql="insert into nome_tabela (campo_texto,campo_numero) values ('"&texto&"',"&numero&")"
objeto_conexão.execute(sql)

os campos estão separados por virgula e no caso de inserir um texto no banco tem que colocar ' antes e depois do valor a ser inserido.

TIO CARNEGO · Junho 17, 2005

Set aConexao = Server.CreateObject("ADODB.Connection")
	aConexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&oCaminhoDoBanco&";"
Set oRS = CreateObject("ADODB.Recordset")
	oRS.CursorType = 2
	oRS.LockType = 2
	oRS.Open "SELECT TOP 1 * FROM qualquertabela",aConexao
	oRS.AddNew
	oRS("CampoTal") = ValorTal
	oRS("CampoTal") = ValorTal
	oRS.UpDate
	'Aqui o valor do campo de autoincremento já está disponível
	'Si num for usá mais, fecha a bagaça
	oRS.Close
Set oRS = Nothing
Set aConexao = Nothing
	'Si for usá apaga as três linha acima
	'Totau ou Parciau?

TIO CARNEGO · Junho 17, 2005

Tem esse post aqui também

Entrar

Inserir Dados No Banco

Pergunta

Kindelis

Link para o comentário

Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

Luiz Guilherme

Link para o comentário

Compartilhar em outros sites

bareta

Link para o comentário

Compartilhar em outros sites

dilouco

Link para o comentário

Compartilhar em outros sites

TIO CARNEGO

Link para o comentário

Compartilhar em outros sites

TIO CARNEGO

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades