• Sábado 10 de Mayo de 2025, 07:53

Mostrar Mensajes

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 - FRIJU

Páginas: 1 ... 4 5 [6] 7
126
Visual Basic 6.0 e inferiores / Publicar base de datos en Internet.
« en: Jueves 12 de Junio de 2003, 08:36 »
Hola Compañer@s!
    Se puede publicar en internet una base de datos programada en Visual u otro lenguaje, sin necesidad de vover a cambiar el código.

Muchas gracias.
-_-

127
Visual Basic 6.0 e inferiores / Re: Puntero de ratón
« en: Jueves 12 de Junio de 2003, 08:34 »
Hola Compañer@s!
           Aguien sabe como se hace que cuando un cuadro de texto recibe el enfoque, el puntero del ratón tenga formato de Link.
 

Muchas gracias.
:flower:

128
Visual Basic 6.0 e inferiores / Re: WinIpCfg.exe
« en: Miércoles 11 de Junio de 2003, 16:27 »
pon en ejecutar.
cmd
te saldrá una ventana pon ipconfig.

129
Visual Basic 6.0 e inferiores / Otra de fechas!!!
« en: Miércoles 11 de Junio de 2003, 16:23 »
Perdonar pero me he contestado a mi mismo.
El problema es que le estoy poniendo el Format.
Le he quitado y solucionado.
De todas formas gracias.
:beer:

130
Visual Basic 6.0 e inferiores / Re: Otra de fechas!!!
« en: Miércoles 11 de Junio de 2003, 16:15 »
Hola Amig@s!
  Tengo un problema con una SQl, que trata fechas, me da la vuelta a las fechas, no se si es de mi configuiración regional o que.
la Sql es la Siguiente.
StrSql = "SELECT TblVisitas.VISFECHAINICIO, TblVisitas.VISFECHAFIN, TblVisitas.VISUSUARIO, TblVisitas.VISPROYECTO " & _
         "From TblVisitas " & _
         "WHERE TblVisitas.VISFECHAINICIO = #" & Format(Me.TxtFechaInicio, "dd/mm/yy") & "# AND TblVisitas.VISFECHAFIN =#" & Format(Me.TxtFechaFin, "DD/mm/YY") & "# AND TblVisitas.VISUSUARIO ='" & MAIL & "' AND TblVisitas.VISPROYECTO ='" & Me.CboProyecto & "';"
 
         
          '* Primero miramos si existe datos para este periodo y proyecto del mismo usuario
            Set Rs = DB.Execute(StrSql)

Me podeis ayudar.
:brickwall:

131
Visual Basic 6.0 e inferiores / Re: calendario
« en: Miércoles 4 de Junio de 2003, 13:13 »
Lo que pretendo es:
tengo dos campos Fecha Inicio, Fecha Fin.
Cuando haga doble clik me saque el calendario y eliga la fecha.
:food:

132
Visual Basic 6.0 e inferiores / Re: calendario
« en: Miércoles 4 de Junio de 2003, 09:46 »
Hola compañer@s!!
      Alguien tiene un ejemplo de como sacar el control calendario al recibir el enfoque.
Muchas gracias.
:think:

133
Visual Basic 6.0 e inferiores / Grupo de Opciones
« en: Martes 3 de Junio de 2003, 09:09 »
Al final lo he heco como decía melileo.

Select Case Rst("PRODESTINO")
  Case Is = 1 'Investigación
  Me.GrpDestino1.Value = True
  Case Is = 2 'Oferta
  Me.GrpDestino2.Value = True
  Case Is = 3 'Desarrollo
  Me.GrpDestino3.Value = True
End Select


Muchas gracias a todos.

:beer:

134
Visual Basic 6.0 e inferiores / Re: Grupo de Opciones
« en: Viernes 30 de Mayo de 2003, 09:46 »
Tengo en un formulario un Frame, para un grupo de opciones.
El caso es el siguiente, realizo un recordset, traigo el valor que tiene ese campo 1,2...., como activo la casilla correspondiente del grupo.

Ejemplo:
Tengo un frame que tiene las opciones siguientes:
            Investigación
            Oferta
            Desarrollo

cada opción debe ser un valor 1,2,3
cuando traigo el recordset con alguno de estos valores ¿ como lo adjudico al Frame?
y activo las casillas.


