SoloCodigo

Hola F_Tanori

bueno, no sé si entendí bien, posiblemente no porque de haberlo entendido con el post de link, bueno creo que no hablamos de lo mismo o esa forma del post no es la idea que tenía en mente  

¿o a qué te refieres?

bueno a algo asi como esto de aqui abajo  

Rs.Edit
Rs("Campo")=Text
Rs.Update

Yo creo que como que tendré que dejarlo con el borrar y volver a agregar el registro, desde el punto de vista del usuario o de ejecución parece transparente el proceso.

Hola Daggoth

Daggoth claro que todos tus programas siempre funcionaran en tu PC e incluso en la de tu amigo porque tienen el lenguaje instalado, recuerda que al instalar el VS éste pondra en el system32 de tu windows un sin fin de DLLs y OCXs que cualquier programa que hagas (dependiendo del control usado en tus ventanas y demas etc) llamara, buscara esos archivos que necesita para "dibujar" el objeto en la ventana y "ejecutar" todos sus eventos y demas procedimientos gracias a esas DLL y/ó OCX.

Tienes que empaquetar bien tu programa (el instalador) usa el Asistente de Empaquetado y Distribucion del Visual Studio, pero esté empaquetador del VS es algo inestable, te lo digo por experiencia, es mejor usar otros como Setup Factory o el Inno Setup, yo uso este ultimo, hago el instalador a pie, pero esto hace que alguna falla en el instalador sea casí nula.

Yo uso el Empaquetador del VS solo para saber las dependencias del programa, es decir, qué DLLs y OCX necesita el programa para funcionar, no es solo hacer el ejecutable el cual debe hacerse tambien.  Luego de saber qué archivos necesita y depende el programa para funcionar, los busco y los meto en una subcarpeta del programa, la mayoria van a la carpeta de sistema del windows.  La DLL de DAO o ADO deben registrarse en el registro de windows ya que aunque esten colocadas, no funcionaran.

Y tambien (en mi caso) uso el Virtual PC de Microsoft donde tengo instalado en una PC virtual un Windows Virgen, donde pruebo el instalador hecho y evaluar si en el proceso de instalación se produce algun error, o si luego de la instalación, evaluar si en la ejecución del programa y sus tareas se llega a producir algun error, esto abarca tanto avisos de error, como el que se llame a un procedimiento o ejecución de algo que al hacerlo, no se active, como por ejemplo, llamar a un reporte o alguna consulta de datos y ver que no sucede nada, casi siempre todo esto es debido a la falta de algun archivo que el programa necesita para saber lo que se le está pidiendo hacer, lo cual es tu caso y es el pan de cada día en todo esto.

En resumen es eso, tu programa al cargarse a memoria busca en la carpeta de sistema (del sistema) los archivos que necesita para funcionar, y al no conseguirlos produce sus respectivas fallas, en tu equipo esto nunca sucedera porque el Visual Studio colocó en tu PC todo el montoneron de librerias que coloca para funcionar y para que funcione todo control y referencias con e o lasl que desees trabajar.

 

Bueno, probando con la misma SQL y tambien con alguna otra ideao que a uno le viene a la mente, y viene cuando quiere y el día que quiera, pues, en vez de la SQL, pues con código nativo propio del VB colocando las condiciones del WHERE de la SQL en un IF quedando entonces o reemplazando la SQL por esto:


En todo caso, si alguien sabe como resolver problemas de SQL como las expuestas, por favor, aviseme  

 

Feliz Año Nuevo para toda la comunidad, que todos sus deseos, proyecciones o planes para este nuevo año se cumplan sin contratiempo alguno.

Disuclpas por este post, ya que si debe de haber temas de esto en el foro, pero no sé, tal vez el buscador no permite string SQLs ya que SQL Delete From es lo que puse en el buscar para ver post con eso, pero el buscador me produce error, incluso buscando luego con SQL borrar base de datos, no sé si le esten haciando algun mantenimiento a la web, aviso:

Disculpa, ocurrió un error. Si no estás seguro de cómo utilizar alguna característica, o no sabes por qué has obtenido este mensaje de error, prueba a mirar en los archivos de ayuda para más información.

