Conectarse a BD DBF - Aporte

[sjam7]

Bueno no se si a alguien le sirva pero di un primer paso en algo que queria hacer y lo comparto, es un despliege de una base de datos DBF, en una tabla, ya de esta pues se podra ver como convertirla o copiarla a un formato como MySQL que es lo que intentare ahora hacer, se los dejo por si a alguien le puede servir:

Código:

<%
RS = Server.MapPath("INVEN3.DBF")
Set StrConn = Server.CreateObject("ADODB.Connection")

directorio = server.mappath(".")
archivo_dbf = "INVEN3.dbf"
StrConn.Open "Driver={Microsoft dBASE Driver (*.dbf)};" & "DriverID=277;" & "Dbq=" & directorio & ";"

color_datos = "#000000"
color_titulos = "#FFFFFF"

fondo_color_datos = "#cbebde"
fondo_color_titulos = "#475f70"

font_datos = "Verdana"
font_titulos = "Verdana"

size_datos = "11"
size_titulos = "11"

sql = "SELECT * FROM ["&archivo_dbf&"]"
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open StrConn
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open sql, oConn, 3, 1
Response.Write vbTab & "<TABLE cellpadding='3' BORDER='1' WIDTH='100%' bordercolor='#000000'>"
Response.Write vbTab & "<TR><TD align='left' bgcolor='"& fondo_color_titulos &"' "
       Response.Write "style='color: "& color_titulos &"; font-family:"& font_titulos &"; font-size: "& size_titulos &"'><STRONG>ID</STRONG></TD>" & vbCrLf
For I = 0 To RS.Fields.Count - 1
    Response.Write "<TD align='center' bgcolor='"& fondo_color_titulos &"' "
    Response.Write "style='color: "& color_titulos &"; font-family:"& font_titulos &"; font-size: "& size_titulos &"'><B>"
    Response.Write RS.Fields(I).Name
    nombre=RS.Fields(I).Name
    Response.Write "</B></TD>" & vbCrLf
Next 'I
Response.Write vbTab & "</TR>" & vbCrLf
cta=1
Do While not RS.EOF
    Response.Write vbTab & "<TR><TD align='left' bgcolor='"& fondo_color_datos &"' "
       Response.Write "style='color: "& color_datos &"; font-family:"& font_datos &"; font-size: "& size_datos &"'>"&cta&"</TD>" & vbCrLf
    For I = 0 To RS.Fields.Count - 1
       Response.Write "<TD align='left' bgcolor='"& fondo_color_datos &"' "
       Response.Write "style='color: "& color_datos &"; font-family:"& font_datos &"; font-size: "& size_datos &"'><B>"
       Response.Write RS.Fields(I)
       if isnull(RS.Fields(I)) or RS.Fields(I) = "" then response.write "&nbsp;"
       Response.Write "</B></TD>" & vbCrLf
    Next 'I
    cta=cta+1
    Response.Write vbTab & "</TR>" & vbCrLf
    RS.MoveNext
Loop
Response.Write vbTab & "</TABLE>"

RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing
%>