SoloCodigo

Programación General => C/C++ => C++ Builder => Mensaje iniciado por: el bare en Jueves 3 de Junio de 2010, 05:52

Título: Duda con ADOQuery?
Publicado por: el bare en Jueves 3 de Junio de 2010, 05:52

Que tal amigos, me tope con un problema al ingresar datos en mi sistema, bueno, se ingresan bien, el detallle es que quiero evitar que se repitan datos en mi programa.
pense en hacer algo como esto para solucionarlo:

Código: C++

1.  
2.  
3. AnsiString parametro1,parametro2,parametro3;
4.  
5. parametro1=ComboBox1->Text; //ANIO
6. parametro2=ComboBox2->Text; //LOCALIDAD
7. parametro3=ComboBox3->Text; //TRIMESTRE
8.  
9.  
10. ADOQuery1->SQL->Text = "SELECT * FROM Tabla_Prueba WHERE Año = "+parametro1+",Localidad = "+parametro2+" AND Evaluacion = "+parametro3+" ";
11.  
12. if(ADOQuery1==TRUE){
13.  
14. ShowMessage("DATOS YA EXISTENTES");
15. }
16.  
17.  
18.  
19.  

Pero no funciona, no se como hacer para saber si el ADOQuery encuentra los datos, alguna sugerencia de como hacer la comparacion?

Saludos

Título: Re: Duda con ADOQuery?
Publicado por: softevolutions en Jueves 3 de Junio de 2010, 09:04

Usa TADODataSet en vez de TADOQuery.

Podrías dejarlo mas o menos así:

AnsiString parametro1,parametro2,parametro3;

parametro1=ComboBox1->Text; //ANIO
parametro2=ComboBox2->Text; //LOCALIDAD
parametro3=ComboBox3->Text; //TRIMESTRE

ADODataSet->CommandText = "select count(*) cuantos from tabla_prueba where [año] = " + parametro1 + " localidad = " + parametro2 + " trimestre = " + parametro3;

NOTA: recuerda que si "localidad" es de tipo texto, deberías dejar parametro 2 entre comillas simples:
ADODataSet->CommandText = "select count(*) cuantos from tabla_prueba where [año] = " + parametro1 + " localidad = '" + parametro2 + "' trimestre = " + parametro3;

ADODataSet->Active = true;

//ahora consulta el valor del campo "cuantos", ya que la consulta SIEMPRE devuelve un registro.
if( ADODataSet->FieldByName("cuantos")->AsInteger == 0 ) {
     ShowMessage("no existe");
}
else {
     ShowMessage("si existe");
}

//Cuando vayas a consultar otra sentencia que no sepas si devolverá algún registro o no, puedes comprobarlo así
if( ADODataSet->IsEmpty() ) {
     ShowMessage("no existe");
}
else {
     ShowMessage("si existe");
}

ADODataSet->Active = false;

Título: Re: Duda con ADOQuery?
Publicado por: el bare en Domingo 6 de Junio de 2010, 02:23

No se puede hacer con el query?, lo que pasa es que ya habia usado los dataset pero los quite porque se me hizo mas facil hacer las consultas con los query...
Ya hice lo que me sugeriste, pero no entiendo lo de "cuantos", eso donde lo voy a declarar o que es lo que hace?, me marca error si lo dejo en el codigo.

Título: Re: Duda con ADOQuery?
Publicado por: softevolutions en Domingo 6 de Junio de 2010, 14:47

"cuantos" dentro de la consulta SQL no es más de el nombre que le he dado al resultado de la función de agregado "count". He revisado el codigo y no tiene por que darte error. Es un literal que debe ir entre comillas, ya que hace referencia a un nombre de campo de la SQL.

FieldByName("cuantos") es una función de TADODataSet que sirve para devolver un objeto de tipo TField del campo que le hayas indicado entre comillas.

El componente TADODataSet es mucho más versatil que TADOQuery. Yo lo uso y me da muy buenos resultados.

Mi consulta anterior te daba un par de formas de como realizar lo que necesitabas. Si no es lo que buscar, por favor, se un poco más preciso y te ayudaremos en tu problema.

Título: Re: Duda con ADOQuery?
Publicado por: el bare en Lunes 7 de Junio de 2010, 04:39

Que tal, este es el error que me marca, es de sintaxis, pero no le veo nada raro.. :mellow:
aqui te dejo una imagen  y el codigo:

