|
|
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.
Temas - chryobcn
Páginas: [1]
1
« 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
2
« 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
3
« 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
4
« 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
5
« 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
6
« 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
7
« 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
8
« 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
9
« 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
10
« en: Lunes 15 de Diciembre de 2003, 00:24 »
Saludos
Necesitaria saber como puedo hacer que en un FlexGrid solo se pueda seleccionar una fila, ya que si mueves el raton se te marcan todas las filas que quieras y me gustaria que solo se pudiese seleccionar una fila.
Gracias
Páginas: [1]
|
|
|
Mostrar Mensajes
