error 0x80040E14 FOXPRO

got44
23 de Octubre del 2003
Mi basede datos es una de foxpro se llama fvar.dbf i tengo creada la DNS en el sistema.
Este es el error :
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
El controlador ODBC no admite las propiedades solicitadas.
/index.asp, lnea 16

i este el programa:

7.- <% Set miconexion = Server.CreateObject("ADODB.Connection")
8.- miconexion.ConnectionString = "DSN=fvar"
9.- miconexion.Open
10.- Set principal = Server.CreateObject("ADODB.Recordset")
11.- Set principal = Server.CreateObject("ADODB.Recordset")
12.- principal.ActiveConnection = miconexion
13.- principal.Source = "fvar"
14.- principal.CursorType = 2
15.- principal.LockType = 3
16.- principal.Open
17.- do while not principal.EOF%>
18.- <%=principal("codigo")%><br>
19.- <% principal.MoveNext
20.- loop
21.- principal.Close
22.- Conn.Close
23.- %>

JOSE LUIS
23 de Octubre del 2003
lo siento no puedo ayudarte ya que yo tambien tengo el mismo error, pero como tu mensaje esta desde hace mas de 4 meses creo que ya resolviste el error y a ver si me puedes ayudar.
aqui te va mi codigo el error se generta al conetarse
<%IF (Request.Form <> "") THEN

Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_RS = Server.CreateObject ("ADODB.RecordSet")
Ob_Conn.Open "PROYECTO" ////LO TENO DADO DE ALTA CON EL PROVEEDOR O VFP TREILER
Ob_RS.Open "ClienteS", Ob_Conn, adOpenStatic, adCmdTable

Ob_RS.AddNew
Insertar = True
FOR EACH Parametro IN Request.Form
Parametro= LCase (Parametro)
IF Request.Form (Parametro) = "" THEN
Insertar= False
Exit For
ELSE
IF Parametro="DNI" THEN
Ob_RS (Parametro)= CLng (Request.Form(Parametro))
ELSE
Ob_RS (Parametro)= Request.Form(Parametro)
END IF
END IF
NEXT

IF Insertar THEN
Ob_RS.Update
Response.Write "<H3> Datos insertados </H3>"
ELSE
Ob_RS.CancelUpdate
Response.Write "<H3> Datos incompletos </H3>"
END IF

Ob_RS.Close
Ob_Conn.Close %>
<A HREF="EjBD7.asp"> Menu principal </A> **
<A HREF="EjBD7_ins.asp"> Otra insercin </A>

<% ELSE %>
<H3> ESCRIBA SUS DATOS PERSONALES </H3> <BR>
<FORM METHOD="Post" ACTION="EjBD7_ins.asp">

CORREO: <INPUT NAME="correo_cte" SIZE=30> <BR><BR>
CONTRASEA: <INPUT NAME="paswoord_cte" SIZE=10> <BR><BR>
NOMBRE: <INPUT NAME="nombre_cte" SIZE=20> <BR><BR>
APELLIDOS: <INPUT NAME="Apellidos_cte" SIZE=35> <BR><BR>
DIRECCION(Calle Principal): <INPUT NAME="Direccion_cte" SIZE=25> <BR><BR>
DIRECCION(Entre calles): <INPUT NAME="Direccion2_cte" SIZE=30> <BR><BR>
COLONIA: <INPUT NAME="colonia_cte" SIZE=20> <BR><BR>

MUNICIPIO: <INPUT NAME="municipio_cte" SIZE=20> <BR><BR>
ESTADO: <INPUT NAME="estado_cte" SIZE=25> <BR><BR>
TELEFONO: <INPUT NAME="Telefono_cte" SIZE=15> <BR><BR>
TELEFONO OFICINA: <INPUT NAME="Teloficina_cte" SIZE=15> <BR><BR>
CODIGO POSTAL: <INPUT NAME="cp_cte" SIZE=5> <BR><BR>

<INPUT TYPE="Submit" VALUE="Enviar datos">
<INPUT TYPE="Reset" VALUE="Borrar">
</FORM>
<% END IF %>