(http://img689.imageshack.us/img689/7828/builld.jpg)


Codigo:

Código: C++

1.  
2. Tabla->Open();
3. Tabla->Insert();
4.  
5. AnsiString parametro1,parametro2,parametro3;
6.  
7. parametro1=ComboBox1->Text; //ANIO
8. parametro2=ComboBox2->Text; //LOCALIDAD
9. parametro3=ComboBox3->Text; //TRIMESTRE
10.  
11.  
12. ADODataSet7->CommandText = "select count(*) cuantos from Tabla_Prueba where [Año] = " + parametro1 + " Localidad = '" + parametro2 + "' Evaluacion = " + parametro3;
13.  
14. ADODataSet7->Active = true;
15.  
16. if( ADODataSet7->FieldByName("cuantos")->AsInteger == 0 ) {
17.  
18.  
19.  
20. //--------------------------------------------------
21. Tabla->FieldByName("Casos_sospechosos_colera_est")->AsString = Edit1->Text;
22. Tabla->FieldByName("casos_diarrea_notif_SUIVE")->AsString = Edit2->Text;
23. Tabla->FieldByName("casos_sospechosos_coleratrat")->AsString = Edit7->Text;
24. Tabla->FieldByName("Total_casos_colera")->AsString = Edit8->Text;
25. Tabla->FieldByName("cepas_positivasvibrio")->AsString = Edit18->Text;
26. Tabla->FieldByName("Total_muestrasproc")->AsString = Edit19->Text;
27. Tabla->FieldByName("Deter_cloro")->AsString = Edit26->Text;
28. Tabla->FieldByName("Total_detercloro")->AsString = Edit27->Text;
29.  
30. //------------------------------------------------------
31. Tabla->FieldByName("ID_coberturadeteccion")->AsString = Edit3->Text;
32. Tabla->FieldByName("ID_tratoportuno")->AsString = Edit9->Text;
33. Tabla->FieldByName("ID_eficiencialab")->AsString = Edit20->Text;
34. Tabla->FieldByName("ID_cloracionagua")->AsString = Edit28->Text;
35. //------------------------------------------------------
36. Tabla->FieldByName("P_coberturadeteccion")->AsString = Edit14->Text;
37. Tabla->FieldByName("P_tratoportuno")->AsString = Edit15->Text;
38. Tabla->FieldByName("P_eficiencialab")->AsString = Edit21->Text;
39. Tabla->FieldByName("P_cloracionagua")->AsString = Edit29->Text;
40.  
41. Tabla->FieldByName("Año")->AsString = ComboBox1->Text;
42. Tabla->FieldByName("Localidad")->AsString = ComboBox2->Text;
43. Tabla->FieldByName("Evaluacion")->AsString = ComboBox3->Text;
44.  
45.  
46.  
47.  
48. Tabla->Post();
49. Application->MessageBox ("Datos Grabados en la BD","Aviso", MB_OK);
50.  
51.  
52. }//FIN IF
53. else {
54. ShowMessage("REGISTRO EXISTENTE");
55. } //FIN ELSE
56.  
57.  
58.  
59. }
60.  
61.  

Pense que quizas si le cambiaba el nombre de cuantos por uno de los campos de la abse de datos funcionaria, pero siguio con lo mismo... :o

Título: Re: Duda con ADOQuery?
Publicado por: softevolutions en Lunes 7 de Junio de 2010, 10:28

Tienes un error en la SQL que le indicas en el TADODataSet

//MAL
ADODataSet7->CommandText = "select count(*) cuantos from Tabla_Prueba where [Año] = " + parametro1 + " Localidad = '" + parametro2 + "' Evaluacion = "  + parametro3;


//BIEN
ADODataSet7->CommandText = "select count(*) cuantos from Tabla_Prueba where [Año] = " + parametro1 + " AND Localidad = '" + parametro2 + "' AND Evaluacion = "  + parametro3;
//Te faltaban los AND en la evaluación del WHERE

Título: Re: Duda con ADOQuery?
Publicado por: el bare en Martes 8 de Junio de 2010, 02:07

Que tal, me sigue marcando error, ahora es este:

(http://img94.imageshack.us/img94/3323/errorxy.jpg)

Le hice las correcciones de los AND que me sugeriste..
El campo Evaluacion antes era llamado Trimestre, pense que lo tenia asi (trimestre)en la base de datos, pero esta como evaluacion... :mellow:
Que pueder estar mal??.. :mellow:  :mellow:

Título: Re: Duda con ADOQuery?
Publicado por: softevolutions en Martes 8 de Junio de 2010, 09:05

Pon el trozo de código completo, pues así no puedo ver la palabra "Trimestre" para ver cual es el error.

Título: Re: Duda con ADOQuery?
Publicado por: el bare en Miércoles 9 de Junio de 2010, 00:24

Que tal,aqui esta el codigo:

Código: C++

1.  
2. Tabla->Open();
3. Tabla->Insert();
4.  
5. AnsiString parametro1,parametro2,parametro3;
6.  
7. parametro1=ComboBox1->Text; //ANIO
8. parametro2=ComboBox2->Text; //LOCALIDAD
9. parametro3=ComboBox3->Text; //EVALUACION
10.  
11. //LE MODIFIQUE AQUI, ANTES ESTABA ASI
12. //ADODataSet7->CommandText = "select count(*) cuantos from Tabla_Prueba where [Año] = " + parametro1 + " AND Localidad = '" + parametro2 + "' AND //Evaluacion = " + parametro3;
13.  
14. ADODataSet7->CommandText = "select count(*) cuantos from Tabla_Prueba where [Año] = '"+parametro1+"'  AND Localidad = '"+parametro2+"' AND Evaluacion = '"+parametro3+"' ";
15. ADODataSet7->Active = true;
16.  
17. if( ADODataSet7->FieldByName("cuantos")->AsInteger == 0 ) {
18.  
19.  
20.  
21. //--------------------------------------------------
22. Tabla->FieldByName("Casos_sospechosos_colera_est")->AsString = Edit1->Text;
23. Tabla->FieldByName("casos_diarrea_notif_SUIVE")->AsString = Edit2->Text;
24. Tabla->FieldByName("casos_sospechosos_coleratrat")->AsString = Edit7->Text;
25. Tabla->FieldByName("Total_casos_colera")->AsString = Edit8->Text;
26. Tabla->FieldByName("cepas_positivasvibrio")->AsString = Edit18->Text;
27. Tabla->FieldByName("Total_muestrasproc")->AsString = Edit19->Text;
28. Tabla->FieldByName("Deter_cloro")->AsString = Edit26->Text;
29. Tabla->FieldByName("Total_detercloro")->AsString = Edit27->Text;
30.  
31. //------------------------------------------------------
32. Tabla->FieldByName("ID_coberturadeteccion")->AsString = Edit3->Text;
33. Tabla->FieldByName("ID_tratoportuno")->AsString = Edit9->Text;
34. Tabla->FieldByName("ID_eficiencialab")->AsString = Edit20->Text;
35. Tabla->FieldByName("ID_cloracionagua")->AsString = Edit28->Text;
36. //------------------------------------------------------
37. Tabla->FieldByName("P_coberturadeteccion")->AsString = Edit14->Text;
38. Tabla->FieldByName("P_tratoportuno")->AsString = Edit15->Text;
39. Tabla->FieldByName("P_eficiencialab")->AsString = Edit21->Text;
40. Tabla->FieldByName("P_cloracionagua")->AsString = Edit29->Text;
41.  
42. Tabla->FieldByName("Año")->AsString = ComboBox1->Text;
43. Tabla->FieldByName("Localidad")->AsString = ComboBox2->Text;
44. Tabla->FieldByName("Evaluacion")->AsString = ComboBox3->Text;
45.  
46.  
47.  
48.  
49. Tabla->Post();
50. Application->MessageBox ("Datos Grabados en la BD","Aviso", MB_OK);
51.  
52.  
53. }//FIN IF
54. else {
55. ShowMessage("REGISTRO EXISTENTE");
56. } //FIN ELSE
57.  
58.  
59.  

Sobre la parte que le modifique, ya no medio el error, pero no funciona, sigue agregando registros aunque ya esten.
Sobre lo de trimestre no se donde puede estar el error, ya que le reemplaze todo lo que tenia trimestre por evaluacion.

Título: Re: Duda con ADOQuery?
Publicado por: softevolutions en Miércoles 9 de Junio de 2010, 11:08

para añadir un nuevo registro, te falta la sentencia

Tabla->Append();

Puego añades los valores y por ultimo

Tabla->Post();

Título: Re: Duda con ADOQuery?
Publicado por: el bare en Jueves 10 de Junio de 2010, 02:37

Los registros se añaden aunque no tenga el append, se lo puse y siguio lo mismo

Título: Re: Duda con ADOQuery?
Publicado por: softevolutions en Jueves 10 de Junio de 2010, 11:44

Disculpa pero no veo error aparente en el codigo, y tampoco vi el Insert(), por eso te comente lo del Append().

En que linea te salta el error?. cuando activas el dataset?. Hay algún apostrofe en el campo Evaluación?, en el ComboBox

Título: Re: Duda con ADOQuery?
Publicado por: el bare en Viernes 11 de Junio de 2010, 03:36

Que tal, fijate que ya resolvi el problema, lo que tuve que hacer fue declarar esos campos como claves primarias en la base de datos y asi el gestor se encarga  de que no haya duplicados.... :comp:
Perdona las molestias, y muchas gracias por tu ayuda amigo... :good:  :good:

Saludos... :hola:  :hola: