Sección de códigos , trucos y ejemplos para visual basic

157 - Select Count - Contar registros

Contenido de la página

Select Count ( ADO )
Select Count ( DAO )
Enlaces relacionados

Select Count ( ADO )

simple código fuente que demuestra como conectar a una base de datos y utilizar la sentencia Select Count de Microsot Jet SQL para contar registros de una tabla

Añadir un botón al formulario y la referencia de ADO

Option Explicit ' \\ -- Agregar ADO (microsoft Activex Data Objects ) -- Desde el menú referencias de VB Dim cn As ADODB.Connection ' -------------------------------------------------------------------------------------- ' \\ -- Botón para ejecutar el Select Count ' -------------------------------------------------------------------------------------- Private Sub Command1_Click() On Error GoTo error_Handler Dim sSQL As String Dim rst As New ADODB.Recordset ' ¿ La conexión está abierta ? If cn.State = adStateOpen Then sSQL = "SELECT Count(*) as Total_Filas FROM Productos" ' -- Ejecutar comando SQL con el método Execute Set rst = cn.Execute(sSQL, , adCmdText) ' -- Mostrar cantidad de registros MsgBox rst("total_Filas"), vbInformation, "Registros" Set rst = Nothing Else MsgBox "No hay una conexion activa a la base de datos", vbExclamation End If Exit Sub error_Handler: MsgBox Err.Description, vbCritical End Sub ' -------------------------------------------------------------------------------------- ' \\ -- Inicio ' -------------------------------------------------------------------------------------- Private Sub Form_Load() ' -- Establecer conexión a la base de datos Set cn = New ADODB.Connection With cn Dim path_bd As String ' -- Ruta path_bd = "C:\Archivos de programa\Microsoft Visual Studio\VB98\nwind.mdb" ' -- Abrir .Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & path_bd & ";" & "Persist Security Info=False" End With End Sub ' -------------------------------------------------------------------------------------- ' \\ -- Fin ' -------------------------------------------------------------------------------------- Private Sub Form_Unload(Cancel As Integer) ' -- Cerrar conexión If Not cn Is Nothing Then ' -- Si la conexión está abierta ..cerrar If cn.State = adStateOpen Then cn.Close Set cn = Nothing End If End Sub

Select Count ( DAO )

Ejemplo muy simple para contar registros de una tabla utilizando la cláusula Select Count de Sql , usando Dao para acceder a la base de datos.

Colocar en un formulario

Un Command1. Al presionar el botón llama a la Sub Contar_Registros, a la cual se le debe enviar como parámetro el nombre de la tabla y el path de la base de datos

Importante: El ejemplo utiliza DAO para acceder a la base de datos, por lo tanto incluir dicha referencia en el proyecto : "Microsoft DAO"

Código fuente en un form :

Option Explicit 'Importante: Incluir la referencia a Microsoft DAO ''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Command1_Click() 'Llama al procedimiento Contar_Registro pasandole una tabla y el pathde la base de datos Call Contar_Registro("Una Tabla", App.Path & "\bd1.mdb") End Sub Private Sub Contar_Registro(tabla As String, PathBd As String) Dim base As Database, rst As Recordset On Error GoTo errSub ' Abre la base de datos con el método OpenDatabase de DAO Set base = OpenDatabase(PathBd) ' Llena el recordset con la consulta Set rst = base.OpenRecordset("SELECT COUNT (*) FROM " & tabla) ' Muestra el resultado MsgBox "La Tabla contiene " & Format$(rst.Fields(0)) & " registros.", vbInformation 'Cierra el recordset y la base de datos rst.Close base.Close Exit Sub 'Error errSub: MsgBox "Error " & Err.Number & vbCrLf & vbCrLf & Err.Description End Sub

Recursos Visual basic 6.0 - enlaces relacionados

Recursos Visual basic.NET - Enlaces relacionados

Ejecutar consulta sql usando el método ExecuteScalar del objeto Command de ADO.NET

Buscar en Recursos vb