• Domingo 12 de Mayo de 2024, 23:52

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

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Re: hola necesito algoritmo para validar un rut, porfa´´de a
« en: Jueves 7 de Noviembre de 2002, 06:31 »
Espero te sirva.
Sub ruti(num)//num=es el rut sin puntos ni digito verificador
Dim algo As Integer
  carrut = Str(num)
  wl = 0
  suma = 0
    cardig = Space(1)
    If num > 0 Then
        largo = Len(num)
        If largo = 8 Then
            mult = 3
           Else
            mult = 2
        End If
        For posicion = 1 To largo
            If mult < 2 Then
               mult = 7
            End If
            carrut = LTrim(carrut)
            nume = Mid(carrut, posicion, 1)
            suma = suma + Val(nume) * mult
            mult = mult - 1
        Next posicion
        Resto = suma Mod 11
        If Resto = 0 Then
           cardig = "0"
        Else
            If Resto = 1 Then
                cardig = "K"
            Else
                cardig = Mid(11 - Resto, 1)
            End If
        End If
        digi = cardig
        If Text1(1).Text = cardig Then// text1(1).text se encuentra el digito verificador
           wl = 1
         Else
           wl = 0
        End If
    End If
End Sub
:P

2
Visual Basic 6.0 e inferiores / busqueda con 3 tabla desde access en 1 formulario
« en: Jueves 7 de Noviembre de 2002, 05:51 »
dim bd as database
dim persona as recordset
set persona=bd.openrecordset("SELECT personal.nombre AS Nombre, comuna.comuna AS Comuna, cargos.nombre AS Cargo
FROM cargos INNER JOIN (comuna INNER JOIN personal ON comuna.codigo = personal.cod_comuna) ON cargos.codigo = personal.cargo
WHERE (((comuna.comuna)="2") AND ((cargos.nombre)="5"))
GROUP BY personal.nombre, comuna.comuna, cargos.nombre")
Espero te sirva si no es asi especifica mejor tu pregunta. chao
:P

3
Visual Basic 6.0 e inferiores / Problema con datagrig
« en: Jueves 7 de Noviembre de 2002, 05:41 »
Realmente no se ocupar datagrid, pero si el msflexgrid y es muy similar, pero no igual. prueba este codigo y espero te resulte.

Private Sub Command1_Click()
MSFlexGrid1.Col = 3
MSFlexGrid1.Row = 4
MSFlexGrid1.Text = "ESTADO"
End Sub


Private Sub Form_Load()
MSFlexGrid1.Cols = 5
MSFlexGrid1.Rows = 6
End Sub

4
Visual Basic 6.0 e inferiores / Re: como consultar de dos tabla s ala vez
« en: Jueves 7 de Noviembre de 2002, 05:06 »
Dim bd as basedatos
Dim persona as recordset
set persona = bd.openrecordset("SELECT personal.rut, personal.nombre, cargos.nombre AS cargo
FROM personal INNER JOIN cargos ON personal.cargo = cargos.codigo")
esta es la sentencia que debes utilizar para consultar dos tablas desde visual.:P

Páginas: [1]