
15/01/2002, 11:40
|
| | Fecha de Ingreso: octubre-2000 Ubicación: Juarez, Chih.
Mensajes: 161
Antigüedad: 24 años, 7 meses Puntos: 0 | |
Re: Conexion a .DBF Saludos.
La siguiente página asp te abre una base de datos de fox ó dbase y te muestra su contenido. Modifica la variable archivo_dbf para especificar tu archivo .dbf
Esta página asp debe estar ubicada en el mismo directorio que donde se ubique la base de datos. Claro que esto se puede modificar.
<%
set oconn = server.createobject("ADODB.Connection")
set Tabla = server.createobject("ADODB.Recordset")
directorio = server.mappath(".")
archivo_dbf = "tu_archivo.dbf"
oConn.Open "Driver={Microsoft dBASE Driver (*.dbf)};" & "DriverID=277;" & "Dbq=" & directorio & ";"
Tabla.Open "Select * From " & archivo_dbf & ".dbf", oConn,1 ,2
%>
<table width="100%" cellspacing="1" cellpadding="2">
<tr>
<%
for i=0 to Tabla.fields.count-1
%>
<td align="center" style="border: 1 solid #000000" bgcolor="#336699"><font face="Arial" size="1" color="#FFFFFF"><b><%=Tabla( i).name%></font></td>
<% Next %>
</tr>
<%
If not Tabla.eof and not Tabla.bof then
rows = 0
Do while not Tabla.eof
rows = rows + 1
%>
<tr>
<%
For i=0 to Tabla.fields.count-1
%>
<td align="center" style="border: 1 solid #000000" bgcolor="#FFFFFF"><font face="Arial" size="1" color="#000000"><%=Tabla(i)%>&l t;/font></td>
<%
Next
%>
</tr>
<%
Tabla.movenext
Loop
Response.Write "Existen " & rows & " registros en " & archivo_dbf
Else
Response.write "No se encontraron registros "
End if
%>
</table>
---------------------
Espero que esto ayude... |