:band:

135
Visual Basic 6.0 e inferiores / Re: Grupo de Opciones
« en: Jueves 29 de Mayo de 2003, 15:39 »
Hola compañer@s!
     
 Tengo en un formulario un Frame, para un grupo de opciones.
El caso es el siguiente, realizo un recordset, traigo el valor que tiene ese campo 1,2...., como activo la casilla correspondiente del grupo.

Muchas Gracias de antemano.
:band:

136
Visual Basic 6.0 e inferiores / RECORDSET NULO
« en: Jueves 29 de Mayo de 2003, 15:10 »
Muchisimas gracias:beer:

137
Visual Basic 6.0 e inferiores / Re: RECORDSET NULO
« en: Jueves 29 de Mayo de 2003, 12:26 »
Hola!
Como controlo que un recordset, algun campo venga nulo.
en acces lo hago asi:
if isnull rst("campo") then
me.campo = ""
else
me.campo = rst("campo")
end if

:think:

138
Visual Basic 6.0 e inferiores / Como le Hago Para Dar De Alta Datos En Una BD
« en: Jueves 29 de Mayo de 2003, 07:45 »
A ver si te vale esto.
 Dim SQL As String
 
    Call OpenDB
   'Set dbs = OpenDatabase(App.Path & "db13.mdb")
    If MODIFICACION = False Then
    SQL = "INSERT INTO TlbHoras ( HOAÑO, HOSEMANA, HOPERSONA, " & _
                                "HOPLANTA, HOPROYECTO,HOCAD, HOCAE," & _
                                "HOGESTION, HOREUNION,HODESPLAZAMIENTO, HOOFERTA, " & _
                                "HOVARIOS, HOUSUARIOCREACION, HOFECHCREACION )" & _
          "SELECT " & Me.Cboaño & ", " & Me.CboSemana & ",'" & MAIL & "', " & _
                  "'" & PLANTA & "', " & Me.TxtNumeroproyecto & "," & Me.TxtCad & ", " & Me.TxtCae & "," & _
                  "" & Me.TxtGestion & "," & Me.TxtReunion & "," & Me.TxtDesplazamiento & " ," & Me.TxtOferta & " , " & _
                  "" & Me.TxtVarios & ",'" & MAIL & "' ,  Now() ;"

        DB.Execute SQL
    Else
    SQL = "UPDATE TlbHoras SET TlbHoras.HOAÑO = " & Me.Cboaño & ", TlbHoras.HOSEMANA =" & Me.CboSemana & ", TlbHoras.HOPERSONA = '" & MAIL & "'," & _
                 "TlbHoras.HOPLANTA = '" & PLANTA & "', TlbHoras.HOPROYECTO = " & Me.TxtNumeroproyecto & ", TlbHoras.HOCAD = " & Me.TxtCad & "," & _
                 "TlbHoras.HOCAE =" & Me.TxtCae & ", TlbHoras.HOGESTION = " & Me.TxtGestion & ", TlbHoras.HOREUNION = " & Me.TxtReunion & ", " & _
                 "TlbHoras.HODESPLAZAMIENTO = " & Me.TxtDesplazamiento & ", TlbHoras.HOOFERTA = " & Me.TxtOferta & " , TlbHoras.HOVARIOS = " & Me.TxtGestion & "," & _
                 "TlbHoras.HOUSUMODIFICACION = '" & MAIL & "', TlbHoras.HOFECHMODIFICACION = '" & Now() & "' " & _
                 "WHERE TlbHoras.HOAÑO =" & Me.Cboaño & " AND TlbHoras.HOSEMANA=" & Me.CboSemana & " AND TlbHoras.HOPERSONA ='" & MAIL & "';"
        DB.Execute SQL
    End If
    GUARDADO = True
    DB.Close
    Set DB = Nothing


modulo para opendb:
DB.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:pruebasvariasNueva carpetadb13.mdb;Persist Security Info=False"):brickwall:

139
Visual Basic 6.0 e inferiores / MSHFlexGrid
« en: Jueves 29 de Mayo de 2003, 07:43 »
Muchas gracias Rober.
Me ha valido, primero le he dicho de que columna quiero la información y luego la he pasado a la variable.

MSHFlexGrid1.Col = 2