El error devuelto fue:

Disculpa, pero no se ha encontrado coincidencia alguna

Tengo en una ventanita llamada Configuración, relacionada a un programita, una sección que es de hacer respaldo de la BD y borra sus tablas luego de ello. Guardar un backup y comenzar con la BD en blanco, un screenshot a mostrar de esa ventanita:



Pero las SQLs para borrar las tablas me estan dando error y no sé bien a qué es debido ya que al menos viendo esta web, pareciese servir como lo he puesto, pero no es así.

Bueno este es el código, yo lo veo bien, pero funciona mal  


Si tenían Alias las tablas FROM Tabla As A, TB_CONFIG As B y todo era WHERE A.Campo = B.Campo AND A.Fecha < variable
Pero aun sabiendo que sería igual o lo mismo, quise ver si tal vez los Alias daban algun problema por lo que los quite, pero claro que con tablas con nombres largos, habian Alias que volvere a poner.

Alguna observación sobre esto a comentar ¿?  

uhmmm entonces como que mejor le pongo al programa de esta bd algo en donde periodicamente se compacte la bd para que el usuario lo haga o que automáticamente lo haga el programa cada cierto tiempo, y tambien el que se puedan borrar archivos muuuuy viejos ya existentes, pero de esto ultimo no estoy muy seguro, no sea que siempre se necesiten todos los archivos sin importar su antiguo ingreso, algo asi como un historial, tal vez copiando la bd en un backup y luego borron y cuenta nueva

ya lo solucione,    siempre se sabe que en esto hay que esperar que la materia gris le de la inspiracion cuando quiere y no cuando uno quiere, y bien sencillito que fue, no sé si drastico pero si funciona, pos pa mi esta bien.

Pues la SQL con el problema, la cual es esta:

SELECT A.Asunto AS ASUNTO, COUNT(A.Asunto) AS N_DE_REGISTROS, SUM(A.Cant) AS CANT

FROM DISTMASIVA_GESTCALIDAD_DETALLE AS A, TB_REPORTE AS REP

WHERE A.CodRegion = REP.CodRegion
And      A.IDSucursal = REP.IDSucursal
And     (A.Asunto="Sobres Entregados"
Or A.Asunto="Sobres Devueltos"
Or A.Asunto="Entregas Verificadas"
Or A.Asunto="Entregas Realizadas Correctamente"
Or A.Asunto="Mala Atencion - Queja del Cliente"
Or A.Asunto="No Identifico al Destinatario"
Or A.Asunto="Entrego Sobre Abierto y sin Cubierta Plastica"
Or A.Asunto="Acuse de Recibido llenado por el Distribuidor"
Or A.Asunto="Devoluciones Verificadas"
Or A.Asunto="A"
Or A.Asunto="B"
Or A.Asunto="C"
Or A.Asunto="D"
Or A.Asunto="E"
Or A.Asunto="F")
And A.TipoGestion=2
And A.Fecha>=REP.Fecha1 And A.Fecha<=REP.Fecha2

GROUP BY A.Asunto;

Sencillamente la divide en dos SQLs

La primera:

SELECT A.Asunto AS ASUNTO, COUNT(A.Asunto) AS N_DE_REGISTROS, SUM(A.Cant) AS CANT

FROM DISTMASIVA_GESTCALIDAD_DETALLE AS A, TB_REPORTE AS REP

WHERE A.CodRegion = REP.CodRegion
And      A.IDSucursal = REP.IDSucursal
And     (A.Asunto="Sobres Entregados"
Or A.Asunto="Sobres Devueltos"
Or A.Asunto="Entregas Verificadas"
Or A.Asunto="Entregas Realizadas Correctamente"
Or A.Asunto="Mala Atencion - Queja del Cliente"
Or A.Asunto="No Identifico al Destinatario"
Or A.Asunto="Entrego Sobre Abierto y sin Cubierta Plastica"
Or A.Asunto="Acuse de Recibido llenado por el Distribuidor"
Or A.Asunto="Devoluciones Verificadas")
And A.TipoGestion=2
And A.Fecha>=REP.Fecha1 And A.Fecha<=REP.Fecha2

