|
|
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 - F_Tanori
Páginas: 1 ... 4 5 [6] 7 8 ... 83
127
« en: Jueves 10 de Marzo de 2011, 06:12 »
Cual es el problema?
El programita se ve bastante mal hecho, es dificil entender cual es tu duda, quieres quitarle "la proteccion" ?
En futuros mensajes utiliza la etiqueta [CODE]
128
« en: Miércoles 2 de Marzo de 2011, 21:22 »
129
« en: Miércoles 23 de Febrero de 2011, 12:41 »
panasip el hilo es viejo, y tu respuesta no aporta nada, es la segunda respuesta (tus 2 unicos mensajes hasta el momento) que veo que dices que KB es la respuesta, pero no dejas ningun enlace, no veo la finalidad de tu respuesta. ni el numero de articulo 
130
« en: Miércoles 23 de Febrero de 2011, 12:36 »
se llama Drag and Drop, seria cuestion de que busques la forma que mas se adapte a tu aplicacion. para que se vea mientras se arrastra, o se vea un icono etc, es cuestion de buscarle, son codigos viejos ya probados por muchos anios quizas encuentres alguno bueno y util por ahi http://www.google.com.mx/#hl=es-419&sou ... 3d0e4f2657Espero que sea lo que buscas. Saludos
132
« en: Jueves 20 de Enero de 2011, 12:10 »
Bueno si es como en ese listado entonces puedes hacer 2 cosas: a) crear una sumatoria para ingreso y una para egreso y luego restarlas PARA SUMAR SOLO EL INGRESO COMPUTE_1 SUM( IF(TIPO='INGRESO',IMPORTE,0) FOR ALL)
PARA SUMAR SOLO EL EGRESO COMPUTE_2 SUM( IF(TIPO='EGRESO',IMPORTE,0) FOR ALL)
RESTA COMPUTE_3 COMPUTE_1-COMPUTE_2
b) al egreso multiplicarla por menos 1 COMPUTE_1 SUM( IF(TIPO='EGRESO',(IMPORTE * -1),IMPORTE) FOR ALL) la sumatoria de ese campo seria equivalente 10.00 40.00 -10.00 100.00 -------------- 140.00
Espero te sirva Saludos
133
« en: Jueves 20 de Enero de 2011, 11:41 »
134
« en: Domingo 26 de Diciembre de 2010, 20:52 »
Pues si en realidad no va a ningun lado. Como ya se te ha dicho, ayudarmos en lo que podemos, siempre tenemos disposicion de ayudar a los que tienen problemas concretos y nos oponemos a hacer tareas de otros, si no es tu caso; no te sientas agredida, animo solo fijate como publicar esta en viewtopic.php?t=5710 y ya veras que entenderas lo que decimos Saludos
135
« en: Domingo 26 de Diciembre de 2010, 20:43 »
Pues ese codigo parece funcionar si quieres implementarlo en un modulo estandar, aqui una forma sencilla, sin muchas validaciones, necesitarias estudiarlo y perfeccionarlo para que lo apliques a lo tuyo function ConectarDB(ByRef Cnn as Connection) As boolean on error goto zError Cnn.Open "DSN='BaseSQL'" ConectarDB = Cnn.State =1 zError: if Err.Number>0 then MsgBox(Err.Description) Err.Clear ConectarDB = false end if end function
function Consulta(ByRef Cnn as Connection,SQL as string) as RecordSet Set Consulta = Cnn.Execute (SQL) end if
Uso: Dim oConnexion as Connection Dim oRS as RecordSet if ConectarDB(oConnexion) then set oRS = Consulta(oConnexion,"SELECT * FROM PRODUCTOS") end if
(NOTA: no lo compile asi que tendras que probarlos ) Saludos
136
« en: Jueves 23 de Diciembre de 2010, 07:04 »
Tengo una pregunta para ti. Sabes usar visual basic? Algunas palabras para buscar en internet DAO RDO ADO ConnectionStrings DSN Connection RecordSet ODBC OLE DB Pensaras que solo te estamos fastidiando, pero tus preguntas se leen con cierto sentido de "haganme las cosas", "pongan un codigo listo para copiar y pegar", si nos dijeran en que tienes problemas pudieramos ayudarte. Pero si no sabes visual basic y/o SQL entonces no necesitas un foro, necesitas un manual/curso primero tomalo practica y tus dudas exponlas en un foro, nadie te negara la ayuda. como puedo hacer la conexion de vb kon el sql en modulo ?
wuenas como podria hacer la conexion de vb kon el sql en modulo y modulo de clases?para que aparesca en grilla los datos de sql
y k tipo de codigo es mas efectiva sin problemas saludos
que tipo de respuesta se le puede dar a esa pregunta?  en fin... lee la pagina que te he dicho Saludos
137
« en: Jueves 23 de Diciembre de 2010, 06:54 »
¿Qué sacas de que?, pues ejemplos ¿no? eso es lo que estas solicitando, si lo compras o no lo compras ya no es asunto nuestro, si lo encuentras como e-book, si es gratis o no, sigue sin ser un asunto a tratar en este foro. Igual es solo una idea, manuales electronicos,cursos, y paginas de VB existen muchisimas. aqui hay un tema que es bueno para complementar la lectura viewtopic.php?t=5710Saludos
138
« en: Martes 21 de Diciembre de 2010, 23:14 »
Bueno, a veces las ocupaciones no permiten que uno ande por aca, pero hoy que ando por aqui, y dada esta oportunidad aprovecho para desearles Feliz Navidad, y un 2011 once mejor que el 2010, pero no tanto como el 2012 (para que aplique un 2012 mejor que el 2011 y asi sucesivamente  ) Bueno Feliz Navidad e-Compañeros!, e-Amigos!
Salidos
139
« en: Martes 21 de Diciembre de 2010, 23:08 »
Entra al editor de codigo escribe Filter lo seleccionas y presiona CTRL + F1 , seleccionas el tema lo lees, pulsas el boton Example, lo estudias lo practicas, y lo que no entiendas nosotros te ayudamos  Feliz Navidad! Saludos
141
« en: Jueves 9 de Diciembre de 2010, 10:18 »
Como siempre no deja de asombrarme la cutrez de MS  Mira que usar Mid() y no hacerlo con código más rápido usando C/C++ por ejemplo. Claro, internamente yo supongo cuando las funciones estan incluidas en el lenguaje, como lo es en VB6 ya vienen en un codigo optimizado, mejor elaborado, y eficiente, pero estas funciones son simulaciones de las funciones que en una version anterior no estan disponibles, para que puedan estarlo. Pero claro en lo que dices tienes razon pero esto es solo para solventar estas caracteristeicas pare este sistema heredado Saludos
142
« en: Miércoles 8 de Diciembre de 2010, 17:42 »
En esta pagina viene como 'simular ' esas funciones en una version de VB inferior a 6 http://support.microsoft.com/kb/188007/essi no estan disponibles (Legacy) ... y como veras segun la recomendacion de MS ... StrReverse es un ciclo for en reversa  Saludos
143
« en: Lunes 6 de Diciembre de 2010, 01:52 »
Alternativas hay muchas que tal si la reversa se la aplicas en un ciclo por ejemplo FOR: Function ObtenerNombreArchivo(Ruta As String) Dim Final As Integer, C As Integer Dim Caracter As String, Cadena As String Final = Len(Ruta) For C = Final To 1 Step -1 Caracter = Mid(Ruta, C, 1) If Caracter = "" Then Exit For Else Cadena = Caracter & Cadena End If Next C ObtenerNombreArchivo= Cadena End Function
NombreArchivo = ObtenerNombreArchivo("C:DocumentosOtrosArchivo.doc")
O en cualquier otro ciclo, claro que siempre es mejor utilizar funciones ya hechas para no tener que estar reinventando las cosas, salvo cuando son sistemas heredados , que hay que desarrollar otras soluciones. pero si no se planea la actualizacion tarde o temprano se tendran problemas mas graves Saludos
144
« en: Domingo 5 de Diciembre de 2010, 10:33 »
Puede ser que hayas instalado una instancia(lo hace comunmente el express) si no haz movido nada de eso al instalar prueba conectandote a: .SQLEXPRESS o Nombre del EquipoSQLEXPRESS o IP del EquipoSQLEXPRESS Si entras a los servicios (Services.msc) y buscas SQL SERVER entre parentesis dira el nombre de la instancia Ejemplo: SQL Server (SQLEXPRESS) Saludos
145
« en: Sábado 20 de Noviembre de 2010, 08:50 »
Existen mucho sw para eso.. http://www.google.com.mx/#q=data+recoveryTienes que probar con varios y dejar de "escribir" (instalar,mover, copiar etc) mas cosas en el disco Saludos
146
« en: Sábado 20 de Noviembre de 2010, 08:47 »
 Creo que hemos entendido tu explicacion desde el principio... es cuestion de razonar un poco....
147
« en: Jueves 18 de Noviembre de 2010, 15:38 »
bienvenido
Para eso nos reunimos aca... siempre y cuando no vengas a dejarnos tu tarea...
148
« en: Jueves 18 de Noviembre de 2010, 15:34 »
150
« en: Jueves 18 de Noviembre de 2010, 15:32 »
y porque lo preguntas en DelphiTrucos?
Páginas: 1 ... 4 5 [6] 7 8 ... 83
|
|
|
Mostrar Mensajes
