19/01/2002, 20:19
|
| | | Fecha de Ingreso: enero-2002
Mensajes: 27
Antigüedad: 23 años, 3 meses Puntos: 0 | |
| Re: Los ejemplos suyod no funcionan
te pongo el codigo de Insertar registro, por cierto ya le di permisos de escritura y lectura al siet con el pwp. gracias
ESTE ES EL DE LA PAGINA HTML
<FORM METHOD="POST" ACTION="insertar.asp">
Nombre<br>
<INPUT TYPE="TEXT" NAME="nombre"><br>
Teléfono<br>
<INPUT TYPE="TEXT" NAME="telefono"><br>
<INPUT TYPE="SUBMIT" value="Insertar">
</FORM>
--------------------------------------------
ESTE ES EL DE INSERTAR EL ASP
%
'Recogemos los valores del formulario
nombre=Request.Form("nombre")
telefono= Request.Form("telefono")
'Instanciamos y abrimos nuestro objeto conexion
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Mibase"
'Ahora creamos la sentencia SQL
sSQL="Insert Into Clientes (nombre,telefono) values ('" & nombre & "','" & telefono & "')"
'Ejecutamos la orden
set RS = Conn.Execute(sSQL)
%>
---------------------------------------------
ESTE ES EL DE LECTURA
<BODY>
<h1><div align="center">Lectura de la tabla</div></h1>
<br>
<br>
<%
'Antes de nada hay que instanciar el objeto Connection
Set Conn = Server.CreateObject("ADODB.Connection")
'Una vez instanciado Connection lo podemos abrir y le asignamos la base de datos donde vamos a efectuar las operaciones
Conn.Open "Mibase"
'Ahora creamos la sentencia SQL que nos servira para hablar a la BD
sSQL="Select * From Clientes Order By nombre"
'Ejecutamos la orden
set RS = Conn.Execute(sSQL)
'Mostramos los registros%>
<table align="center">
<tr>
<th>Nombre</th>
<th>Teléfono</th>
</tr>
<%
Do While Not RS.Eof
%>
<tr>
<td><%=RS("nombre")%></td>
<td><%=RS("telefono")%>&l t;/td>
</tr>
<%
RS.MoveNext
Loop
'Cerramos el sistema de conexion
Conn.Close
%>
</table>
|