Principales respuestas
Me falta algo en el Script...

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 RsSet 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.RecordCountRs.Close
cnn.Close
Set Cnn = Nothing
Set Rs = Nothing--------------------------------------------
Gracias por su ayuda.
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
Todas las 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