yosustri

LOS JAPONESES..... Los japoneses siempre han gustado del pescado fresco. Pero las aguas cercanas a Japón no han tenido muchos peces por décadas. Así que para alimentar a la población japonesa, los barcos pesqueros fueron fabricados más grandes para ir mar adentro. Mientras más lejos iban los pescadores más era el tiempo que les tomaba regresar a entregar el pescado. Si el viaje tomaba varios días, el pescado ya no estaba fresco. Para resolver el problema, las compañías instalaron congeladores en los barcos pesqueros. Así¬ podían pescar y poner los pescados en los congeladores. Sin embargo, los japoneses pudieron percibir la diferencia entre el pescado congelado y el fresco, y no les gustaba el congelado, que, por lo tanto, se tenían que vender más barato. Las compañías instalaron entonces en los barcos tanques para los peces. Podían así pescar los peces, meterlos en los tanques y mantenerlos vivos hasta llegar a la costa. Pero después de un tiempo los peces dejaban de moverse en el tanque. Estaban aburridos y cansados, aunque vivos. Los consumidores japoneses también notaron la diferencia del sabor porque cuando los peces dejan de moverse por días, pierden el sabor fresco ... y ¿cómo resolvieron el problema las compañías japonesas? Y ¿cómo consiguieron traer pescado con sabor de pescado fresco? Si las compañías japonesas te pidieran asesoría, ¿qué les recomendarías? (Mientras piensas en la solución.... Lee lo que sigue): Tan pronto una persona alcanza sus metas, tales como empezar una nueva empresa, pagar sus deudas, encontrar una pareja maravillosa, o lo que sea, empieza a perder la pasión. Ya no necesitará esforzarse tanto. Así que solo se relaja. Experimentan el mismo problema que las personas que ganan la lotería, o el de quienes heredan mucho dinero y nunca maduran, o de quienes se quedan en casa y se hacen adictos a los medicamentos para la depresión o la ansiedad… Como el problema de los pescadores japoneses, la solución es sencilla. Lo dijo L. Ron Hubbard a principios de los años 50: “Las personas prosperan mas cuando hay desafíos en su medio ambiente" Para mantener el sabor fresco de los peces, las compañías pesqueras ponen a los peces dentro de los tanques en los botes, pero ahora ponen también un Tiburón pequeño! Claro que el tiburón se come algunos peces, pero los demás llegan muy, pero muy vivos. ¡Los peces son desafiados! Tienen que nadar durante todo el trayecto dentro del tanque, ¡para mantenerse vivos! Cuando alcances tus metas proponte otras mayores. Nunca debes crear el éxito para luego acostarte en él. Así que, invita un tiburón a tu tanque, y descubre que tan lejos realmente puedes llegar. Unos cuantos tiburones te harán conocer tu potencial para seguir vivo y haciendo lo que mejor haces, de la mejor manera posible!! Y si ya los encuentras en el tanque, déjalos que se muerdan entre si, que no te asusten sus dientes ni sus trampas... tu sigue alerta, pero siempre "fresco". Siempre habrá tiburones a donde vayas... Interesante lectura para aplicar en tu vida diaria.

Bienvenidos Antes de entrar en materia se que ya casi no se usa el Visual Basic 6, somos pocos pero para empezar esta bien, pero para llevar a cabo un pequeño proyecto me di cuenta que esta informacion no estaba recopilada, asi que decidi que si encontraba la solucion la iba a colgar en Taringa que mucho me ha dado. Decidi hacer la base de datos en SQLite porque es libre y no queria tener problemas con Microsoft por cosas de licencia. Nota: Para usar este manual se da por hecho que el usuario tiene conocimientos minimos de SQL (crear tablas, introducir valores, borrar tablas, valores etc) Empecemos. Crear base de datos por consola Antes que crear necesitamos abrir el programa SQLite3, que lo podeis descarga de esta pagina, , en el archivo que se descargen solo hay un .exe, descomprimirlo en la carpeta que quieran, en mi caso en C:, asi no complicarme con las rutas en el ejemplo. A continuacion abrimos el simbolo del sistema, Inicio/Todos los programas/Accesorios/Simbolo del sistema, se abre la consola y vamos mediante comandos a la carpeta que se encuentra el archivo SQLite3.exe (es el que hemos descomprimido del archivo que nos descargamos). En mi caso solo es:cd c: Una vez en la carpeta escribimos el siguiente codigo para crear la base de datos: sqlite3 "nombre_bd" Ejemplo: sqlite3 ejemplo Este comando lo que hace es si existe la base de datos entramos en ella, pero sino existe la crea y entramos a ella. Una vez dentro podremos empezar a crear las tablas insertar los datos etc. Cuando terminemos de crear tablas etc. damos al siguiente comando: .exit Eso hara que se creee un archivo con el nombre de nuestra BD en la misma carpeta en la que esta el ejecutable. Crear ODBC de SQLite Lo vamos a hacer mediante ODBC asi que necesitamos el driver, que lo descargamos en : http://www.ch-werner.de/sqliteodbc/sqliteodbc.exe , este archivo lo ejecutamos y empezara a instalarse. Una vez instalado vamos a decirle al ordenador que queremos que conecte nuestra BD de SQLite a un ODBC. Asi que vamos a Inicio/Panel de control/Herramientras administrativas/Origenes de datos(ODBC). Aqui se abre una ventana. Vamos a la pestaña de DSN del sistema, aqui ya habra unos creados, la imagen no es mia, asi que le damos agregar, se abre otra ventana que enseñara todos los controladores que estan instalados en el sistema, buscamos el llamado SQLite3 ODBC Driver. Le damos a finalizar y abre otra ventana. Aqui pide Data source Name, nombre de la base de datos que le vamos a dar. Data base Name, la ruta donde esta el archivo que creamos de la BD. Solo estos 2 datos nos interesa para nuestro simple ejemplo. En mi caso quedaria. Data Source Name: Prueba Data base Name: C:ejemplo le damos a OK y ya tendriamos creada la ODBC, aqui tengo que recalcar que si tenemos mas de una BD tenemos que hacer este mismo procedimiento tantas veces como BD tengamos. Es decir si tenemos 3 BD tenemos que tener en el DSN del sistema 3 controladores de SQLite3 ODBC Driver instalados. Conectar a Visual Basic 6 Abrimos el VB y en codigo ponemos lo siguiente. Dim variable As New ADODB.Connection Dim variable As String conex = "DSN=nombre_dsn;pwd=Password" bd.Open conex A mi me quedaria asi: Dim bd As New ADODB.Connection Dim conex As String conex = "DSN=Prueba bd.Open conex Asi ya el se conecta a la base de datos por medio del ODBC que creamos. Si quieres conectar esa base de datos a un Adodc, por ejemplo seria asi. Adodc1.ConnectionString = variable_tipo_string En mi caso Adodc1.ConnectionString = conex y ahi en adelante seria conectarla 1 tabla. Adodc1.CommandType = adCmdTable Adodc1.RecordSource = "Nombre_tabla" Adodc1.Refresh Ejemplo: Adodc1.CommandType = adCmdTable Adodc1.RecordSource = "tb1" Adodc1.Refresh Y ahi en adelante lo que querais ya solo es tiempo y ganas de programar. Lo siento por poner pocas imagenes pero como casi todo era con codigo no pude meter mas. Gracias por la atencion y espero que le sirva a alguien esta informacion, si es asi comentar para saber que no soy el unico que le surgio este problema. Gracias