22 Sep 2017 

Centro de Soporte » Base del Conocimiento » ¿Cómo me conecto a una base de datos de Visual Fox Pro?
 ¿Cómo me conecto a una base de datos de Visual Fox Pro?
Solución

WinNetHost le ofrece soporte para bases de datos y tablas de VFP.

Ejemplo:

<%@ Language=VBScript%>
<% Dim cRuta, oConn, oRs

cRuta = Server.MapPath("Northwind/Northwind.DBC")

Set oConn = CREATEOBJECT("ADODB.Connection")
Set oRs = CREATEOBJECT("ADODB.RecordSet")
oConn.Open("Provider=VFPOLEDB.1;Data Source=" & cRuta)

cSQL = "SELECT CustomerId, CompanyName, Address, City, Country FROM Customers"
oRs.Open cSQL, oConn
%>
<html>
<body>
<h3>Listado de Clientes al: <% =Now() %></h3>
<table border=1 width=100% cellspacing="1" cellpadding="2">
<tr>
<% For i = 0 to oRS.Fields.Count - 1 %>
<th><% = UCASE(oRS(i).Name) %></th>
<% Next %>
</tr>
<% Do While Not oRS.EOF %>
<tr bgcolor="#FFFFFF">
<% For i = 0 to oRS.Fields.Count - 1 %>
<td><% = oRS(i) %></td>
<% Next %>
</tr>
<%
oRs.MoveNext
Loop
oRs.Close
oConn.Close
Set oRs = Nothing
Set oConn = Nothing
%>
</table>
</body>
</html>


Detalles del Artículo
Artículo ID: 120
Creado En: 22 Dec 2005 07:45

 Esta respuesta fue útil  Esta respuesta no fue útil

Temas relacionados

 

   
   

 
 Login [Recordar Contraseña] 
Email:
Contraseña:
Recordarme:
 
 Buscar
 Opciones

Regresar

Inicio | Registro | Enviar Consulta | Base del Conocimiento | Noticias | Descargas

 

http://www.winnethost.com