Visual Basic - Tablas sin registros

Life is soft - evento anual de software empresarial
 
Vista:

Tablas sin registros

Publicado por Guay (69 intervenciones) el 17/06/2002 16:29:54
Hay alguna manera para saber si una tabla contiene
registros desde visual basic? Quiero que al dar a un boton
el compruebe internamente si esa tabla contiene algun
registro y si contiene que devuelva un mensaje de que
contiene y si no que de un mensaje de error. Gracias a
tod@s por vuestra colaboracion. Un saludo.

-Guay-
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Tablas sin registros

Publicado por Josep (16 intervenciones) el 17/06/2002 18:17:27
Hola, tienes que utilizar la propiedad recordcount del recordset. Por ejemplo:

data1.Recordset.RecordCount.

Un saludo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Tablas sin registros

Publicado por Alvaro Marín (574 intervenciones) el 18/06/2002 09:21:27
Estimado amigo:
Otra forma es mirando al principio y al final de la tabla:
If Not (Data1.Recordset.EOF) and Not (Data1.Recordset.BOF) Then
Msgbox "La tabla carece de registros"
Else
Msgbox "La tabla contiene registros"
End If
Un cordial saludo
Fdo.- Alvaro Marín
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Tablas sin registros

Publicado por Jorge Jara (Bloody2002) (29 intervenciones) el 18/06/2002 17:51:32
eso es super simple y te voy a dar el codigo casi-completo.

Dim Base as DataBase
Dim Reg as RecordSet
Set Base=WorkSpaces(0).OpenDataBase("c:\Ruta.Mdb")
Set Reg=Base.OpenRecordSet("Select * From Tabla Order By Registro")
If Reg.RecordCount>0 Then
Reg.MoveLast
Reg.MoveFirst
MsgBox "La Cantidad de registros Son: " & Reg.RecordCount
Else
Msgbox"Esta Tabla No tiene registros"
End If
eso lo colocas en un boton con datos reales y te va ha funcionar.
Si tienes una duda o consulta no dejes de escribir.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar