Evitar Datos Repetidos??

[Casimiro Noteví]

Sí, la idea es correcta

Mira este tema que ha sido tratado hoy, puede servirte.

[Bare]

Que tal amigo, ya cheque el tema y me dejo pensando sobre lo de la llave primaria, pero el problema es que para saber si el registro existe, tienen que coincidir los 3 campos (AÑO,LOCALIDAD,EVALUACION),asi que no puedo usar lo del campo llave.
Pense en quizas hacer la consulta y mostrar los datos en un DBGrid, y despues verificaar si el grid esta activo y de esta manera saber si hay datos o no, peor no se si se pueda hacer esto...

[Casimiro Noteví]

Las claves pueden ser de más de un campo, puedes hacerlo igualmente.

[Bare]

Que tal, hice los de las claves llave (yo pense que no se podia, jamas lo habia intentado) y funciono...
Pero me quedo una duda, porque si le agregas un dato y lo quieres volver a agregar te da el error de que no se puede duplicar, el problema aqui es que si le cambio algun valor en los combobox y le doy en agregar, no me deja, me sigue marcando el mismo error, y se supone que deberia dejarme, para que me deje tengo que cerrar la aplicacion y volver a abrirla.
No hay algun metodo para que no tenga que reiniciar la aplicacion?, intente con el Form->Refresh y nada....

Saludos

[Casimiro Noteví]

Evidentemente, si no vemos tu código, poco podemos hacer

[Bare]

jejejejejeje, obvio, jejejeje..
aqui esta el codigo:

Tabla->Open();
Tabla->Insert();

//--------------------------------------------------
Tabla->FieldByName("Casos_sospechosos_colera_est")->AsString = Edit1->Text;
Tabla->FieldByName("casos_diarrea_notif_SUIVE")->AsString = Edit2->Text;
Tabla->FieldByName("casos_sospechosos_coleratrat")->AsString = Edit7->Text;
Tabla->FieldByName("Total_casos_colera")->AsString = Edit8->Text;
Tabla->FieldByName("cepas_positivasvibrio")->AsString = Edit18->Text;
Tabla->FieldByName("Total_muestrasproc")->AsString = Edit19->Text;
Tabla->FieldByName("Deter_cloro")->AsString = Edit26->Text;
Tabla->FieldByName("Total_detercloro")->AsString = Edit27->Text;

//------------------------------------------------------
Tabla->FieldByName("ID_coberturadeteccion")->AsString = Edit3->Text;
Tabla->FieldByName("ID_tratoportuno")->AsString = Edit9->Text;
Tabla->FieldByName("ID_eficiencialab")->AsString = Edit20->Text;
Tabla->FieldByName("ID_cloracionagua")->AsString = Edit28->Text;
//------------------------------------------------------
Tabla->FieldByName("P_coberturadeteccion")->AsString = Edit14->Text;
Tabla->FieldByName("P_tratoportuno")->AsString = Edit15->Text;
Tabla->FieldByName("P_eficiencialab")->AsString = Edit21->Text;
Tabla->FieldByName("P_cloracionagua")->AsString = Edit29->Text;

Tabla->FieldByName("Año")->AsString = ComboBox1->Text;
Tabla->FieldByName("Localidad")->AsString = ComboBox2->Text;
Tabla->FieldByName("Evaluacion")->AsString = ComboBox3->Text;




Tabla->Post();
Application->MessageBox ("Datos Grabados en la BD","Aviso", MB_OK);

//Form1->Refresh();//---ESTO FUE LO QUE INTENTE PERO NADA..:confused:

[Casimiro Noteví]

No sé qué componentes o con qué estás trabajando, pero creo que necesitas un commit de la transaction.