Grabar en base de datos
Tengo el siguiente codigo asp y html en una pagina, que es la que recibe los
datos de un formulario asp rellenado anteriormente. lo que quiero hacer es estos
datos meterlos dentro de una tabla de acces 2000. Como puedo hacerlo????
Gracias
<HTML>
<BODY>
<H2><CENTER>Listas dinámicas dependientes</CENTER></H2>
<H3>Valores enviados</H3>
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
%>
<P>IdCategoria =
<%
codcategoria= Response.Write(Request.Form("Categorias")&"<br>")
%>
<P>IdProducto =
<%
codproducto= Response.Write(Request.Form("Productos")&"<br>")
%>
<hr>
unidaes = <%vuni=request.form("textunidades")%>
<%=vuni%>
Total * 3= <%= (vuni * 3)%>
Categoria = <%vcat=request.form("Categorias")%>
<%=vcat%>
<P>
<%
Dim oConn, rs, SQL, vproducto
vproducto= Trim(Request.Form("Productos"))
vproducto = Replace(vproducto,"'","''")
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbjose.mdb")
sql = "SELECT * FROM tbsku WHERE clng(Orden) ="&clng(vproducto)
rs.Open SQL, oConn
%>
<%
if rs.fields("orden")= 1001 then
vDescripcion= ""
else
vDescripcion =rs.Fields("Descripcion").value
end if
%>
<%= vDescripcion%>
<%
'set rs2= Server.Createobject("ADODB.Recordset")
'rs2.CursorType = adOpenKeyset
'rs2.LockType = adLockOptimistic
'rs2.Open "tbdatos", Oconn
'rs2.movefirst
'
'do While not rs2.eof
'
'if (rs2.eof =true) then
'response.write "aa"
'rs2.Addnew
'rs2("descripcion1")= vdescripcion
'rs2("pvp1")= vuni
'rs2("total")=1
'rs2.update
'end if
'rs2.Movenext
'loop
'if (rs2.eof =true) then
'response.write "aa"
'rs2.Addnew
'rs2("descripcion1")= vdescripcion
'rs2("pvp1")= vuni
'rs2("total")=1
'rs2.update
'end if
'rs2.close
%>
<%
'Limpiamos objetos
'rs.Close
'set rs=nothing
oConn.Close
set oConn=nothing
%>
</BODY>
</HTML>
datos de un formulario asp rellenado anteriormente. lo que quiero hacer es estos
datos meterlos dentro de una tabla de acces 2000. Como puedo hacerlo????
Gracias
<HTML>
<BODY>
<H2><CENTER>Listas dinámicas dependientes</CENTER></H2>
<H3>Valores enviados</H3>
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
%>
<P>IdCategoria =
<%
codcategoria= Response.Write(Request.Form("Categorias")&"<br>")
%>
<P>IdProducto =
<%
codproducto= Response.Write(Request.Form("Productos")&"<br>")
%>
<hr>
unidaes = <%vuni=request.form("textunidades")%>
<%=vuni%>
Total * 3= <%= (vuni * 3)%>
Categoria = <%vcat=request.form("Categorias")%>
<%=vcat%>
<P>
<%
Dim oConn, rs, SQL, vproducto
vproducto= Trim(Request.Form("Productos"))
vproducto = Replace(vproducto,"'","''")
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbjose.mdb")
sql = "SELECT * FROM tbsku WHERE clng(Orden) ="&clng(vproducto)
rs.Open SQL, oConn
%>
<%
if rs.fields("orden")= 1001 then
vDescripcion= ""
else
vDescripcion =rs.Fields("Descripcion").value
end if
%>
<%= vDescripcion%>
<%
'set rs2= Server.Createobject("ADODB.Recordset")
'rs2.CursorType = adOpenKeyset
'rs2.LockType = adLockOptimistic
'rs2.Open "tbdatos", Oconn
'rs2.movefirst
'
'do While not rs2.eof
'
'if (rs2.eof =true) then
'response.write "aa"
'rs2.Addnew
'rs2("descripcion1")= vdescripcion
'rs2("pvp1")= vuni
'rs2("total")=1
'rs2.update
'end if
'rs2.Movenext
'loop
'if (rs2.eof =true) then
'response.write "aa"
'rs2.Addnew
'rs2("descripcion1")= vdescripcion
'rs2("pvp1")= vuni
'rs2("total")=1
'rs2.update
'end if
'rs2.close
%>
<%
'Limpiamos objetos
'rs.Close
'set rs=nothing
oConn.Close
set oConn=nothing
%>
</BODY>
</HTML>
Por que no cambias a otra base de datos mejor.
Primero tienes que crear un ODBC para que te conectes a acces, ya que tengas el ODBC te concetas a la base de datos por el ODBC y le mandas un query de insercion
Primero tienes que crear un ODBC para que te conectes a acces, ya que tengas el ODBC te concetas a la base de datos por el ODBC y le mandas un query de insercion