Los ejemplos suyod no funcionan

gonzaloj · #1 (**permalink**) 19/01/2002, 11:43

Hola mi problema es , ante todo decir que uso el W2000, pues despues de añadir la nueva carpeta con el pwp y conectar la base de datos con el ODBC ,los registros no cambian , ni se borran , etc...
Vamos que no se accede a la base de datos, recuerdo que utulizo los ejemplos del tutorial que aqui se da.
Que es lo que falla?
O que es lo que puede fallar?

Sir Matrix · #2 (**permalink**) 19/01/2002, 11:57

POdrías poner el código en el mensaje?? asi es más fácil identificar el problema.

gonzaloj · #3 (**permalink**) 19/01/2002, 13:45

El codi , exactamente de que hoja ,de la de insertar , borrar , etec......?
El codigo creo que este bien ya que me lo descargue de esta pagina, supongo que este bien.
De todas formas dime que codigo quieres y te lo pondre!
ok
muchas gracias

Sir Matrix · #4 (**permalink**) 19/01/2002, 13:58

si, cualquier código que no funcione, o pon la url de esos ejemplos, almenos yo no los conozco.

También revisa si le diste permisos de escritura al directorio virtual donde tienes la base de datos

saludos

gonzaloj · #5 (**permalink**) 19/01/2002, 20:19

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>

Owen-Bonilla · #6 (**permalink**) 20/01/2002, 00:47

Amigo, te dejo este código, es sencillo... pero para empezar con esto, te servira..
solo tienes que creas una BD con una tabla llamada "EjemploDB", con los siguientes campos ( texto ó memo de preferencia ): nombre, apellidos, direccion y telefono ( de preferencia, nunca uses acentos ni caracteres especiales ;) )
y listo.. correlo y debe de funcionar...

<HTML>
<TITLE> Insertar un registro </TITLE>
<BODY>

<%IF (Request.Form <> "") THEN

Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_RS = Server.CreateObject ("ADODB.RecordSet")
Ob_Conn.Open "EjemploBD"
Ob_RS.Open "Fichas", Ob_Conn, adOpenStatic, adCmdTable

Ob_RS.AddNew
Ob_RS ("DNI")= CLng (Request.Form("DNI"))
Ob_RS ("Nombre")= Request.Form("NOMBRE")
Ob_RS ("Apellidos")= Request.Form("APELLIDOS")
Ob_RS ("Dirección") = Request.Form("DIRECCION")
Ob_RS ("Teléfono")= Request.Form("TELEFONO")
Ob_RS.Update
Ob_RS.Close
Ob_Conn.Close
Response.Write "<H3>" & "Datos insertados" & "<H3>"

ELSE %>
<H3> ESCRIBA SUS DATOS PERSONALES </H3> <BR>
<FORM METHOD="Post" ACTION="EjBD2.asp">
DNI: <INPUT NAME="DNI" SIZE=10> <BR>
NOMBRE: <INPUT NAME="Nombre" SIZE=15> <BR>
APELLIDOS: <INPUT NAME="Apellidos" SIZE=30> <BR>
DIRECCION: <INPUT NAME="Direccion" SIZE=30> <BR>
TELEFONO: <INPUT NAME="Telefono" SIZE=15> <BR>
<INPUT TYPE="Submit" VALUE="Enviar datos">
<INPUT TYPE="Reset" VALUE="Borrar">
</FORM>
<% END IF %>
</BODY>
</HTML>

Ahorita en otro mensaje te dejare el codigo para visualisarlo y ademas, un archivo ( ADOVBS.inc ) que debes incluir en la carpeta donde estes corriendo tus programas..

Saludos.. deja te pongo el otro codigo..

Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]

Owen-Bonilla · #7 (**permalink**) 20/01/2002, 00:51

este codigo, ademas te da la opcion de buscar personas ;)

igual, solo correlo y listo.

<HTML>
<TITLE> Filtrar un registro </TITLE>
<BODY>

<%IF (Request.Form <> "") THEN

Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_RS = Server.CreateObject ("ADODB.RecordSet")
Ob_Conn.Open "EjemploBD"
Ob_RS.Open "Fichas", Ob_Conn, adOpenStatic, adCmdTable
Ob_RS.Filter = "Nombre = '" & Request.Form ("Nombre")& "'" %>
<H3> Estos son las personas encontradas </H3>
<TABLE BORDER=1>
<TR>
<TH> DNI </TH>
<TH> NOMBRE </TH>
<TH> APELLIDOS </TH>
<TH> DIRECCION </TH>
<TH> TELEFONO </TH>
<% DO WHILE NOT Ob_RS.Eof %>
<TR>
<TD><%= Ob_RS ("DNI") %></TD>
<TD><%= Ob_RS ("Nombre") %></TD>
<TD><%= Ob_RS ("Apellidos") %></TD>
<TD><%= Ob_RS ("Dirección") %></TD>
<TD><%= Ob_RS ("Teléfono") %></TD>
<% Ob_RS.MoveNext
LOOP
Response.Write "</TABLE>"
Ob_RS.Close
Ob_Conn.Close

ELSE %>
<H3> ESCRIBA EL NOMBRE A BUSCAR </H3> <BR>
<FORM METHOD="Post" ACTION="EjBD5.asp">
NOMBRE: <INPUT NAME="Nombre" SIZE=10> <BR><BR>
<INPUT TYPE="Submit" VALUE="Enviar datos">
<INPUT TYPE="Reset" VALUE="Borrar">
</FORM>
<% END IF %>
</BODY>
</HTML>

Suerte... ya por ultimo, te dire el codigo del archivo que llevara por nombre ADOVBS.inc..

Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]

Owen-Bonilla · #8 (**permalink**) 20/01/2002, 00:56

mmm amigo, dime si no tienes eese archivo.. para pasartelo por correo, ya que es muy grande para ponerlo aquiu :(

Saludos ;) y suerte, cualquier cosa, hecanos un grito jeje

Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]

gonzaloj · #9 (**permalink**) 20/01/2002, 07:46

Muchas gracias tio , oye , debo subir ese archivo que me vas a pasar tambien al site ?
Ok muchas gracias :
[email protected]

gonzaloj · #10 (**permalink**) 20/01/2002, 09:34

No te preocupes por lo del ADOVBS.inc que lo tengo , lo que pasa que cuando ejecuto tu codigo , al poner los datos y darle al submit me devuelve una pagina como no encontrada , no se por que puede se , al menos voy avanzando , que ya es algo , ya que antes ni se inmutaba.
Y el buscar tambien me habre un no encontrado
Y sigue sin meterme ningun registro en la tabla
Que puede pasar?
realice la conexion con el ODBC
Y le cree un directorio virtual con el PWP.
Por supuesto le inclui el .inc
Estoy desesperado!

Owen-Bonilla · #11 (**permalink**) 20/01/2002, 18:54

Amigo no se desespere :P... a veces toma tiempo entender como hacer las cosas, y peor aún si nos desesperamos...

Ya responi tu correo ;) ..

Suerte y saludos !!

Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]