GROUP BY A.Asunto;

Y la segunda:

SELECT A.Asunto AS ASUNTO, COUNT(A.Asunto) AS N_DE_REGISTROS, SUM(A.Cant) AS CANT

FROM DISTMASIVA_GESTCALIDAD_DETALLE AS A, TB_REPORTE AS REP

WHERE A.CodRegion = REP.CodRegion
And      A.IDSucursal = REP.IDSucursal
And     (A.Asunto="A"
Or A.Asunto="B"
Or A.Asunto="C"
Or A.Asunto="D"
Or A.Asunto="E"
Or A.Asunto="F")
And A.TipoGestion=2
And A.Fecha>=REP.Fecha1 And A.Fecha<=REP.Fecha2

GROUP BY A.Asunto;

Estas son para unos reportes, pero imaginense, los reportes quedaban así: (notar la parte o sección que dice Auditoria de Calidad)
http://img299.imageshack.us/img299/9392/re...stcalidavi0.jpg

Ahora quedan asi: (notar la parte o sección que dice Auditoria de Calidad)
http://img292.imageshack.us/img292/9449/re...stcalidagy2.jpg

mejor tarde que nunca verdad  

 

porque el ingreso de estos datos los trabaje por Matriz en VB porque eran muchos datos y no queria hacer tantos campos de tabla como Asunto o Motivo, asi que en un Campo llamado "Asunto" meto el Label(i).Caption y en otro campo el Text(i).Text el valor numerico.

y lo comento ilustrandolo con la siguiente imagen  

http://img292.imageshack.us/img292/4638/tablasgr6.jpg

Desde los ID=3 hasta todos los ID=4 son los datos que trata esta SQL, porque los que dicen ID=1 y los ID=2 son otros datos, otro tipo de gestion (TipoGestion=1). Entonces si cuento no sirve porque por ejemplo, contemos los ID=3 (hay 15) y de los ID=4 tambien hay 15) siempre serán 15 para ese tipo de ingreso, si yo cuento hasta el ultimo ID=3, ¿cómo hago para que el contador, vuelva a contar desde 0 al empezar los ID=4 en una SQL?

La tabla pequeña es como la general y de datos básicos y de control, y la otra, la más grande son el detalle de esos ingresos, en VB funciona fino este tipo de proceso, y en Crystal pues exceptuando el problema del orden, tambien funciona todo bien, tanto camino recorrido sin problemas y andando todo bien para caer en este pequeño pero importante detalle del orden  

PD: la relacion que hay entre ambas tablas es de "1 a Muchos" tabla izquierda la pequeña y tabla derecha la de detalles, eso con respecto al ID que si es único en la tabla pequeña.

 Tampoco puedo porque CodRegion e IDSucursal son iguales tambien, porque el programa que conecta a esta BD debe gestionar distintas regiones del país y el campo IDSucursal es un abreviativo de la Sucursal

Ejemplo:

REGION             CodRegion
Capital                      1
Centro                      2
Oriente                     3
Occidente                 4
Zulia-Occidente         5

Cada Region tiene 8 o más Sucursales, en cada ciudad o más de una en una ciudad

Entonces si el programa que trabaja con esta BD y sus SQL se usa en, una region, siempre sería bajo esa Sucursal

Ejemplo:
IDSucursal = MBO
IDSucursal = MDA
IDSucursal = COJ

Son abreviaciones de la Ciudad en donde está la Sucursal u Oficina.
Entonces todos estos registros que se trae la SQL son de la misma region, y de la misma oficina, es decir, todos los registros tienen CodRegion=5 y IDSucursal=MBO

Esto está así porque en una misma Tabla se meten los registros de todas las sucursales de cada region, y por SQLs y código se filtra la información por parámetros, o lo que yo llamaría, campos que ayudan a identificar a qué Region y a qué Sucursal pertenece cada Registro, además de su ID único, claro.  No me servia hacer Tablas pr Sucursal o por Region porque las Sucursales son algo que se Eliminan o se Crean nuevas, y las Regiones, bueno siempre son y seguirán las de siempre.

