Val_d_Homero
24 de Noviembre del 2008

Es un programa en VB6.0. Para sumar los valores de la columna "importe" en la tabla Asientos, cuando en la columna "tipoop" figura "I" `pdría hacer un diclo Do while y luego, dentro, añadirle otro ciclo For j = 1 to j = nroregistros - 1. Pero estoy intentado hacerlo con una sentencia SQL. Para ello mi plan es
1) Añado el campo "grantotal" al Recordset para guardar el resultado de la sentencia SQL. Lo hago así:
ADODC1.Recordset.Fields.Append 2grantotal", adCurrency
2) SQL = "SELECT SUM(importe) AS 'grantotal' FROM asientos WHERE tipoop = 'I'
3) Adodc1.REcordSource = Sql
4) Adodc1.Refresh
5) resultado = Adodc1.Recordset.Fields("grantotal"),Value
6) MsgBox "Gran total " & resultado
Bueno, pues en el paso 1) ya me dice: "Error 3219 en tiempo de ejecución. La operación no está permitida en este contexto."
¿Alguien me puede decir qué he hecho mal? Gracias

Val_d_Homero
24 de Noviembre del 2008

Ya veo el origen. Adodc1 está abierta. Y lo que se debe hacer es preferentemente crear un RecordSet, no abrir un RecordSet ya existente.