PROYECTO = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, MSHFlexGrid1.Col)


Un Saludo.:beer:

140
Visual Basic 6.0 e inferiores / Re: MSHFlexGrid
« en: Miércoles 28 de Mayo de 2003, 17:25 »
Me parece que no he explicado bien.
lo que quiero es saber que contiene una columna concreta y ese valor guardarlo en una varible.
 
Muchas Gracias Rober.

141
Visual Basic 6.0 e inferiores / Re: MSHFlexGrid
« en: Miércoles 28 de Mayo de 2003, 15:46 »
Hola Companer@s!
 He creado un MSHFlexGrid, que tiene varias columnas.
Ahora quiero pasar a una varible el valor de una columna concreta.
¿Alguien sabe como lo puedo Hacer?
 
Gracias de antemano.
UN saludo desde Euskadi


:kiss:

142
Visual Basic 6.0 e inferiores / Re: dimensiones de campos de combo
« en: Viernes 23 de Mayo de 2003, 09:31 »
Hola a tod@s!!!!

Alguien, sabe si se puede dar anchura a los campos que componen un combo, como en Access,
Por ejemplo:
Primera columna le damos longitud 0cm;
Segunda columna le damos la longitud suficiente para poder ver el registro más grande.

:kicking:

143
Visual Basic 6.0 e inferiores / Ejemplo Pop-up menu
« en: Jueves 22 de Mayo de 2003, 17:06 »
Muchas gracias!
    Perdona por mi torpeza..

:beer:

144
Visual Basic 6.0 e inferiores / Campo Númerico
« en: Jueves 22 de Mayo de 2003, 16:38 »
Muchas gracias!!!
:jumpie:

145
Visual Basic 6.0 e inferiores / Re: Ejemplo Pop-up menu
« en: Jueves 22 de Mayo de 2003, 16:31 »
ENTRO A LA PAGINA Y NO TIENE EL MENU DE APUNTES.
SOLO TIENE LOS SIGUIENTES:

HOME; NOTICIAS;MURALLONES;VOTACIONES;EXALUMNOS:RECUERDOS;CUMPLE;CHAT;GUGLE
:comp:

146
Visual Basic 6.0 e inferiores / Re: Ejemplo Pop-up menu
« en: Jueves 22 de Mayo de 2003, 16:00 »
He entrado a la pagina y no encuentro los apuntes.
¿me dice como?

147
Visual Basic 6.0 e inferiores / Re: Campo Númerico
« en: Jueves 22 de Mayo de 2003, 15:53 »
Hola a Tod@s!

    Como se puede controlar que el campo que se introduce es númerico.
Yo lo he hecho así, pero no es del todo correcto,:
'* Pasamos el valor asci para controlar que el dato sea númerico
IntNumero = Asc(Me.TxtCad)

If IntNumero < 48 Or IntNumero > 57 Then
    MsgBox "El valor del campo debe de ser númerico", vbExclamation, "Introdución de Horas"
    Else
    Call ValidacionCamposHoras
    Call SumaHorasProyecto
End If

:kicking:

148
Visual Basic 6.0 e inferiores / ListView
« en: Jueves 22 de Mayo de 2003, 15:51 »
Me comento a mi mismo, debe de tener un Imagelist asociado y acemos referencia a el.

:suerte:

149
Visual Basic 6.0 e inferiores / COMPACTAR BASE DE DATOS
« en: Jueves 22 de Mayo de 2003, 08:19 »
crea un moduolo y haz un call a compactar.
Public Function Compactar()
On Error GoTo Compactar_Err
 SendKeys "%", False
    SendKeys "h", False
    SendKeys "u", False
    SendKeys "o", False
Compactar_Exit:
    Exit Function

Compactar_Err:
    MsgBox error$
    Resume Compactar_Exit
End Function

150
Visual Basic 6.0 e inferiores / Re: ListView
« en: Jueves 22 de Mayo de 2003, 08:12 »
Hola a Tod@s!
   Alguien sabe, como se pueden identificar el tipo de imagenes y número, que se pueden presentar en un control ListView.

Dim itmX As ListItem
    Set itmX = ListView1.ListItems.Add(1, "Horas", "Horas", 4, 1):lightsabre:

Páginas: 1 ... 4 5 [6] 7