SoloCodigo

Cuando insertas un control en un formulario, todos son visibles.
Si deseas que no sea visible en tiempo de ejecucion, puedes hacer:
a). En el diseño, presiona sobre el control, y en la propiedad VISIBLE pon FALSe
. En tiempo de ejecucion, puedes hacer lo mismo:
     Por ejemplo, supongamos que tienes un boton, entonces en el load() del formulario, colocas command1.visible=false

La parte de explicar, me imagino que sera para documentar lo que has hecho, simplemente, utiliza la comilla simple para escribir comentarios

Muchas gracias, juank, por tu respuesta, voy a averiguar mas respecto a tus sugerencias.

:: VB 6.0 y SQL 7.0 ::

En mi casa tengo una replica de la base de datos de la oficina.
Los fines de semana, hago modificaciones tanto del sistema como de las tablas.
El dia lunes, al llegar  a la oficina, actualizo el sistema, pero las tablas, las tengo que:
- O actualizar una a una, si son pocas.
- Hacer un scripts de TODA la base de datos de la casa, y exportar los datos a una planilla EXCEL.
   Al llegar a la oficina, hechar a correr el scripts, que OBVIAMENTE BORRA TODAS LAS TABLAS, pero las crea con la estructura nueva, y posteriormente poblar las tablas, importando los datos.

Claramente, la tarea es tediosa, si pensamos que esto ocurre los viernes, donde me llevo las cosas para la casa, y los lunes cuando vuelvo al trabajo

Existe alguna forma, que mi sistema, lea el script nuevo, y actualice SOLO las tablas que han sufrido alguna variacion?

Hola amigos:

Tengo una aplicacion que esta operando ok.
He diseñado el archivo de ayuda con el HCW.EXE  que trae VB.

Ahora la pregunta del millon.

En mi aplicacion, existe un menu Ayuda, que se supone debiera llamar al archivo de ayuda que he diseñado, como lo linkeo?

Igualmente deseo que desde cualquier parte del programa, al presionar F1, aparezca mi ayuda.

Gracias por la colaboracion

Hola amigos:

Estoy acostumbrado a usar SQL Server 7.0, asi es que las sentencias SQL no son mi problema.

Ahora, me solicitaron usar ACCESS, y deseo saber que sentencia debo utilizar para encontrar todos los registros que contengan un substring dentro de un campo.

EN SQL Server la sentencia seria:
select codigo, descripcion from Articulos where descripcion LIKE '%cadena%'

Pero en Access, esta sentencia  me marca error en LIKE,

Alguien me puede decir como hacerlo?

Muchisimas gracias de antemano

Super ambigua tu pregunta:

a) Quieres que tus form's tengan un icono asociado?

Quieres guardar un archivo ¿de que tipo?, ¿en que formato?, por que recuerda que las asociaciones de iconos v/s extension, se dan al instalar un programa determinado

Se mas explicito

Lo que ocurre es que tienes el evento de controlar la tecla presionada en el form, que hace lo que indicas.
Tienes que controlar la presion de la tecla en el control que desees.
Hay varias formas de resolver este tema.

1.- Supongamos que tienes 3 text (text1,text2 y text3), entonces deberias tener que en la propiedad tabindex de cada text, indicar como pasara el tabulador. Esto es, desde el text1 al text2, y del text2 al text3, entonces en el diseño pones
    text1.tabindex=0
    text2.tabindex=1
    text3.tabindex=2

   en el keypress de cada text colocas
   
   if keyascii=13 then
      sendkeys "{TAB}"
   endif

2.- La otra forma, es forza el foco a un text en particular,
    en el text1
    if keyascii=13 then
       text2.setfocus
    endif

    en el text2
    if keyascii=13 then
       text3.setfocus
    endif


3.- La ultima opcion, es crear una matriz de controles text, por ejemplo, si tienes 5 controles text(index) (del 0 al 5)

     en el keypress del text colocas

     if keyascii=13 then
        if index<5 then
           text(index+1).setfocus
        endif
     endif

Espero te sirva

La solucion que te di funciona.
La idea era simple, lo que tenias que hacer era unos ajustes necesarios para que operara:

Ahi te va el codigo completo:

Private Sub Form_Load()
MaskEdBox1.Mask = "##.###.###-&"
cmdGuardar.Enabled = False
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub MaskEdBox1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Call Verifica
    Text1.SetFocus
End If
End Sub

