Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

No puedo recuperar datos de VFP con ASP

29/10/2004 - 16:03 por Jason Boris Rivas Otaiza | Informe spam
Ayuda Hacer una pregunta
buenas tengo un problema qeu la verdad me esta volviendo loco, necesito
cambiar la base de datos de mi web de acces a VFP, utilizando ODBC y ADO,
cree una pagina de prueba para ver como hacer la coneccion con VFP y logre
realizar la coneccion con la cual puedo insertar, actualizar y eliminar
registros sin problemas pero por alguna razon que no entiendo no puedo
recuperar los datos de la tabla no cual es el problema si puedo
pranticamente modificar la tabla a mi antojo por que el Recodset no puede
recuperar registros de la tabla.

este es el codigo asp que utilizo

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

<body>
<%
dim con,sqlstr,cn
set cn=server.createobject("ADODB.connection")
'cn.open "Provider=MSDASQL.1;Persist SecurityInfo=False;Extended
Properties=Driver={Microsoft Visual FoxPro Driver};UID=;SourceDB="&
Server.mapPath("../BaseDatos/")&
";SourceTypeÛF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"

cn.open "DRIVER={Microsoft Visual FoxPro
Driver};SourceTypeÛC;Exclusive=no;SourceDb="&
Server.mapPath("../BaseDatos/limaguns.dbc")
'cn.execute "insert into marcas(marca_nombre) values('prueba')"
'cn.execute "Select Prueba.prueba From Prueba"

sqlstr="Select * From categorias"
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open sqlstr,cn
registros=rs.RecordCount
%>
Registros :<%=registros%>
<%'="prueba : "+rs("cat_nombre")%>
<%cn.close%>
</body>
</html>

su puesta mente deveria de darme el numero de registros obtenidos pero
sale -1 y si trato de mostrar el contenido de algun campo sale este error

HTTP 500.100. Error interno del servidor: error de ASP
Servicios de Internet Information Server
Información técnica (para personal de soporte técnico)
a.. Tipo de error:
(0x80020009)
Ocurrió una excepción.
/LimaGuns/paginas/pruebaBD.asp, línea 25


b.. Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)

c.. Página:
GET /LimaGuns/paginas/pruebaBD.asp

d.. Hora:
viernes, 29 de octubre de 2004, 8:53:19


e.. Más información:
Soporte técnico de Microsoft
la verdad me parece ilogico que no pueda mostrar los registros de la tabla
probe con una tabla mas simple con un solo campo y con un solo campo de
texto y ygual no funciona podrian decirme cual es el problem apor favor que
esto me esta desquisiando necesito poder actualizar mi web con VFP y no
puedo hacerlo a causa de este problema les agradeso la atencion prestada
email Siga el debateRespuesta 9 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Sandra y María Claudia
30/10/2004 - 05:01 | Informe spam
Hola Jason:
Yo hago la conexión de otra forma, pero en realidad es lo mismo.
Yo creo un archivo INC con los parametros de conexión de esta forma

<%
Dim Conexion,Tabla1
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla1=Server.CreateObject("adodb.recordset")
Conexion.open "Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=f:\inetpub\base de datos\agenda.mdb"
%>

e incluyo este archivo en todas las páginas que hacen uso de base de datos
mediante un include file.
Luego creo variables temporales para mis query, asi:

Temp="Select * From Clientes Where Fecha='" & Request("VarFecha") & "' Order
By Codigo, Desc Nombre, Desc"
Tabla1.Open Temp, Conexion
While Not Tabla1.EOF

.


Pero lo que mencionas es el uso del RecordCount y para eso debes de tener un
archivo INC llamado ADOVBS.INC. Para mayor información puedes revisar
http://www.aspfacil.com/articulos/278006.asp por ejemplo. En esa dirección
también hay un enlace para descargar el archivo que menciono

Ojalá te ayude

Suerte

Sandra y María Claudia

Preguntas similares

 

Busqueda sugerida :