¿será que le agrego un campo más a la tabla, pero que sea un campo contador? tal vez podría servir porque no hay datos únicos entre registros que permitan ordenarlo  

Hola!

Pues la funcion que yo conozco en vb que mide la longitud, sea variable o objeto en un form es Len

Ejemplo:

If Len(TextBox1.Text)>8 Then
  MsgBox "Disculpe, pero ha excedido la longitud máxima permitda de ingreso", vbInformation, "Longitud Excedida"
  Exit Sub
End If

resto del codigo en caso de no ser >8 sea guardar datos, etc con respecto a algun campo ID.

Tambien está otro que es Mid(string, number, number) que indicandole tomaría de un string solo X caracteres o algo así, perdon por dar una info vaga del mid es que lo he usado poco y no recuerdo ahorita como le va lo suyo  

El Mid yo lo use en una ocasion para tomar el titulo de una ventana, pero solo parte de su titulo, es decir, suponiendo que el titulo de la ventana sea:
Empresa Oficina [ABC] pues yo guardaba del todo el string solo el ABC asi:
Mid(Form1.Caption, 18, 3)
cuenta de derecha a izquierda y al llegar al caracter 18 toma los 3 caracteres, descartando el resto.

Con el Mid uno le indica que quiero tomar en una variable, por ejemplo, solo el caracter 4 al 6 de una cadena, y se le dice comenzar desde la izquierda o desde la derecha para tomar esos caracteres y descargar el resto de los demas caracteres.

Bueno tal vez es el Len el que necesitas  
bueno eso espero  

PD: yo tampoco nunca he tenido la ayuda del vb, por eso siempre he dicho que los que tenemos una pc con internet debemos estar muy agradecidos de ello  

 

El porque quiero hacerlo asi es por varios motivos, entre ellos el que siempre que uso este metodo y paso el programa a cualquier persona para que lo use en su ordenador nunca funciona debido a que falta no se que archivo, que supongo sera algun .OCX pero no se cual es y por tanto no puedo incluirlo en el paquete de instalacion del programa para su perfecto funcionamiento.

Y como haces el instalador? con qué programa empaquetas todo?  
a menos que sea que solo haces el .exe en VB y ese es el que entregas.
Creo que los ejecutables si funcionan cuando el Form es sencillito y no tiene controles o referencias a librerias, es decir, todo super simple.
Pero en otros casos es necesario hacer un instalador.
El empaquetador del Visual Studio no es confiable pero puede usarse para saber las dependencias del programa (DLLs, OCXs, y cualquier otro archivo, algunos .DEP, etc)

Otro motivo es que el programa para el que tengo esta duda no usa ninguna base de datos para su funcionamiento principal y para llegar a imprimir el reporte tengo que crear una base de datos solo para esto y actualizarla cada vez que el programa realice alguna de las operaciones que quiero mostrar en dicho reporte.

Uhmmm... tu programa no almacena nunca datos, debe ser un programa que se le meten datos en la ventana pero que todo esos datos estan solo en memoria y realizas cualquier cosa (operacion matematica, etc..) datos que usas para hacer algunos procesos pero que no necesitas conservarlos (guardarlos). Pero se te ha presentado la necesidad de imprimir el resultado de esos datos ingresados.

Hacer una BD solo para una salida a un reporte, pues si, se ve como que no muy necesario o requerido solo para eso, que de hecho si podría servir, tal vez conservando un historial pero no es la idea. En la maoyoria de los casos un Reporte representa traerse informacion de alguna parte (en la mayoria de los casos) por eso no entendia, pero tus datos a imprimir solo estan en Textbox o en variables, en memoria al momento.

Has intentado en vez de llevar eso a un reporte, el ver por el .Print? a mi esa exigencia aun no se me ha presentado, no sé para algun futuro  
Lo de una BD con una sola Tablita podría ser como ultima opción, es decir, al menos hay un plan B o plan de contingencia (rompa el vidrio en caso de emergencia)

Pues hay que buscar sobre como llevar el contenido de objetos (Text o Label, variables, etc) del Formulario al datareport y tambien probar con lo de .Printer del Form haber que tal.

Hola Gallar!

