|
|
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 - chryobcn
1
« en: Miércoles 23 de Junio de 2004, 19:28 »
Saludos
Gracias por la explicacion pero a la independencia que me referia era a los nombres de los campos de la base de datos, que se pueden modificar los campos sin tener que recompilar el proyecto.
Hasta Otra
2
« en: Sábado 19 de Junio de 2004, 17:06 »
Saludos
Me interesaria que alguien me pudiese facilitar un ejemplo con comentarios de algun proyecto con independencia logica de la base de datos ya que apenas encuentro informacion por internet.
Gracias
3
« en: Viernes 21 de Mayo de 2004, 18:06 »
Saludos Creo que lo tengo solucionado, el codigo seria el siguiente: strSQL = "SELECT codi FROM temporada WHERE ('" & DTPfinal.Value & "' BETWEEN fecha_inici AND fecha_fin) OR ('" & DTPinicio.Value & "' BETWEEN fecha_inici AND fecha_fin) OR (fecha_fin < '" & DTPfinal.Value & "' AND fecha_inici > '" & DTPinicio.Value & "')"
Si alguien ve algun error o quiere comentar algo al respecto, se lo agradeceria.
4
« en: Viernes 21 de Mayo de 2004, 17:25 »
Saludos
Hace 3 años hice un juego de este estilo aunque el proyecto me lo borrarón...putos formateos.
Una solucion sencilla seria reaprovechar los shapes que has creado una vez que llegan al final de la pantalla, utilizarlos como nuevos disparos.
Lo que no me acuerdo es que si haces algo como: Dim disparo as new shape, te cree el objeto y puedas aplicarle las propiedades determinadas.
5
« en: Viernes 21 de Mayo de 2004, 17:16 »
Saludos Supongo que tambien es interesante saber el puerto por el que te comunicas ya que en el caso de que una de las maquinas usea un modem-router la mayoria de las veces tiene los puertos cerrados (dependiendo de su configuración) en canvio los modems usb creo recordar que dejan todo abierto. si quieres saber con la IP que sales a internet puedes obtenerla en esta direccion: http://www.showmyip.com/es/
6
« en: Viernes 21 de Mayo de 2004, 17:09 »
Saludos nuevamente El proyecto final me trae loco...la gestion de un hotel... Mi pregunta se refiere a que tengo que dar de alta las temporadas y claro no me interesa que las fechas de inicio y final de la temporada de la temporada puedan sobreponerse a las de otra temporada ya existente. Ejemplo.: Temporada 1: 01/01/2004 - 01/05/2004 cualquier otra temporada no puede estar entre ni ser estas fechas. La temporada solo es aplicable a 1 año, si empieza en el 2004 no puede llegar al 2005 (esto ya lo tengo controlado). Estoy intentando hacer un sql que me recupere una temporada que tenga las fechas entre las nuevas que se quieren añadir para asi comprobar esto. Lo que he pensado es lo siguiente: strSQL = "SELECT codi FROM temporada WHERE (fecha_inici BETWEEN '" & DTPinicio.Value & "' AND '" & DTPfinal.Value & "') OR (fecha_fin BETWEEN '" & DTPinicio.Value & "' AND '" & DTPfinal.Value & "')"
Pero no me funciona del todo bien, solucionar este tema por sql seria un gran alivio ya que por codigo de visual podria ser una funcion de muchas linias. Gracias
7
« en: Viernes 21 de Mayo de 2004, 17:01 »
Gracias por tu ayuda, a malas quitare esa información de la parrilla y solo mostrare si se ha solucionado.
8
« en: Viernes 21 de Mayo de 2004, 08:04 »
Saludos nuevamente
Desgraciadamente no me accepta el nvl(), para más información utilizo sql server 2000 la versión personal.
He probado introduciendo la clausula AND H.dni_treballador IS NOT NULL pero claro si este valor es null no me muestra un registro con ese campo null. Lo que necesito es que me muestre los demas valores de ese registro menos los que esten relacionados con el valor NULL.
Para aclarar las cosas explicare por encima lo que tengo:
En una parrilla cargo la información de la tabla1: el numero de habitacion y el tipo de incidencia (estos datos siempre existen) y el nombre del trabajador que ha solucionado esa incidencia (este esta en otra tabla que lo recupero mediante el dni que tengo en la tabla1) el problema esta en que el dni del trabajador es NULL hasta que no se soluciona la incidencia y necesito que se cargen todos los registros aunque el nombre del trabajador este vacio.
Espero que alguien pueda darme una solución, si existe, sino tendre que quitar el nombre de la parrilla.
Gracias.
9
« en: Viernes 21 de Mayo de 2004, 00:53 »
Saludos Estoy intentando hacer la siguiente consulta: SELECT H.num_habitacio, H.data_alta, I.nom AS incidencia, H.data_fin, E.nom + ' ' + E.cognom1 + ' ' + E.cognom2 AS nombre FROM incidencia_habitacio H, incidencia I, treballador E WHERE I.codi=H.codi_incidencia AND E.dni=H.dni_treballador
El problema esta que el valor H.dni_treballador por defecto es NULL hasta que no se inserta otro valor mas adelante, por lo tanto esta consulta no me devuelve ningun valor. Al tener len la tabla registros con este campo en NULL y con valores validos no se como hacer para evitar que si es NULL muestre los resultados. Gracias
10
« en: Martes 18 de Mayo de 2004, 21:32 »
Saludos Me han comentado una forma un poco machaca que es poniendo algo como: INSERT INTO tabla (campo1,campo2) VALUES("+""""+var+""""+",....)
No es exactamente asi y no lo consigo sacar, si alguien conoce la sintaxis correctamente se lo agradeceria.
11
« en: Lunes 17 de Mayo de 2004, 18:12 »
Saludos Estoy un poco puteado ya que si en los textbox introducen un nombre con una comilla simple me jode la sintaxis sql causando un error en el programa y no se como remediarlo. Un ejemplo del tipo de codigo que utilizo es: strSQL = "INSERT INTO servei (nom,descripcio,estat,codi_carrec) VALUES('" + txtField(1).Text + "','" + txtField(2).Text + "','" + Estat + "'," & codCargo & ")"
las consultas y ejecuciones las ejecuto desde unas funciones que son: Public Function openRs(ByVal strSQL As String) As Recordset Dim rsAux As New Recordset Dim errLoop As Error On Error GoTo Err_Execute If GetStateRs(cnConexion.State) = "Closed" Then If conexionBD = False Then MsgBox "Ha ocurrido un error en la conexión con la base de datos" + vbCr _ + "Este error finalizará la ejecución de la aplicación, si el problema persiste avise al Administrador", vbCritical, "Error Grave" End End If End If With rsAux .Source = strSQL .ActiveConnection = cnConexion .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open strSQL End With If GetStateRs(rsAux.State) = "Open" Then Set openRs = rsAux End If On Error GoTo 0 Exit Function Err_Execute: ' Notifica al usuario cualquier error resultante tras ' ejecutar la consulta. If cnConexion.Errors.Count > 0 Then For Each errLoop In cnConexion.Errors MsgBox "Número de error: " & errLoop.Number & vbCr & _ errLoop.Description, vbCritical Next errLoop End If Set openRs = Nothing End Function Public Function execSQL(ByVal strSQL As String) As Integer Dim cmdRs As New Command Dim errLoop As Error If GetStateRs(cnConexion.State) = "Closed" Then If conexionBD = False Then MsgBox "Ha ocurrido un error en la conexión con la base de datos" + vbCr _ + "Este error finalizará la ejecución de la aplicación, si el problema persiste avise al Administrador", vbCritical, "Error Grave" End End If End If ' Borra los errores ajenos de la colección Errors. cnConexion.Errors.Clear With cmdRs .ActiveConnection = cnConexion .CommandText = strSQL .CommandType = adCmdText End With On Error GoTo Err_Execute cmdRs.Execute execSQL On Error GoTo 0 Exit Function Err_Execute: ' Notifica al usuario cualquier error resultante tras ' ejecutar la consulta. If cnConexion.Errors.Count > 0 Then For Each errLoop In cnConexion.Errors MsgBox "Error número: " & errLoop.Number & vbCr & _ errLoop.Description, vbCritical Next errLoop End If Resume Next End Function
Aunque las funciones me detecten el error luego al trabajar con los recordsets me falla. Al tenerlo centralizado por estas dos funciones hay alguna forma de solventar este error solo modificando estas dos funciones y sino me conformaria con modificar los sql si me decis como. Gracias por vuestra ayuda
12
« en: Lunes 3 de Mayo de 2004, 22:07 »
Saludos
Toy probando el control toolbar y en teoria tendria que dejar crear una linia separadora y tambien espacios en blanco entre botones.
Los espacios en blanco los puedo crear con el tbrplaceholder pero el separator no. He probado con el tbrSeparator y tambien me crea un espacio en blanco, asi que no se como hacerlo.
He visto lo del button grup pero ni idea de como funciona.
Gracias
13
« en: Sábado 1 de Mayo de 2004, 22:09 »
saludos no puedo dar mucha informacion al respecto pero por lo poco que he tocado creo que funciona como el raton, asi que es posible que captures las pulsaciones con los eventes del raton. No te lo puedo asegurar, asi que la mejor solucion es probarlo 
14
« en: Sábado 1 de Mayo de 2004, 15:06 »
Gracias Probare si puedo adecuar el codigo para aplicarlo a un grid y si funciona bien  Hasta Otra
15
« en: Viernes 30 de Abril de 2004, 22:33 »
Saludos
Bueno intentare explicarlo mejor.
Tengo un grid relleno de datos, pongamos el caso que son clientes.
Al lado tengo un textbox que al ir introduciendo letras, pongamos el caso de un nombre....
...La linia de seleccion del grid, el rowsel, se va moviendo comparando el texto de la columna.
Al dejar de escribir letras en el textbox, la fila seleccionada se queda fija.
seria un funcionamiento parecido al de un combobox relleno de numeros x ejemplo que al pusar un numero se selecciona el mas parecido.
Espero haberme explicado mejor aunque...
Hasta Otra
16
« en: Viernes 30 de Abril de 2004, 21:12 »
Saludos
Creo recordar que el flexgrid tiene una propiedad llamada ColAlignment, si no me equivoco estaba disponible en tiempo de diseño y modifica la alineacion de toda una columna.
su sintaxis era:
objeto.ColAlignment(numero) = valor
Mirate esta propiedad en la ayuda.
17
« en: Viernes 30 de Abril de 2004, 21:00 »
Saludos
Siento que haya parecido una discusion, solo estaba comentando mi punto de vista y el porque me interesaba hacerlo de esa manera, nada mas.
Hasta Otra
18
« en: Viernes 30 de Abril de 2004, 06:13 »
Saludos
Estoy dias quiza haga demasiadas preguntas, me sabe mal pero este es el foro de vb 6 que mas movimiento hay, supongo que en los otros tambien pero ahora mismo no tngo tiempo de mirarlos.
El titulo creo que no es el mas adecuado pero tampoco se como describirlo, bueno ahi va mi pregunta.
Hay programas en los cuales se ve una parrilla con un campo de texto al lado que al escribir en el se ve como en la parrilla se va moviendo la fila seleccionada hasta dar con la palabra exacta... me gustaria saber aunque sea mas o menos que metodos utilizar para llegar a realizar esto.
La parrilla que uso es la janus flexgrid pero es indiferente si me decis metodos o eventos de otras parrillas de serie de vb 6, como comente me conformo con una orientacion para poder realizar esto.
Gracias
19
« en: Jueves 29 de Abril de 2004, 11:49 »
Saludos Gracias Rover.29 por tu respuesta, en el formulario mdi padre funciona perfectamente, pero el problema viene dado en el formulario child que si desactivo el control de maximizado no se me muestra el formulario, el que si me deja deshabilitar es el de minimizar. Ahora me hago la siguiente pregunta... vb 6 permite mostrar un form child sin el boton de maximizar?? Acerca de lo comentado Brroz, no necesito el funcionamiento esplicito de los formularios mdi, ya que no quiero que se puedan abrir dos formularios hijos a la vez ya que para el programa que estoy haciendo podria ser un gran problema al atacar a la base de datos constantemente... es simplemente que el diseño de las interficies queda muy majo a mi gusto y eso los profesores lo puntuan.... Por lo del tema de chapuza, al restaurar se ve como el formulario se minimiza y luego se vuelve a maximizar... francamente lo veo feo Gracias
20
« en: Jueves 29 de Abril de 2004, 00:56 »
Saludos Necesito poder inhabilitar los controles de maximizado/restaurar y minimizar de formularios mdi padre e hijos (los formularios siempre tienen que estar maximizados). La solucion chapuza es forzando el estado en el form_resize pero... Navegando por los foros encontre la siguiente funcion pero solo me inhabilita el control de cerrar el formulario, he intentado hacer varias pruebas pero siempre con el mismo resultado. La funcion es: Option Explicit
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
'Constantes
Const SC_SIZE = &HF000
Const SC_MOVE = &HF010
Const SC_MINIMIZE = &HF020
Const SC_MAXIMIZE = &HF030
Const SC_CLOSE = &HF060
Const SC_RESTORE = &HF120
Const MF_SEPARATOR = &H800
Const MF_BYPOSITION = &H400
Const MF_BYCOMMAND = &H0
Private Sub MDIForm_Load()
Dim hwnd&, hMenu&, Success&
Dim i%
hwnd = Me.hwnd
hMenu = GetSystemMenu(hwnd, 0)
'Quitar todos (va de 0 a 8)
For i = 8 To 0 Step -1
Success = DeleteMenu(hMenu, i, MF_BYPOSITION)
Next
Exit Sub
'Usa esto para quitar los menús que te interesen:
Success = DeleteMenu(hMenu, SC_SIZE, MF_BYCOMMAND)
Success = DeleteMenu(hMenu, SC_MOVE, MF_BYCOMMAND)
Success = DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
'Success = DeleteMenu(hMenu, SC_MINIMIZE, MF_BYCOMMAND)
'Success = DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND)
'Success = DeleteMenu(hMenu, SC_RESTORE, MF_BYCOMMAND)
End Sub
21
« en: Miércoles 28 de Abril de 2004, 20:50 »
Saludos Si quieres buscar gratuitos puedes echar un ojo a esta web que hay una buena coleccion de controles activex http://www.soft411.com/software
22
« en: Miércoles 28 de Abril de 2004, 20:40 »
Saludos
Genial, funciona a la primera y sencillisimo, muchisimas gracias. Asi me sera más fácil hacer el diseño del proyecto de fin de curso aunque aun queda tela pa acabar un programa de gestión de un hotel.
Hasta Otra
23
« en: Miércoles 28 de Abril de 2004, 15:40 »
Saludos
Aqui os planteo mi duda.
Tengo un formulario mdi desde el cual quiero que se tenga acceso a los diferentes apartados del programa y necesito que al abrir un formulario hijo este sea como modal, que no se permita acceder al formulario padre hasta que el hijo no se cierre.
una opcion seria poner todos los menus desactivados, igual que la barra de botones... pero no me acaba de convencer, a ser possible me iria bien que el formulario padre no pareciese que perdiese el foco (el color de la barra de titulo se queda como apagado)
Gracias por vuestra atencion
24
« en: Martes 16 de Diciembre de 2003, 14:55 »
Saludos
En el proyecto que estoy realizando me interesaria poder exportar los datos de una base de datos acces la cual me conecto por dao a un archivo de texto y tambien que pudiese importar esos datos y escribirlos en la base de datos, alguna sugerencia?
Gracias
25
« en: Martes 16 de Diciembre de 2003, 14:53 »
Gracias pero no me referia a esto exactamente ya que necesito que el grid se seleccione por filas(row), pero al ejecutar el proyecto si el usuario clica con el raton puede seleccionar todas las filas que le de la gana y eso es lo que quiero capar, que solo se quede marcada 1 fila, la ultima por ejemplo.
Me comentaron que se podia cambiar el color de las otras filas y dejarlo en blanco para que parezca que no estan seleccionadas, alguna idea??
|
|
|
Mostrar Mensajes
