ODBC-RecordCount
Publicado por EGV (385 intervenciones) el 24/01/2005 15:15:29
hola amigos
Como leo el RecordCount cuando uso ODBC
en el primer textbox me da -1
y en el segundo me da 71 que son los registros reales de la segunda tabla, porque funciona aparentemente en la segunda tabla y no en la primera, es un form con dos text (para prueba)
Sino de todos modos como hago para leer la cantidad de registros cuando uso ODBC Gracias Edu
hola amigos
Como leo el RecordCount cuando uso ODBC
En el ejemplo que envio de codigo (tramo de algo mayor) en el primer textbox me da -1
y en el segundo me da 71 que son los registros reales de la segunda tabla, porque funciona aparentemente en la segunda tabla y no en la primera, es un form con dos text (para prueba)
Sino de todos modos como hago para leer la cantidad de registros cuando uso ODBC Gracias Edu
Set MiEspaWork = CreateWorkspace("PROFMEDI", "admin", "", dbUseODBC)
Set db = MiEspaWork.OpenDatabase(ODBCNombreBase, dbDriverCompleteRequired, False, Conectarme)
Set RegEspecial = db.OpenRecordset("ESPECIAL", dbOpenDynaset)
RegEspecial.MoveLast
RegEspecial.MoveFirst
CantReg = RegEspecial.RecordCount
para el text1
micrit = "Select * from IOMAMEDIC"
Set MiEspaWork = CreateWorkspace("PROFMEDI", "admin", "", dbUseODBC)
Set db = MiEspaWork.OpenDatabase(ODBCNombreBase, dbDriverCompleteRequired, False, Conectarme)
Set RegAux = db.OpenRecordset(micrit, dbOpenSnapshot)
RegAux.MoveLast
RegAux.MoveFirst
Canti = RegAux.RecordCount
Text1.Text = Canti
db.Close
MiEspaWork.Close
Como leo el RecordCount cuando uso ODBC
en el primer textbox me da -1
y en el segundo me da 71 que son los registros reales de la segunda tabla, porque funciona aparentemente en la segunda tabla y no en la primera, es un form con dos text (para prueba)
Sino de todos modos como hago para leer la cantidad de registros cuando uso ODBC Gracias Edu
hola amigos
Como leo el RecordCount cuando uso ODBC
En el ejemplo que envio de codigo (tramo de algo mayor) en el primer textbox me da -1
y en el segundo me da 71 que son los registros reales de la segunda tabla, porque funciona aparentemente en la segunda tabla y no en la primera, es un form con dos text (para prueba)
Sino de todos modos como hago para leer la cantidad de registros cuando uso ODBC Gracias Edu
Set MiEspaWork = CreateWorkspace("PROFMEDI", "admin", "", dbUseODBC)
Set db = MiEspaWork.OpenDatabase(ODBCNombreBase, dbDriverCompleteRequired, False, Conectarme)
Set RegEspecial = db.OpenRecordset("ESPECIAL", dbOpenDynaset)
RegEspecial.MoveLast
RegEspecial.MoveFirst
CantReg = RegEspecial.RecordCount
para el text1
micrit = "Select * from IOMAMEDIC"
Set MiEspaWork = CreateWorkspace("PROFMEDI", "admin", "", dbUseODBC)
Set db = MiEspaWork.OpenDatabase(ODBCNombreBase, dbDriverCompleteRequired, False, Conectarme)
Set RegAux = db.OpenRecordset(micrit, dbOpenSnapshot)
RegAux.MoveLast
RegAux.MoveFirst
Canti = RegAux.RecordCount
Text1.Text = Canti
db.Close
MiEspaWork.Close
Valora esta pregunta


0