none
Me falta algo en el Script... RRS feed

  • Pregunta

  • Buen día a todos.

    Estoy diseñando un archivo txt para convertirlo a Script. El archivo debería ser sencillo. Sólo debe abrir un Recordset que está en una base de datos Access 2003 y luego arrojar en un Msgbox la cantidad de registros de dicho Rs. Pero el problema es que el Msgbox me arroja un "-1" en la cantidad. No se que me falta. En Visual Basic, esto se corregía modificando la propiedad de la conexión "CursorLocation=AdUseClient".... pero acá no se que esté pasando. El código que uso en el Script es este:

    -----------------------------------------------------

    Dim Cnn
    Dim Rs

    Set Cnn = CreateObject("ADODB.Connection")
    Set Rs = CreateObject("ADODB.Recordset")

    Cnn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=MS Access Database;Initial Catalog=C:\Duplicados.mdb"
    Rs.open "RecordsetX",Cnn
    MsgBox Rs.RecordCount

    Rs.Close
    cnn.Close
    Set Cnn = Nothing
    Set Rs = Nothing

    --------------------------------------------

    Gracias por su ayuda.

    jueves, 10 de junio de 2010 16:09

Respuestas

  • Prueba con esto:

     

    Dim Cnn
    Dim Rs
    
    Set Cnn = CreateObject("ADODB.Connection")
    Set Rs = CreateObject("ADODB.Recordset")
    
    Cnn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=MS Access Database;Initial Catalog=C:\Duplicados.mdb"
    Rs.open "RecordsetX",Cnn
    On Error Resume Next
    Rs.MoveLast
    On Error Goto 0
    Err.Clear
    MsgBox Rs.RecordCount
    
    Rs.Close
    cnn.Close
    Set Cnn = Nothing
    Set Rs = Nothing

     


    Un saludo

    Fernando Reyes [MS MVP]
    MCSA 2000/2003
    MCSE 2000/2003
    MCITP EnterpriseAdministrator
    Web: http://freyes.svetlian.com
    Blog: http://urpiano.wordpress.com
    RSS: http://urpiano.wordpress.com/feed/
    freyes.champú@champú.mvps.org
    (Aclárate la cabeza si quieres escribirme)
    • Marcado como respuesta Ismael Borche martes, 2 de agosto de 2011 18:18
    viernes, 11 de junio de 2010 6:22
    Moderador

Todas las respuestas