Visual Basic.NET - contador de registros

   
Vista:

contador de registros

Publicado por Guadalupe (12 intervenciones) el 07/06/2016 20:33:03
hola, buen día.. tengo una consulta espero me puedan ayudar u orientar, creo me "he encerrado" en lo qu estoy haciendo y necesito de una alternativa....

quiero saber cuantos registros tengo en una tabla tomando como referencia el valor que selecciono de un combobox, es decir al elegir un valor del combo, se me devuelva el total de registros existentes en esa consulta dentro de un textbox

la aplicacion la hago en vb.net y la bd la tengo en access

gracias
Saludos
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

contador de registros

Publicado por omar (151 intervenciones) el 08/06/2016 00:14:26
utiliza count
en una consulta select segun el where
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

contador de registros

Publicado por Jorge (15 intervenciones) el 08/06/2016 17:41:33
Puedes utilizar una función llamada count

Select Count(id) as total from tabla where condicion

el valor de total te va a dar el numero total de registros que cumplen la condición que buscas
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

contador de registros

Publicado por Guadalupe (12 intervenciones) el 09/06/2016 02:38:39
buen dia, he hecho esta consulta en access y efectivamente me manda el resultado que necesito, pero al querer pasarlo a vb.net, no me sale, probe de distintas formas pero me marca error, en algunas no "hace nada"...

Gracias por los comentarios
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

contador de registros

Publicado por Jorge (15 intervenciones) el 09/06/2016 08:06:50
Puedes poner el código para ver donde está el error?
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

contador de registros

Publicado por Guadalupe (12 intervenciones) el 09/06/2016 16:33:22
hola, el código lo introduzco en un boton, y el resultado quiero que me salga en textbox pero no sale nada :(
1
2
3
4
5
Dim consulta As String
Private Sub btver_Click(sender As Object, e As EventArgs) Handles btver.Click
	consulta = "SELECT count(no_control) as total from repor1 where nombre_completo = '" & cbtutor.Text & "'"
	tb1.Text = consulta
End Sub
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

contador de registros

Publicado por Jorge (15 intervenciones) el 09/06/2016 16:51:50
Ahí lo que estás haciendo es poner una select en una cadena y moverla a un textbox

no te pone el texto de la select en el textbox?
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

contador de registros

Publicado por Jorge (15 intervenciones) el 09/06/2016 17:07:29
A ver si te puedo servir de ayuda.

Mira estas funciones

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
'ACCESOS ACCESS
Public OLECONEXION As OleDbConnection
 
Sub CONECTAR_ACCESS(ByVal ARCHIVO As String) 'conectar con access
	Dim CADENACONEXION As String
	CADENACONEXION = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & ARCHIVO
 
	OLECONEXION = New OleDbConnection(CADENACONEXION)
 
	OLECONEXION.Open()
End Sub
 
Sub DESCONECTAR_ACCESS() 'desconectar access
	OLECONEXION.Close()
End Sub
 
Sub CARGA_OLEDATASET(ByRef DS As Data.DataSet, ByVal CADENA As String) 'cargar un dataset desde access
	Dim dbDataAdapter As OleDbDataAdapter
	dbDataAdapter = New OleDbDataAdapter(CADENA, OLECONEXION)
	DS.Clear()
	dbDataAdapter.Fill(DS)
End Sub
 
Sub EJECUTA_COMANDO_OLEDB(ByVal CONEXION As OleDbConnection, COMANDO As String) 'ejecutar un comando en access
	Dim CMD As New OleDbCommand(COMANDO, OLECONEXION)
	If OLECONEXION.State = ConnectionState.Closed Then
		OLECONEXION.Open()
	End If
	CMD.ExecuteScalar()
End Sub

ahora tu código por ejemplo podría ser

1
2
3
4
5
6
7
8
CONECTAR_ACCESS("C:\Archivos de prueba\\cursos.MDB") 'conectas con el access
 
Dim DSA As New Data.DataSet 'creas una variable para recoger los datos.
 
'cargas el dataset
CARGA_OLEDATASET(DSA, "SELECT count(no_control) as total from repor1 where nombre_completo = '" & cbtutor.Text & "'")
 
tb1.text = DSA.TABLES(0).ROWS(0).ITEM("TOTAL") 'pones el valor de total en el textbox

Espero que esto te pueda ayudar.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

contador de registros

Publicado por Guadalupe (12 intervenciones) el 10/06/2016 16:03:22
Muchas gracias por tu tiempo y paciencia, adapte el código que pusiste a la aplicación, la verdad si andaba bien perdida en el como obtener el dato y pasarlo al textbox...
ahora si me manda el resultado esperado... muchas gracias.. ojala sigas ayudando :)

Saludos
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

contador de registros

Publicado por Jorge (15 intervenciones) el 13/06/2016 09:10:48
Sin problema un placer ayudar.
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

contador de registros

Publicado por Jorge (15 intervenciones) el 09/06/2016 17:11:28
Se me olvidaba al final tienes que cerrar el fichero access

DESCONECTAR_ACCESS() 'cierra el access
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