Es probable que tu CD tenga algun problema, o mira a ver si instalandolo en otra PC presenta el problema. Ese archivo parece ser el Wizard (Asistente) de instalación que inicia el programa para instalar. Porque si tu Windows está actualizado en ServicePack y es un Windows actual, pues debe ser el CD, muy probablemente.

Y ese .exe está dentro (empaquetado) dentro del SETUP.exe porque yo busque ese archivo en mi CD y en mi PC y no está. Si el CD sirve en otra PC tienes que ver si tu Windows está actualizado el Service Pack (SP) o ver si algun programa da conflictos en alguna DLL que por casualidad comparta o que no pueda acceder porque otro programa está usando la libreria en el momento. En el caos de ser el CD, pues sea porque la superficie del CD está rayada o tu archivo SETUP.EXE está corrupto (en caso de ser CD copia, se copio mal, no sé) pues tendrás que buscar otro.  

saludos  

compadres ya lo resolvi y viniendo corriendo a exponerlo, indico que es precisamente la solucion que dice el buen amigo F-Tanori  

La Tabla que guarda lo que está en el recuadro Azul tiene estos campos:
TR_SERVICIOS (este ID es unico)
TipoServicio
TipoGestion
Fecha
ID
IDSucursal
Dias_Habiles
CodRegion
Total1 --> Total (TextBox en amarillo, Pestaña 1)
Total2 --> Total (TextBox en amarillo, Pestaña 2)

Y la Tabla que guarda lo que está en el recuadro rojo es esta asi:
CAUSAS_NO_ENTREGADOS (este ID si permite repetirse)
ID
Motivo
TipoCNE
TipoServicio
IDSucursal
CodRegion
Cant

Y efectivamente como ha comentado el amigo F_Tanori a matriz se minimizó todo:
Matriz tanto para los Check como para los Text
Aqui sólo la parte de lo de matriz:

Eso del IF i >= 0 And i < 30 Then y el otro con i > 29 And i <=48 Then
es porque el la segunda tabla estoy colocando lo que está en ambas pestañas
y para que no se mesclen los datos de una con la otra, pues lo valido con un campo:
TipoCNE = 1 --> Es No Imputable
TipoCNE = 2 --> Es Imputable

El botoncito que dice LISTO hace la sumatoria de los Text que tengan dato:
Primera Pestaña: Causas No Entregados [No Imputables]:

El otro botoncito de LISTO de la otra pestaña:
Causas No Entregados [Imputables]:

Asi restauro todos los check y text:

Tu solucion es bastante burda, por decirlo, suavemente. Pero soluciona tu problema. Que sea lo mas eficiente, es otra cosa.

Burda = sifrino (no importa si ha sido por "decirlo suavemente")
Que sea lo más eficiente es la idea y lo que siempre se trata de buscar

Si tienes un minima nocion de gestion de base de datos, podrias haber modelo tu problema y asunto arreglado.

R: digo lo mismo que el amigo cpmario sobre esto.

Por el icono del formulario, espero que no seas de CHILE, por que, deja bastante que desear tu solucion...

El icono es de la empresa, en eso yo no tengo nada que ver.
Y no no soy de Chile y es triste que tal vez tu lo seas, porque tal vez yo no sea un erudito en la programacion o más aun en gestiones de bases de datos, pero al menos no soy pedante.

Te recomiendo que con el ultimo comentario, que en vez de decir lo que piensas, mejor piensa lo que dices, veras que en ese orden no te llevas la sorpresa de un posible disgusto o mal entendido por parte de las personas a quienes te expresas, modera mejor tus palabras para la proxima. O en su defecto mientras sigas con esa actitud (que no te conozco ni te he hecho nada) descarta u omite mis post en el futuro, haste de la vista gorda y lee y participa en el de los otros menos en uno que yo escriba.

A los demás muchachos muchass gracias, no me sorprende que el amigo F_Tanori apreciese con la solución, me alegra no haber pasado antes porque sino, la idea hubiese sido de él (por leerle) y no mia (al menos en esto) por la obsesión y gusto de ver como podía darle la mejor solucion a ello, concordamos en lo mismo y lo coroboro al verlo.  

gracias muchachos