Duda muy simple.

[darkborrego]

Hola,

estoy haciendo un pequeño programa para ir aprendiendo en esto de Delphi y tengo un problemilla.

Estoy manejando una base de datos Access en la que manejo asignaturas de la universidad. Necesito recorrer toda la base de datos y si en la columna "tipo" pone "troncal" restar el valor que haya en la columna "créditos" a otra variable que tengo en otra tabla.

La estructura que estoy haciendo es la siguiente:

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i:=0 to (necesito poner final de columna) do
begin
necesito poner
si columna_tipo:="TRONCAL" then
label6.caption:=label6.caption-columna_creditos;
end;
end;

Gracias!!

[[Caral]]

Hola
No entiendo.
Para mi esto es un while not eof y colocar el dato en lagun lado, segun vallan apareciendo los datos que concuerden.
Tampoco entieno la forma en que quieres sumar label´s.
Saludos

[Neftali [Germán.Estévez]]

Hola.
Lo primero hablemos con propiedad, sino no nos vamos a entender...

Empezado por darkborrego

Necesito recorrer toda la base de datos y si en la columna "tipo" pone "troncal" restar el valor que haya en la columna "créditos" a otra variable que tengo en otra tabla.

Supongo que será toda la tabla.

Empezado por darkborrego

for i:=0 to (necesito poner final de columna) do begin

Espero que será el final de la tabla.

Prueba con algo así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  vcreaditos:integer;    // donde almacenaremos los creditos de cada asignatura
begin
   While (not tAsignatura.eof) do begin
      // acceder a los créditos
      vcreditos := tAsignatura.FieldByName('creditos').AsString;

      ...


      // siguiente registro
      tAsignatura.Next; 
                   end;
end;

Mención especial merece esta línea:

Código Delphi [-]
label6.caption:=label6.caption-columna_creditos;

label6.Caption ==> es una String
columna_creditos (o en el ejemplo de arriba vCreditos) ==> Es un entero

"No podemos SUMAR peras con MANZANAS porque la liamos".

Código Delphi [-]
// primeros convertimos el String a entero para poder sumar
i := vCreditos + StrToInt(Label6.Caption);
// el resultado lo volvemos a convertir a string para ponerlo en el Label
Label6.Caption := IntToStr(i);

[[AzidRain]]

A estas alturas el cementerio de gatitos ha de estar a reventar...

[Faust]

Empezado por AzidRain

A estas alturas el cementerio de gatitos ha de estar a reventar...

je je je si eso de los gatitos es válido para cuando usas access para accesar SQLServer, entonces esta mañana llevé al cabo toda una masacre de gatitos

[[AzidRain]]

Malvado Faust...el matagatitos..jajaja

Ya en serio, ¿Por qué tanta gente sigue usando Access como "base de datos" cuando ni siquiera es gratis, ya no digamos libre. ¿No sería más sencillo bajarse FB, MySQL o hasta SQL Lite y con el empezar?

[Faust]

Empezado por AzidRain

Malvado Faust...el matagatitos..jajaja

Ya en serio, ¿Por qué tanta gente sigue usando Access como "base de datos" cuando ni siquiera es gratis, ya no digamos libre. ¿No sería más sencillo bajarse FB, MySQL o hasta SQL Lite y con el empezar?

Bueno, en mi caso lo uso porque me es muy útil vinculando las tablas de un servidor SQLServer y me muevo bien en access, al ejecutar una consulta o algo me es muy fácil exportarla a Excel, o a texto, o a casi todo lo que sea.

Lo he usado en conjunto con Delphi porque al utilizar ADO puedo llevar fácilmente mi programa sin necesidad de instalar nada a otros equipos, casi todas las pc tienen office con access y sino instalo el MDAC, aunque últimamente no lo he necesitado.

Saludos.

PD Acabo de ejecutar tres gatitos más

Ahhh lo olvido... ahora que lo mencionas ¿cómo empiezo con SQLite? que tengo que bajar... con que componentes lo uso en Delphi... como lo instalo si requiero distribuir una aplicación... etc, etc

[Neftali [Germán.Estévez]]

Empezado por AzidRain

¿Por qué tanta gente sigue usando Access como "base de datos" cuando ni siquiera es gratis, ya no digamos libre.

Seguimos con la confusión.
Access es una aplicación, no una Base de Datos.

Jet4 es el motor de Base de Datos de Microsoft que usa ficheros MDB. Se puede usar y distribuir libremente sin necesidad de pagar.
Access es un Administrador de Bases de Datos de Microsoft, de pago, para manejar Bases de Datos Access, pero no es el único y no es necesario usarlo si uno no quiere "matar gatitos".

Empezado por AzidRain

¿No sería más sencillo bajarse FB, MySQL o hasta SQL Lite y con el empezar?

Realmente no es más sencillo ni más práctico en todos los casos.
Cada cosa para lo suyo. Access es una Base de Datos de escritorio y las que tú comentas son SGBD's.

(1) Si el desarrollador ya tiene Access (bastante habitual en usuarios Windows), trabajar con una Base de Datos MDB no requiere instalar nada.

Para los SGBD's (los que comentas y el resto) el usuario debe instalar un Servidor, tanto en desarrollo como en el cliente y además alguna herramientas de Administración de la Base de Datos (en la máquina de desarrollo).
En el caso de FB embebded, igualmente debes instalar, herramientas de Administración (como mínimo) y lo más probable que el Servidor en la máquina de desarrollo.

Por lo tanto, visto objetívamente, no es igual de fácil. Otra cosa es que uno quiera aprender y usar otros motores.

(2) Si el desarrollador no tiene Access instalado, estás en el mismo caso.

Pero sigo pensando que hay Bases de Datos de escritorio y SGBD's y cada cosa a lo suyo.

LLegados a este punto, ya se que alguno va a decir que soy un defensor de MS o de Access. No van por ahí los tiros, pero tampoco entiendo el porqué negarse a usar "algo" sin dar razones de porqué.

Los MDB (que no Access) y el motor Jet4 (que no Access) funcionan muy bien con ADO. Bastante mejor que utilizar Paradox+BDE en cuanto a eficiencia, rapidez y características. Siempre que se usen de forma adecuada y para lo que son (una Base de Datos de escritorio).

¿Que Jet4 y MDB no es libre? Cierto, pero que yo sepa Paradox nunca ha sido "Libre" y lo hemos utilizado durante muchos años en nuestras aplicaciones.

Podemos discutir, si queréis, sobre FB, MySQL, Access, Paradox, DBase,... la eficiencia, las características, las posibilidades, siempre y cuando se den razones.

Añadir que entre las aplicaciones que he programado he usado SQl Server, Oracle, IB, FB, MySQL (poco), Paradox, DBase y he "matado bastantes gatitos" y creo que todas tienen cabida, cada cual para lo suyo.