Sugerencias?...

[_cero_]

Perdón que me meta pero el error es “Illegal use of floating point”?

Si es así se debe a que tratas de combinar tipos doublé con una cadena de texto, pon ...'"+String(ID1)+"'… y esto aslo con todas las variables tipo float, int o doublé que mescles con cadenas.

Por otro lado porque no usas parámetros en las consultas no es el modo más simple pero es el modo más efectivo de garantizar que los datos que introduzcas son del tipo que quieres y que el codigo se vea ordenado, por ejemplo.

    ad->Close();

    ad->CommandText=
        "UPDATE"
        "  Tabla1"
        " SET"
        "  campo1 = :campo1,"//los parametros se indican con ":" antes del nombre del parametro
        "  campo2 = :campo2"
    ;

    ad->Parameters->ParamByName("campo1")->Value=6; //al darle 6 como valor el ADODataSet da por echo que se trata de un entero.
    ad->Parameters->ParamByName("campo2")->Value=6.2;

    ad->Open();

[Bare]

Empezado por _cero_

Por otro lado porque no usas parámetros en las consultas no es el modo más simple pero es el modo más efectivo de garantizar que los datos que introduzcas son del tipo que quieres y que el codigo se vea ordenado, por ejemplo.

    ad->Close();

    ad->CommandText=
        "UPDATE"
        "  Tabla1"
        " SET"
        "  campo1 = :campo1,"//los parametros se indican con ":" antes del nombre del parametro
        "  campo2 = :campo2"
    ;

    ad->Parameters->ParamByName("campo1")->Value=6; //al darle 6 como valor el ADODataSet da por echo que se trata de un entero.
    ad->Parameters->ParamByName("campo2")->Value=6.2;//tambien le //intente con 6,2 y fue lo mismo.

    ad->Open();

que tal cero, lo intente con lo de los parametros y me marco un error, me decia que el campo "ID_Con" no existia, no se si este mal el codigo, porque ese campo si existe en mi base de datos..

 ADODataSet2->CommandText = "  UPDATE DiabetesMellitus_AnualMunicipios  SET ID_Con = :ID1, P_Control = '"+String(P1)+"',ID_Informacion = '"+String(ID2)+"',P_Informacion = '"+String(P2)+"', ID_Promocion1 = '"+String(ID3)+"', P_Promocion ='"+String(P3)+"', ID_Promocion2 = '"+String(ID4)+"',ID_General = '"+String(IDG)+"'  where Año = '"+parametro+"' AND Localidad = '"+parametro3+"'SELECT * FROM DiabetesMellitus_AnualMunicipios";

ADODataSet2->Parameters->ParamByName("ID_Con")->Value=6.2; 

       ADODataSet2->Open();//Aca abres la vista....

que estara mal?

Saludos