| Usuario |
Contar Registros |
Miriam
14 Mensaje(s)
|
| Enviado - 18/8/2004 |
| |
Gracias fmarredo!!!, pero sigo aún con el problema...
con este código, puedo contar los registros de otra BBDD que he puesto en C:\Miriam.mdb para hacer la prueba.
Pero el caso es que a mi me interesa contar los registros de la tabla de la misma BBDD que tengo abierta y con la que estoy trabajando.
El código con el que funciona lo que decías es este:
Private Sub Form_AfterUpdate()
Dim dbsBase As Database
Dim rstTotal As Recordset
Set dbsBase = OpenDatabase("C:\Miriam.mdb")
With dbsBase
Set rstTotal = .OpenRecordset("SELECT COUNT(*) FROM BBDD")
txtTotal.Text = rstTotal(0)
rstTotal.Close
End With
End Sub
El tema está en que habría que cambiar OPENDATABASE por CurrentDataBase o algo así. supongo que también habría que modificar algo más. Sigo mirando pero no me sale.
Muchas Gracias |
| |
|
nostromo
409 Mensaje(s)
|
| Enviado - 18/8/2004 |
| |
Hola;
Mira así lo realizo:
Private Sub cmdVerTotal_Click()
Option Explicit
Dim db As Database
Dim rs As Recordset
Dim a As String
Dim n As Integer
a = txtUsoCarpe & "\" & lblArchivo & ".mdb"
Set db = OpenDatabase(a)
Set rs = db.OpenRecordset("SELECT Count(TARIFA) FROM TARIFA_NO_CLIENTE")
n = rs.Fields(0)
rs.Close
db.Close
lblTotalRegistros.Caption = n
End Sub
Nos vemos. |
| |
|
nostromo
409 Mensaje(s)
|
| Enviado - 18/8/2004 |
| |
Hola de nuevo;
Si trabajas con Acces 2003, debes agregar la referencia:
Microsoft DAO 5.31 Object Library.
Nos vemos. |
| |
|
Miriam
14 Mensaje(s)
|
| Enviado - 18/8/2004 |
| |
Muchas gracias,
¿me puedes explicar que es txtUsoCarpe? y lblArchivo?.
a = txtUsoCarpe & "\" & lblArchivo & ".mdb"
En cuanto a la referencia MICROSOFT DAO 5.31 Object Library que me dices... no me aparace. :-S
Menudo desastre...
:-) |
| |
|
Miriam
14 Mensaje(s)
|
| Enviado - 18/8/2004 |
| |
Lo he conseguido... por si te sirve de algo este es el código que he utilizado después de buscar un rato más por la ayuda con paciencia.
Private Sub Form_AfterUpdate()
Dim dbsBase As Database
Dim rstTotal As Recordset
Set dbsBase = CurrentDb()
With dbsBase
Set rstTotal = .OpenRecordset("SELECT COUNT(*) FROM BBDD")
lblTotal.SetFocus
lblTotal.Caption = rstTotal(0)
rstTotal.Close
End With
End Sub
Yo así lo entiendo mejor... en cualquier caso, si me explicas lo de antes perfecto. Siempre viene ver tener otras recursos disponibles.
Y muchas gracias por todo!! |
| |
|
nostromo
409 Mensaje(s)
|
| Enviado - 18/8/2004 |
| |
Hola;
el TextBox = txtUsoCarpe; es el path de lacarpeta donde esta la base de datos.
lblArchivo; es el nombre de la base de datos, esto te permite manejar una serie de bases y posteriormente le agregas un cboTablas(ComboBox) el cual es rellenado dependiendo de el nombre de la bese de datos que ingreses, por lo que queda cboArchivo (ComboBox).
en cuanto a la referencia, cometí un error era :
Microsoft DAO 3.51 Object Library
Nos vemos. |
| |
|
nostromo
409 Mensaje(s)
|
| Enviado - 18/8/2004 |
| |
Hola;
Miriam, tienes un código el cual haga que el form se encuentre siempre visible, que se sobreponga a otras aplicaciones abiertas.
No tiene nada que ver con la propiedad Modal, encontre un código, pero no funciona.
Nos vemos. |
| |
|
Miriam
14 Mensaje(s)
|
| Enviado - 18/8/2004 |
| |
Gracias por la explicacion.
Mira a ver si te sirve de algo.
http://moratiel.com/visualbasicapariencia.html
Aquí encontrarás el código del FORM SIEMPRE VISIBLE.
No lo he mirado porque desinstalé hace un tiempo el Visual Studio 6.0, así que no te puedo decir gran cosa. |
| |
|
