Conocer la cantidad de registros.

[carlunchos]

Sres, si con esto

data_adapter = New OleDbDataAdapter("select count(*)from centrales_ploteadas", con)

cuento los registros de un access, como seria el codigo siguiente para volcar lo contado en una variable y luego imprimirlo por pantalla?.

Saludos.

[.seb]

Utiliza el OleDbDataReader para leer el contenido.

[chcma]

data_adapter = New OleDbDataAdapter("select count(*) as Contador from centrales_ploteadas", con)

data_adapter.fill(objDataTable)

MsgBox( objDataTable.Rows[0]["contador"] )

[SuperPinwi]

Espero q te sirva esto, saludos.

Dim sel As New System.Text.StringBuilder

'Usando COUNT(*) nos devuelve el total que coincide con lo indicado en el WHERE,
sel.Append("SELECT COUNT (*) FROM centrales_ploteadas")
'Definir el comando que vamos a ejecutar
Dim cmd As New OleDb.OleDbCommand(sel.ToString, cnn)
cmd.Parameters.Add("@Nombre", OleDb.OleDbType.Char, 50)
cmd.Parameters.Add("@Clave", OleDb.OleDbType.Char, 40)
'
'Asignamos los avlores recibidos como parámetro
cmd.Parameters("@Nombre").Value = nombre
cmd.Parameters("@Clave").Value = clave
'
'Ejecutamos la consulta
'ExecuteScalar devuelve la primera columna de la primera fila, por tanto, devolverá el número
'de coincidencias halladas
Dim t As Integer = CInt(cmd.ExecuteScalar)