Visual Basic - consulta tabla ascces "MUY URGENTE"

Life is soft - evento anual de software empresarial
 
Vista:

consulta tabla ascces "MUY URGENTE"

Publicado por jlcastro (114 intervenciones) el 15/09/2002 17:42:00
tengo un formulario con un datacontrol (data2) y dos text ( text1)
(text2)
el data2 esta relacionado con una BD de ascces,97
La BD se llama ControlQuin.mdb
Tiene una tabla llamada Control
Esta tabla tiene 3 colunnas lamadas
FIJO ACTIVOS PARTICIPACIONES

S S 5
S S 3
N S 2
N S 1
S N 2
N N 1

El text1 tiene que mostrar la suma de participaciones
FIJOS = S Y ACTIVOS = S ( = 8)
El text2 tiene que mostrar la suma de participaciones restantes (=6)
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:consulta tabla ascces

Publicado por Victoria (9 intervenciones) el 15/09/2002 20:24:19
Hola
Haz una consulta en Access cuyo SQL sea:
SELECT [fijo] & [activos] AS tipo, Sum(tbControl.participaciones) AS total
FROM tbControl
GROUP BY [fijo] & [activos];
Haz que tu Data tenga como origen de los datos esta consulta
Si pones en tu form, para probar, un boton, pon este código:
Private Sub Command1_Click()
Dim i
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
For i = 0 To Data1.Recordset.RecordCount - 1
If Data1.Recordset!tipo = "SS" Then
Text1.Text = Val(Text1.Text) + Data1.Recordset!total
Else
Text2.Text = Val(Text2.Text) + Data1.Recordset!total
End If
Data1.Recordset.MoveNext
Next
End Sub
Así obtienes el resultado que has preguntado
Victoria
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