Public Sub Verifica()
sRut = Trim(MaskEdBox1.Text)
If Es_Rut(sRut, 0) = True Then
    If Len(Text1.Text) > 0 Then
        If Len(Text2.Text) > 0 Then
            cmdGuardar.Enabled = True
        Else
            cmdGuardar.Enabled = False
        End If
    Else
        cmdGuardar.Enabled = False
    End If
Else
    cmdGuardar.Enabled = False
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Call Verifica
    Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Call Verifica
End If
End Sub

Public Function Es_Rut(ByVal X As String, ByVal Y As Integer) As Boolean
' Funcion que recibe el string con el Rut y lo analiza
' Y=0 no entrega mensaje
' Y=1 mensaje de RUT
' Y=2 mensaje de ficha
' Si  es  rut  entrega Es_Rut=True
' Si no es rut entrega Es_Rut=False
X = Trim(X)
xLargo = Len(X)
xposicion = InStr(X, "-")
If xposicion <> 0 Then
    xNumero = Format(Mid$(X, 1, xposicion - 1), "00000000")
    xdv = Mid$(X, xposicion + 1, xLargo - xposicion + 1)
    If IsNumeric(xNumero) Then
        If Len(xdv) = 1 Then
            If IsNumeric(dv) Then
                xBandera = 1
            Else
                If UCase(dv) = "K" Then
                    xBandera = 1
                Else
                    xBandera = 0
                End If
            End If
        Else
            xBandera = 0
        End If
    Else
        xBandera = 0
    End If
    If xBandera = 1 Then
        'posiciones     : 8 7 6 5 4 3 2 1
        'multiplicar por: 3 2 7 6 5 4 3 2
        xpos8 = CInt(Mid(xNumero, 1, 1))
        xpos7 = CInt(Mid(xNumero, 2, 1))
        xpos6 = CInt(Mid(xNumero, 3, 1))
        xpos5 = CInt(Mid(xNumero, 4, 1))
        xpos4 = CInt(Mid(xNumero, 5, 1))
        xpos3 = CInt(Mid(xNumero, 6, 1))
        xpos2 = CInt(Mid(xNumero, 7, 1))
        xpos1 = CInt(Mid(xNumero, 8, 1))
        xSuma = xpos8 * 3 + xpos7 * 2 + xpos6 * 7 + xpos5 * 6 + xpos4 * 5 + xpos3 * 4 + xpos2 * 3 + xpos1 * 2
        xentero = Int(xSuma / 11)
        xValor = xSuma - xentero * 11
        xresto = 11 - xValor
        Select Case xresto
            Case 0 To 9: dv = CStr(xresto)
            Case 10: dv = "K"
            Case 11: dv = "0"
        End Select
        If UCase(xdv) = dv Then
            Es_Rut = True
        Else
            Es_Rut = False
            If Y <> 0 Then
                If Y = 1 Then
                    Msg = "El rut correcto debe ser " & Format(CDbl(xNumero), "#,##0") & "-" & dv
                Else
                    Msg = "La ficha correcta debe ser " & Format(CDbl(xNumero), "#,##0") & "-" & dv
                End If
                MsgBox Msg, vbInformation, "Advertencia"
            End If
        End If
    Else
        Es_Rut = False
    End If
Else
    Es_Rut = False
End If
End Function

usa las siguientes instrucciones

Archivo = "MIPLANILLA.XLS
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Open Archivo
xl.Visible = True

:: VB 6.0 y SQL 7.0 ::

Generalmente al crear tablas en la base de datos SQL 7.0, en la medida que se hacen actualizaciones al sistema, algunas veces es necesario hacer modificaciones a las tablas, ya sea modificar, agregar o eliminar campos, eliminar o crear tablas, etc.

Lo ideal seria, tener una linea base de la estructura de las tablas de la base de datos, y a partir de ahi, generar un scripts que actualice las tablas.

Alguien sabe como resolver esta situacion?

En la empresa en que trabajo se adquirio un software contable, que cada vez que nos envian un update, el sistema automaticamente actualiza las tablas de su base de datos. ¿Como lo hace?

Alguien sabe como resolver esta situación?

Ejemplo

Te envio unos ejemplos que espero te sirvan

Tengo un codigo que te sirve, pero pesa mas de 128 KB (que es lo que soporta este foro para enviar.

Escribeme a jose_arriagada@hotmail.com pidiendo este codigo y te lo envio