Pregunta sobre SQL

Dim fdl As DAO.Field

srtrsql = "SELECT Clinit from TblCliente where (TblCliente.Clinom = '" &
AutoCompletarComboBox9.Text & "')"

TBL = BDD.OpenRecordset(srtrsql)

For Each fdl In TBL.Fields

var1 = fdl.Value

TextBox15.Text = var1

Next

de esta forma toma el vlr arrojado en la consulta


Ing. Carlos A. Ocampo M.
Informatica - TEC S.A.
(092) - 2415924 - 2415949 - 2413609
visite nuestra web: www.tecbuenaventura.com

"OmarG" escribió en el mensaje
news:0b7001c4e6d6$1912d170$

tengo esto:
strSQL = "SELECT SUM(nsobres) FROM CONSULTAS " & _
"WHERE unidad = " & "'" & Unidad & "'"
RSet.Open(strSQL)

como puedo agarrar la suma en VB.NET para pasar el
recordset a una variable??

Gracias

no tendras una forma con ADO??

Hola OmarG,

Puedes asignar un nombre SUM.
Ejemplo:
Select Sum(nsobres) as SumaSobres From Consultas


Y para rescatar los datos,
DsConsulta.Tables(0).Rows(0).Item("SumaSobres")

o sin Nombre en el SUM

DsConsulta.Tables(0).Rows(0).Item(0)


Saludos,
Jhonny Vargas P.
Santiago de Chile

"OmarG" escribió en el mensaje
news:0b7001c4e6d6$1912d170$

tengo esto:
strSQL = "SELECT SUM(nsobres) FROM CONSULTAS " & _
"WHERE unidad = " & "'" & Unidad & "'"
RSet.Open(strSQL)

como puedo agarrar la suma en VB.NET para pasar el
recordset a una variable??

Gracias

"OmarG" escribió en el mensaje
news:0b7001c4e6d6$1912d170$

tengo esto:
strSQL = "SELECT SUM(nsobres) FROM CONSULTAS " & _
"WHERE unidad = " & "'" & Unidad & "'"
RSet.Open(strSQL)

como puedo agarrar la suma en VB.NET para pasar el
recordset a una variable??

Hola, Omar:

Usando sqlClient, y asumiendo que <cn> te da acceso a un objeto
sqlClient.sqlConnection que instania una BD sobre la cual deseas ejecutar la
consulta:

Dim cmd As New sqlCommand(strSQL, cn)
miValor = cmd.ExecuteScalar()
cmd.Dispose

para obtener una consulta de varias filas, o de filas con mas de una
columna, tienes el objeto sqlDataReader:

Dim cmd As New sqlCommand(strSQL, cn)
Dim rdr As sqlDataReader = cmd.ExecuteReader()
While rdr.Read
Dato1 = rdr.GetValue(0) ' 1a columna
...
DatoN = rdr.GetValue(n-1) ' enesima columna
Loop
rdr.Close
cmd.Dispose

es importante que el objeto DataReader este abierto el menor tiempo posible,
ya que mantiene activa una conexión con la BD (los objetos DataTable son una
opción independiente del proveedor y desconectada).

Las instrucciones GetValue pueden ser reemplazadas por Get<Tipo>, por
ejemplo GetSTring o GetInt64. Esto aumenta ligeramente la eficiencia, ya que
te ahorras la detección del tipo de origen que se produce cunado ejecutas
GetValue.

Salud!