Visual Basic - Urgente!!!!Ayuda para sumar datos

Life is soft - evento anual de software empresarial
 
Vista:

Urgente!!!!Ayuda para sumar datos

Publicado por Maquita (5 intervenciones) el 02/07/2002 19:25:02
Urgente por favor!!!!!
Necesito saber como sumo campos de una tabla de Base de Datos Acces y que aparzca la suma en el formularios de Visual Basic......
Espero puedan ayudarme.....Gracias
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

RE:Urgente!!!!Ayuda para sumar datos

Publicado por Nelson Fredericksen (125 intervenciones) el 02/07/2002 21:33:42
Veamos si te sirve la siguiente ayuda....

' Calcula las ventas totales de pedidos

Set rst = dbs.OpenRecordset("SELECT Sum(ValorVentas) as [Total Suma] FROM Pedidos")

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

Una duda con MsFlexGrid?????

Publicado por POLY (5 intervenciones) el 02/07/2002 22:48:59
Hola, mi gran duda es como ensanchar las columnas de un MsFlexGrid, a partir de la propiedad FormatString, no sé que colocar para darle el ancho que deseo, gracias a la persona que pueda solucionar mi problema, 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

RE:Una duda con MsFlexGrid?????

Publicado por Nelson Fredericksen (125 intervenciones) el 03/07/2002 01:29:16
POLY o Maquita, como sea, aver si esto sirve de algo ... yo creo que sí.
'Fg2 = MSFlexGrid; Trabaja con MSFlexGrid Editable, es decir, el usuario completa directamente el Grid.

Private Sub Form_Load()
Set wsp = DBEngine.Workspaces(0)
Set base = wsp.OpenDatabase("c:\agroges\agroges.mdb", dbOpenDynaset)
fg2.Rows = 2
fg2.ColWidth(0) = 300
fg2.ColAlignment(0) = 1
' Aqui Doy el ancho de cada columna
fg2.ColWidth(1) = 350
fg2.ColWidth(2) = 2700
fg2.ColWidth(3) = 1000
' Aquí doy el Nombre o Titulo a Cada Columna
fg2.TextMatrix(0, 1) = "Reg."
fg2.TextMatrix(0, 2) = "Nombre Institución"
fg2.TextMatrix(0, 3) = "% Cotización"
fg2.TextMatrix(0, 0) = "*"
txtedit.Text = ""
completa
fg2.TextMatrix(1, 0) = "01"
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