Ver Mensaje Individual
  #2 (permalink)  
Antiguo 07/09/2002, 11:18
dix10
 
Fecha de Ingreso: febrero-2002
Mensajes: 115
Antigüedad: 22 años, 10 meses
Puntos: 1
Re: Cómo accedo MySQL con ASP ¿Puedo?

Te paso algunos ejemplos ,, que tambien sirven con el chilisoft...

Saludos

PARA CONECTAR A UNA DB .DBF
---------------------------------------------------------------
<%

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>


PARA CONECTAR CON ASP A UNA DB MYSQL
--------------------------------------------------------------------

<%
Dim strParametros,cnnForos
strParametros = "Driver={MySQL};SERVER=localhost;DATABASE=nom breBaseDatos;UID=nombreUsuario;PASSWORD=password&q uot;
Set cnnForos = Server.CreateObject("ADODB.Connection")
cnnForos.Open strParametros
%>