Foros del web, para los que viven de bits

david1981 · 05-feb-2004, 06:42

hola, quiero hacer una suma de una columna desde visual basic .net a access. ALguien sabe como hacerlo, la sentencia que habia puesto es la siguiente.

oData = Conexion.calculo("SELECT Sum(Horas) FROM Trabajador WHERE Codigo = " & TextBox1.Text And "fecha = " & Consultatxt.Text)

RootK · 05-feb-2004, 14:35

Hola, al ejecutar tu consulta que es lo que te esta arrojando de error..???

Otra cosa:
Donde quieres que se arroje ese resultado..??

Toma en cuenta que para una mejor identificacion en tu consulta asignale un alias..

ejemplo..

Cita:

SELECT Sum(Horas) as Total FROM Trabajador

Saludos

Willy Fog · 06-feb-2004, 01:39

No se donde pondras el resultado y demas pero creo que viendo esa consulta daria error.
Creo que la consulta bien formulada seria esta:

oData = Conexion.calculo("SELECT Sum(Horas) FROM Trabajador WHERE Codigo = " & TextBox1.Text &" And fecha = #" & Consultatxt.Text &"#")

Un saludo

david1981 · 06-feb-2004, 03:00

el error q da es el siguiente.

Información adicional: La conversión de la cadena "SELECT Sum(Horas) as Total FROM " al tipo 'Long' no es válida.

RootK · 06-feb-2004, 17:12

Si quieres pon el demas código que tienes para echarle un vistazo... porque me llama la atencion ésto:

Cita:

oData = Conexion.calculo . . .

Porque en último de los casos

si deseas obtener el resultado y guardarlo en una variable lo puedes hacer por ejemplo así:

Cita:

Dim oConn As New System.Data.OleDb.OleDbConnection("tu cadena de conexion")
Dim cmd As New System.Data.OleDb.OleDbCommand("select sum(horas) as Total......,oConn)
Dim oData As Integer

objConn.Open()
oData = cmd.ExecuteScalar
objConn.Close()

Saludos

david1981 · 10-feb-2004, 04:31

Gracias a todos, ya me funciona, era una tonteria q no me habia dado cuenta...

05-feb-2004, 06:42	#1 (permalink)
david1981 Fecha de Ingreso: enero-2004 Mensajes: 71	Problema Visual con Access hola, quiero hacer una suma de una columna desde visual basic .net a access. ALguien sabe como hacerlo, la sentencia que habia puesto es la siguiente. oData = Conexion.calculo("SELECT Sum(Horas) FROM Trabajador WHERE Codigo = " & TextBox1.Text And "fecha = " & Consultatxt.Text) __________________ Gracias y un saludo

05-feb-2004, 14:35	#2 (permalink)
RootK Moderador Fecha de Ingreso: noviembre-2002 Ubicación: México D.F Mensajes: 7.552	Hola, al ejecutar tu consulta que es lo que te esta arrojando de error..??? Otra cosa: Donde quieres que se arroje ese resultado..?? Toma en cuenta que para una mejor identificacion en tu consulta asignale un alias.. ejemplo.. Cita: SELECT Sum(Horas) as Total FROM Trabajador Saludos __________________ Nadie roba nada ya que en la vida todo se paga . . .

06-feb-2004, 03:00	#4 (permalink)
david1981 Fecha de Ingreso: enero-2004 Mensajes: 71	el error q da es el siguiente. Información adicional: La conversión de la cadena "SELECT Sum(Horas) as Total FROM " al tipo 'Long' no es válida. __________________ Gracias y un saludo

10-feb-2004, 04:31	#6 (permalink)
david1981 Fecha de Ingreso: enero-2004 Mensajes: 71	Gracias a todos, ya me funciona, era una tonteria q no me habia dado cuenta... __________________ Gracias y un saludo

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado

06-feb-2004, 01:39	#3 (permalink)
Willy Fog Fecha de Ingreso: julio-2003 Mensajes: 102	No se donde pondras el resultado y demas pero creo que viendo esa consulta daria error. Creo que la consulta bien formulada seria esta: oData = Conexion.calculo("SELECT Sum(Horas) FROM Trabajador WHERE Codigo = " & TextBox1.Text &" And fecha = #" & Consultatxt.Text &"#") Un saludo

06-feb-2004, 17:12	#5 (permalink)
RootK Moderador Fecha de Ingreso: noviembre-2002 Ubicación: México D.F Mensajes: 7.552	Si quieres pon el demas código que tienes para echarle un vistazo... porque me llama la atencion ésto: Cita: oData = Conexion.calculo . . . Porque en último de los casos si deseas obtener el resultado y guardarlo en una variable lo puedes hacer por ejemplo así: Cita: Dim oConn As New System.Data.OleDb.OleDbConnection("tu cadena de conexion") Dim cmd As New System.Data.OleDb.OleDbCommand("select sum(horas) as Total......,oConn) Dim oData As Integer objConn.Open() oData = cmd.ExecuteScalar objConn.Close() Saludos