Conexión con access 2003
Saludos, dos preguntas:
1.¿Podemos conectarnos con una base de datos access 2003?
2.¿Cómo?Es decir, ¿se utiliza el "Jet" 4.0?Si me pudiérais poner el código mejor.
Gracias.
1.¿Podemos conectarnos con una base de datos access 2003?
2.¿Cómo?Es decir, ¿se utiliza el "Jet" 4.0?Si me pudiérais poner el código mejor.
Gracias.
Prueba este codigo:
<%
Dim SQL, Conexion, RecordSet
Set Conexion = Server.CreateObject("ADODB.Connection")
Conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:InetpubwwwrootDatosPrueba.mdb;"
SQL = "SELECT Codigo, Descripcion FROM Prueba"
Set RecordSet = Server.CreateObject("ADODB.RecordSet")
RecordSet.Open SQL, Conexion, 1
If RecordSet.RecordCount > 0 Then
Do While Not RecordSet.EOF
Response.Write "Codigo - " & RecordSet.Fields("Codigo") & "<BR>"
Response.Write "Descripcion - " & recordset.Fields("Descripcion") & "<BR><BR>"
RecordSet.MoveNext
Loop
End If
RecordSet.Close
Conexion.Close
Set RecordSet = Nothing
Set Conexion = Nothing
%>
Espero que te sirva. Saludos desde Euskal Herria.
Mikel
<%
Dim SQL, Conexion, RecordSet
Set Conexion = Server.CreateObject("ADODB.Connection")
Conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:InetpubwwwrootDatosPrueba.mdb;"
SQL = "SELECT Codigo, Descripcion FROM Prueba"
Set RecordSet = Server.CreateObject("ADODB.RecordSet")
RecordSet.Open SQL, Conexion, 1
If RecordSet.RecordCount > 0 Then
Do While Not RecordSet.EOF
Response.Write "Codigo - " & RecordSet.Fields("Codigo") & "<BR>"
Response.Write "Descripcion - " & recordset.Fields("Descripcion") & "<BR><BR>"
RecordSet.MoveNext
Loop
End If
RecordSet.Close
Conexion.Close
Set RecordSet = Nothing
Set Conexion = Nothing
%>
Espero que te sirva. Saludos desde Euskal Herria.
Mikel