13/02/2002, 10:39
|
| | | Fecha de Ingreso: enero-2002
Mensajes: 6
Antigüedad: 23 años, 3 meses Puntos: 0 | |
| Re: Alguien me puede ayudar con este error?
Hector Gracias por responder a mi mensaje, mi cadena de conexion es la siguiente.
<%
Dim strDB
strDB = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("analisis.mdb")
%> <%
' ADO Constants - Don't Change Them
Const adOpenForwardOnly = 0
Const adLockReadOnly = 1
Const adCmdText = &H0001
Const adUseClient = 3
Dim recordsToShow
recordsToShow = 10
' Our Connection Object
Dim con
Set con = CreateObject ("ADODB.Connection")
con.Open strDB "ESTA ES LA LINEA DE ERROR
Dim SqlVar
' Our Recordset Object
Dim rs
Set rs = CreateObject("ADODB.Recordset")
rs.CursorLocation = adUseClient
rs.PageSize = recordsToShow
rs.CacheSize = recordsToShow
rs.Open SqlVar, strDB, 3, 3
omiti algunas cosas en el codigo.
el error me lo da en la linea 28 (
HUGO ALBERTO CASTRO MORALES
|