|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - el bare
1
« en: Viernes 11 de Junio de 2010, 03:36 »
2
« 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
3
« en: Miércoles 9 de Junio de 2010, 00:24 »
Que tal,aqui esta el codigo: Tabla->Open(); Tabla->Insert(); AnsiString parametro1,parametro2,parametro3; parametro1=ComboBox1->Text; //ANIO parametro2=ComboBox2->Text; //LOCALIDAD parametro3=ComboBox3->Text; //EVALUACION //LE MODIFIQUE AQUI, ANTES ESTABA ASI //ADODataSet7->CommandText = "select count(*) cuantos from Tabla_Prueba where [Año] = " + parametro1 + " AND Localidad = '" + parametro2 + "' AND //Evaluacion = " + parametro3; ADODataSet7->CommandText = "select count(*) cuantos from Tabla_Prueba where [Año] = '"+parametro1+"' AND Localidad = '"+parametro2+"' AND Evaluacion = '"+parametro3+"' "; ADODataSet7->Active = true; if( ADODataSet7->FieldByName("cuantos")->AsInteger == 0 ) { //-------------------------------------------------- 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); }//FIN IF else { ShowMessage("REGISTRO EXISTENTE"); } //FIN ELSE
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.
4
« en: Martes 8 de Junio de 2010, 02:07 »
Que tal, me sigue marcando error, ahora es este: 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... Que pueder estar mal??..
5
« 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.. aqui te dejo una imagen y el codigo: Codigo: Tabla->Open(); Tabla->Insert(); AnsiString parametro1,parametro2,parametro3; parametro1=ComboBox1->Text; //ANIO parametro2=ComboBox2->Text; //LOCALIDAD parametro3=ComboBox3->Text; //TRIMESTRE ADODataSet7->CommandText = "select count(*) cuantos from Tabla_Prueba where [Año] = " + parametro1 + " Localidad = '" + parametro2 + "' Evaluacion = " + parametro3; ADODataSet7->Active = true; if( ADODataSet7->FieldByName("cuantos")->AsInteger == 0 ) { //-------------------------------------------------- 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); }//FIN IF else { ShowMessage("REGISTRO EXISTENTE"); } //FIN ELSE }
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...
6
« 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.
7
« 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: AnsiString parametro1,parametro2,parametro3; parametro1=ComboBox1->Text; //ANIO parametro2=ComboBox2->Text; //LOCALIDAD parametro3=ComboBox3->Text; //TRIMESTRE ADOQuery1->SQL->Text = "SELECT * FROM Tabla_Prueba WHERE Año = "+parametro1+",Localidad = "+parametro2+" AND Evaluacion = "+parametro3+" "; if(ADOQuery1==TRUE){ ShowMessage("DATOS YA EXISTENTES"); }
Pero no funciona, no se como hacer para saber si el ADOQuery encuentra los datos, alguna sugerencia de como hacer la comparacion? Saludos
8
« en: Miércoles 17 de Marzo de 2010, 05:54 »
que tal amigo, pon el codigo que te marca error para darnos una idea mas amplia.... y ver si hay algun error... Saludos...
9
« en: Domingo 7 de Marzo de 2010, 23:08 »
Hola, les comento que estoy algo desesperado por no poder realizar una consulta... estoy trabajando con c builder y sql server como gestor, pero me he topado con problemas usando la sentencia update....:'(:'(:'( cuando quiero actualizar los datos, me marca este error: la verdad que no se porque me lo marca, el parametro esta definido, la actualizacion tambien la intente manejando strings AnsiString parametro,parametro2,parametro3; double ID1,P1,ID2,P2,ID3,P3,ID4,IDG; ID1 = DBEdit3->Text.ToDouble(); //LOCALIDAD P1 = DBEdit4->Text.ToDouble(); //TRIMESTRE ID2 = DBEdit7->Text.ToDouble(); //LOCALIDAD P2 = DBEdit8->Text.ToDouble(); //ANO ID3 = DBEdit11->Text.ToDouble();//LOCALIDAD P3 = DBEdit15->Text.ToDouble(); //ANUAL ID4 = DBEdit14->Text.ToDouble(); //CASOS IDG = DBEdit16->Text.ToDouble(); ADOQuery1->SQL->Text= "UPDATE" " DiabetesMellitus_AnualMunicipios" " SET" " ID_Control = :ID1" //tambien se puede pero lo veo mas confuso y/o desordenado " P_Control = :P1," " ID_Informacion = :ID2," " P_Informacion = :P2," " ID_Promocion1 = :ID3," " P_Promocion = :P3," " ID_Promocion2 = :ID4," " ID_General = :IDG" " WHERE" " Año = :parametro" " Localidad = :parametro3" "' SELECT * FROM DiabetesMellitus_AnualMunicipios" ; ADOQuery1->Parameters->ParamByName("ID1")->Value=ID1; ADOQuery1->Parameters->ParamByName("P1")->Value=P1; ADOQuery1->Parameters->ParamByName("ID2")->Value=ID2; ADOQuery1->Parameters->ParamByName("P2")->Value=P2; ADOQuery1->Parameters->ParamByName("ID3")->Value=ID3; ADOQuery1->Parameters->ParamByName("P3")->Value=P3; ADOQuery1->Parameters->ParamByName("ID4")->Value=ID4; ADOQuery1->Parameters->ParamByName("IDG")->Value=IDG; ADOQuery1->Parameters->ParamByName("parametro")->Value=parametro; ADOQuery1->Parameters->ParamByName("parametro3")->Value=parametro3;
lo habia intentado de otra manera, pero me marcaba este error: esta es la otra manera en que lo habia intentado: String parametro,parametro2,parametro3; double ID1,P1,ID2,P2,ID3,P3,ID4,IDG; ID1 = DBEdit3->Text.ToDouble(); //LOCALIDAD P1 = DBEdit4->Text.ToDouble(); //TRIMESTRE ID2 = DBEdit7->Text.ToDouble(); //LOCALIDAD P2 = DBEdit8->Text.ToDouble(); //ANO ID3 = DBEdit11->Text.ToDouble();//LOCALIDAD P3 = DBEdit15->Text.ToDouble(); //ANUAL ID4 = DBEdit14->Text.ToDouble(); //CASOS IDG = DBEdit16->Text.ToDouble(); parametro = ComboBox1->Text; //ANIO ADOQuery1->Close(); ADOQuery1->SQL->Text = "UPDATE DiabetesMellitus_AnualMunicipios SET ID_Control = '"+String(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 = '"+String(parametro3)+"'"; ADOQuery1->Open();
perdon por tanto codigo, pero ya no se que mas hacer.....:'(:'(:'(:'(:'( saludos..
10
« en: Miércoles 24 de Febrero de 2010, 23:51 »
Que tal, apenas ando viendo este foro... ya lo solucione, solo tuve que cerrar y abrir el adotable: ADOTable->Close(); ADOTable->Open();
con esto se soluciono mi problema.... estoy trabajando con sql server 2005... Te agradezo tu interes amigo,.. saludos....
11
« en: Viernes 19 de Febrero de 2010, 23:41 »
Hola, me pregunto si se pueden actualizar los datos que ingreso en una base de datos para q se muestren en un DBGrid. No se si me di a entender, tengo el dbgrid que me muestra datos, pero al insertarle nuevos, no me los muestra, eso es lo que quiero, que me muestre los que recien inserte. le intente con el refresh que viene con el dbnavigator, pero me marcaba un error de columnas clave.... Se puede?? Saludos..
12
« en: Jueves 18 de Febrero de 2010, 02:24 »
ya lo solucione....de esta manera.. INSERT INTO Tabla(Casos_sospechosos_colera_est,casos_diarrea_notif_SUIVE,casos_sospechosos_coleratrat,Total_casos_colera,cepas_positivasvibrio,Total_muestrasproc,Deter_cloro,Total_detercloro,Año,Localidad,Evaluacion) SELECT SUM(Casos_sospechosos_colera_est),SUM(casos_diarrea_notif_SUIVE),SUM(casos_sospechosos_coleratrat),SUM(Total_casos_colera),SUM(cepas_positivasvibrio),SUM(Total_muestrasproc),SUM(Deter_cloro),SUM(Total_detercloro),'"+par1+"','"+par2+"','"+par3+"' FROM Tabla_Prueba WHERE Año = '"+parametro+"' AND Localidad = '"+parametro3+" 'SELECT * FROM Tabla
Saludos
13
« en: Miércoles 17 de Febrero de 2010, 08:58 »
Hola a todos, estoy trabajando con una aplicacion en builder, con una base de datos en sql server, y me tope con un problema que no he podido resolver, espero me puedan orientar...me explico.. como ven en la imagen, necesito sacar las sumas de cada columna, en año, que sea el mismo de los 4 trimestres (en este caso 2009), y que en trimestre diga "Anual", esto lo necesito insertar en otra tabla.. La consulta ya la hice en su mayoria, ya saco las sumas de las columnas y las inserto en otra tabla, el problema es que no se como insertar los otros datos (año,trimestre y localidad) en la misma fila en donde inserto las sumas... Aqui la consulta: INSERT INTO Tabla(Casos_sospechosos_colera_est,casos_diarrea_notif_SUIVE,casos_sospechosos_coleratrat,Total_casos_colera,cepas_positivasvibrio,Total_muestrasproc,Deter_cloro,Total_detercloro) SELECT SUM(Casos_sospechosos_colera_est),SUM(casos_diarrea_notif_SUIVE),SUM(casos_sospechosos_coleratrat),SUM(Total_casos_colera),SUM(cepas_positivasvibrio),SUM(Total_muestrasproc),SUM(Deter_cloro),SUM(Total_detercloro)' FROM Tabla_Prueba where Año = '"+parametro+"' AND Localidad = '"+parametro3+"' SELECT * FROM Tabla //PARAMETRO SON UNOS COMBOBOX CON LOS CUALES HAGO LA CONSULTA.
Me pregunto si se puede hacer esto...la verdad que he buscado sentencias de sql y nada.. En otro foro me sugirieron que usara un default, pero no lo pude implementar a esta consulta, no supe como... Cualquier sugerencia es bienvenida.. y de antemano agradezco su atencion.. Saludos...
14
« en: Viernes 12 de Febrero de 2010, 05:53 »
Hola Amigos foreros, alguien me podria dar un ejemplo de como usar el formatfloat y aplicarlo a un edit?? Lo que pasa es que hago unas operaciones con los edit y al momento de darme el resultado me muestra como 12 decimales, y me gustaria reducirlos a 4...
Me podrian ayudar??
Saludos..
15
« en: Miércoles 3 de Febrero de 2010, 03:24 »
Que tal Anima, no te preocupes por el codigo .... lo que sea es bueno... corri el ejecutable y nada, igual con la excepcion.... Le deshabilite las excepciones y salio peor... , no pude correr el programa porque me marcaba error en el try, como es manejo de excepciones y no estaban habilitadas...jejeje, en fin.. Seguire buscando como hacer eso, necesito implementarlo en el programa... . En fin,Te agradezco tu ayuda Anima.... Gracias Por todo... Saludos...
16
« en: Martes 2 de Febrero de 2010, 00:16 »
Que tal Anima..., lo implemente y no funciono, no me marcaba errores, pero al ejecutarlo me marcaba este error: Por cierto, "Tablas" que componente viene siendo?, en mi caso tengo un ADOTable llamado Tabla, tuve que quitarle el TCCAM, porque me marcaba el error que decia que TCCAM no era parte de ADOTable, lo intente con una tabla normal,de la pestaña BDE y lo mismo.... Que podra ser??.... Saludos...
17
« en: Lunes 1 de Febrero de 2010, 09:07 »
Hola señores, de nuevo yo, ahora con esta duda. Es posible importar el contenido de un DBGrid a un documento de excel?? Ya he importado datos asi utilizando los componentes OLE, pero jamas de un DBGrid, intente hacerlo asi: Hoja.OlePropertyGet("Cells").OlePropertyGet("Item",30,30).OlePropertySet("Value",DBGrid2->Columns);
Pero me escribio un TRUE.... He buscado en google y me encontre con algunos codigos, pero solo eran para delphi y visual, y no supe aplicar la idea de delphi al builder... Incluso en este foro encontre codigo, pero al igual no supe implementarlo... Cualquier Sugerencia es Bienvenida... Saludos...
18
« en: Viernes 29 de Enero de 2010, 01:11 »
ajajajajajaja,como no se me ocurrio anima... ..jajaja. Orale, entonces equivale a !=.... Y tambien se puede usar el != en SQL...que bien... Bueno... Muchas Gracias Anima....Tanori,jejejeje,ahi ta completo.jejejejej. Saludos Señores!!!...
19
« en: Jueves 28 de Enero de 2010, 05:46 »
Que tal señores, antes que nada una disculpa por contestar hasta ahorita, tuve un pequeño problema con un malware q me dio mucha lata, pero ya lo quite del sistema... Ahora si ya se me quitaron las dudas, no conocia el AVG, me va a ayudar bastante.... y lo de la division entre 3, yo pense que era dividir entre el numero de registros q hubiera, pero no,... siendo asi, tambien me va a ser util...... Solo me resta decirles... Muchisimas Gracias...Anima, Tano, me han ayudado bastante..Solo resta ponerme a chambear, y en serio.... Solamente me queda una duda, que significa el "<>"???..
20
« en: Martes 26 de Enero de 2010, 23:38 »
Que tal Tano, jejeje, asi es, las colmnas estan mal subrayadas, deberia ser de manera vertical... Cuando dices Avg(Nombre_Columna)...que es el Avg??..Algun Alias??..no se mucho sobre SQL, pero creo que el AS era utilizado para apodar o dar alias a una columna....aaaaa, y que significa "<>"?? y otra pregunta, cuando se hace esta consulta... SELECT (Total_Consultas + Total_Medicamentos + Total_Horas) / 3 AS 'Promedio' FROM tabla WHERE Trimestre <> 'Promedio anual'
Como se van a sumar las columnas?...se suma primero cada columna, y luego los totales de la suma de cada columna se suman y se divide entre 3??...o se suma como esta subrayado en la imagen?? Por cierto, ahorita estoy probando algunas consultas, me llamo la atencion lo de SUM, la hice y me sumo lo q habia en la columna, pero mi pregunta es..que va a pasar cuando se agreguen mas registros a la tabla?....hay alguna consulta para obtener el numero de registros que hay en la tabla?..asi para dividirla entre ese numero y no uno fijo... Saludos....
21
« en: Martes 26 de Enero de 2010, 00:06 »
Que tal Anima.. ya probe lo de SUM,... ..funciona bien, la verdad es q no habia usado esa funcion de sql.. oye, una pregunta..existe algun tipo de dato en sql que te permita agregar caracteres, pero a la vez poder usar el SUM???....porque los tenia con nvarchar y tuve q cambiarlo a float para hacer la operacion. Saludos....
22
« en: Lunes 25 de Enero de 2010, 04:04 »
Que tal, mi pregunta es la siguiente: Como puedo hacer lo que se pide en la imagen?? Lo primero que se me ocurrio fue hacerlo con edits, y que una vez que los datos estuvieran alli, se hiciera el calculo con un boton, pero no estoy seguro de que sea la opcion mas optima y eficaz..No habra alguna otra manera de hacerlo??..no se, con alguna consulta de SQL o alguna otra solucion???..Lo digo porque en la imagen es solo el promedio de 4, pero creo que despues habra que hacerlo con 22, imaginense si lo hago con los edits..... Cualquier Sugerencia es bienvenida... De antemano...Gracias por su atencion.... Saludos...
23
« en: Miércoles 30 de Diciembre de 2009, 07:27 »
Que tal Anima, fijate que ya lo descargue, precisamente de este foro.... viene muy completo.... , habra que darle una buena leida.. Bueno, solo me resta agradecerte de nuevo tu ayuda.....Gracias.... Saludos y Feliz Año.....
24
« en: Martes 29 de Diciembre de 2009, 07:16 »
25
« en: Lunes 28 de Diciembre de 2009, 00:19 »
Hola, dejame ver si entendi... cuando dices '"+parametro+"', con esos signos de "mas" concatenas la cadena??...y parametro lo definiste arriba, pero eso que viene siendo??..le puse combobox y me marco error, en mi caso el idlocalidad se encuentra en el combobox y en la tabla, pero no entiendo que hay q poner en el parametro... De antemano gracias por tu ayuda.... Saludos....
|
|
|