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

Páginas: [1]
1
Visual Basic 6 / Re:Ayuda con la función Shell
« en: Febrero 25, 2012, 02:43:27 am »
Excelente FRASE "el atolondrado puede apagar la PC"

Podrias poner el codigo para ver como te ha quedado

Gracias

2
Visual Basic 6 / Re:Marca en ListView
« en: Febrero 11, 2012, 12:55:10 am »
Muchas Gracias ENTER, seba123neo, ssccaann43 y Bazooka por su tiempo y las ideas.
Al final he mirado como ha dicho ENTER, ya que me parecio genial el poder cargar solo la linea que estoy editando y no recargar todo el ListView

y el Codigo ha quedado asi

Modulo
Código: (vb) [Seleccionar]
Public Sub CargarListView_Cliente(LV_Cliente As ListView, rs As ADODB.Recordset)
On Error GoTo ErrorSub
    LV_Cliente.ListItems.Clear
    If rs.RecordCount > 0 Then
        While Not rs.EOF
            Set objItem = LV_Cliente.ListItems.Add(, , rs(0))
           objItem.SubItems(1) = rs!name
           objItem.SubItems(2) = rs!age
           objItem.SubItems(3) = rs!address
           
            rs.MoveNext
        Wend
    End If
    Exit Sub
ErrorSub:
    If Err.Number = 94 Then Resume Next
End Sub

Form1:
Código: (vb) [Seleccionar]
Private Sub Form_Load()
    CargarListView_Cliente LV_Cliente, rs
End Sub

Private Sub LV_Cliente_DblClick()
    Dim i As Integer
   
    With form2
   
        .IdCliente = LV_Cliente.SelectedItem.Text
       
        For i = 1 To 3
            .Text1(i).Text = LV_Cliente.SelectedItem.ListSubItems(i).Text
        Next
       
        .Show vbModal
       
    End With

End Sub

Form2:
Código: (vb) [Seleccionar]
Private Sub cmdSave_Click()
Dim i As Integer
On Error GoTo ErrorSub

    Select Case ACCION
        Case EDITAR_REGISTRO_CLIENTE
   
            cnn.Execute "UPDATE clientes set name = '" & Trim(Text1(1)) & _
                                             "', age = '" & Trim(Text1(2)) & _
                                             "', address = '" & Trim(Text1(3)) & _
                                             "' where id_cliente = " & IdCliente & ""
        With Form1
            .LV_Cliente.SelectedItem.EnsureVisible
                For i = 1 To 3
                    .LV_Cliente.SelectedItem.SubItems(i) = Text1(i)
                Next i
        End With
        'Aca envio al ListView los datos Modificados y solo recargo los datos de dicho cliente y no recargo todo el ListView
       
        Case AGREGAR_REGISTRO_CLIENTE
       
            cnn.Execute "INSERT INTO clientes " & "(name,age,address) VALUES('" & _
                                     Trim(Text1(1)) & "','" & Val(Text1(2)) & "','" & Trim(Text1(3)) & "')"
       
    rs.Requery 1
   
    Call CargarListView_Cliente(Form1.LV_Cliente, rs)
    'Aca llamo a la Funcion del Modulo ya que tengo que volver a llenar el ListView para que aparezca el nuevo Cliente
    End Select
   
    DoEvents
   
    Unload Me
   
    Set Form2 = Nothing
   
Exit Sub
ErrorSub:
MsgBox Err.Description

End Sub

Y tambien no quiero olvidarme de acalanto de http://www.foro.vb-mundo.com quien me ha dado un ejemplo y mas sus ideas he conseguido que funcione, no se si sera la mejor o mas efectiva de las formas, pero funciono, mas adelante vere si puedo mejorar mas ahun dicho codigo

MUCHAS GRACIAS

3
General / Re:¿Quien me roba internet?
« en: Febrero 09, 2012, 03:04:12 am »
Hola querido YAcosta, la que mas te recomiendo es la que dijo seba123neo, ya que si no se ve, no se "puede sacar la contraseña", todas las demas se "codificaciones" ya sea con beini, winfaxlan, backpiribiri o cualquier sistema basado en linux (nombro linux porque es mas facil para hacerlo), van a sacar tu clave.

Igualmente yo soy de la idea de:
Si un WiFi invade mi propiedad, yo tengo derecho a usarla.... jjj

Pero siendo serios, vamos por el comentario de seba123neo

4
Visual Basic 6 / Re:Marca en ListView
« en: Enero 23, 2012, 10:54:21 pm »
Al indice ya lo tengo guardado, ya que con ese hago los cambios en el FORM de editar, el tema es que no se como pasarle al listview dicho index

Y como tendria que pasarlo a esta funcion

Código: (vb) [Seleccionar]
Public Sub CargarListView_Cliente(LV_Cliente As ListView, rs As ADODB.Recordset)
On Error GoTo ErrorSub
    LV_Cliente.ListItems.Clear
    If rs.RecordCount > 0 Then
        While Not rs.EOF
            Set objItem = LV_Cliente.ListItems.Add(, , rs(0))
           objItem.SubItems(1) = rs!nombre
           objItem.SubItems(2) = rs!edad
            rs.MoveNext
        Wend
    End If
    Exit Sub
ErrorSub:
    If Err.Number = 94 Then Resume Next
End Sub

Que es la que se encarga de cargar el listview

5
Visual Basic 6 / Re:Marca en ListView
« en: Enero 23, 2012, 03:35:40 pm »
Bazooka, el foco lo pierdo ya que al actualizar la BBDD, llamo a la funcion que carga el listview y luego cierro el form donde edito, asi cuando se cierra puedo ver los cambios en el listview


6
Visual Basic 6 / Re:Marca en ListView
« en: Enero 23, 2012, 03:32:57 pm »
Poniendo como HideSelection en false, queda en foco siempre la primer linea del listview y no la que edite

7
Visual Basic 6 / Marca en ListView
« en: Enero 23, 2012, 01:03:49 pm »
Tengo un listview en formato lvwReport con clientes
Cuando hago doble click abre otro form, y pasandole el id_paciente puedo editarlo, y cuando lo guardo por medio de una funcion publica que tengo en un modulo, actualizo dicho listview, y luego cierro el form donde edite

Ejemplo
LISTVIEW

id_cliente  nombre  edad
1               luciano   32
2               david      11
3               maria      15

Si hago doble click en la linea del id_cliente 2, abre un form y puedo editarlo, y cuando lo actualizo mediante un boton hago una llamada a una funcion publica que primero me actualiza el listview con los datos actualizados y luego se cierra el form de edicion

Pero el problema que tengo es que quiero que quede marcada la linea que acabo de actualizar.

Alguien ha echo algo parecido, o puede tirarme alguna idea

Muchas Gracias

Esta es la Funcion que uso para llenar el ListView

Código: [Seleccionar]
Public Sub CargarListView_Cliente(LV_Cliente As ListView, rs As ADODB.Recordset)
On Error GoTo ErrorSub
    LV_Cliente.ListItems.Clear
    If rs.RecordCount > 0 Then
        While Not rs.EOF
            Set objItem = LV_Cliente.ListItems.Add(, , rs(0))
           objItem.SubItems(1) = rs!nombre
           objItem.SubItems(2) = rs!edad
            rs.MoveNext
        Wend
    End If
    Exit Sub
ErrorSub:
    If Err.Number = 94 Then Resume Next
End Sub

Y en el form donde lo muestro lo llamo de la siguiente manera

Código: [Seleccionar]
Private Sub Form_Load()
    CargarListView_Cliente LV_Cliente, rs
End Sub

8
General / Re:Crear dominio web
« en: Diciembre 17, 2011, 07:59:59 pm »
Bien, tu tienes el dominio www.corporacionbelsuzarri.com y quieres que cuando un usuario escriba esa direccion te muestre el contenido de www.belzusarri.com/lapiceros/ pero que en la barra de direccion aparezca www.corporacionbelsuzarri.com

Como dije antes, la unica forma de mostrar contenido de una pagina con distinta direccion en el navegador es por medio de FRAME

Entonces

Tienes el nombre de dominio : corporacionbelsuzarri.com   OK
Este tiene que tener asignado los DNS a algun servidor.
Dentro de ese servidor (corporacionbelsuzarri.com)  creas la pagina index.html como te di en el ejemplo y listo

Recuerda que ser el propietario del dominio no significa que sin asignarle los DNS valla a funcionar

Tambien podrias que preguntar en godaddy si ellos tienen forma de hacerlo sin FRAME, osea por medio del httpd.conf o el php.ini o bien pasar a un plan con multiples dominios, que es distinto a poder agregar subdominios

9
General / Re:Crear dominio web
« en: Diciembre 17, 2011, 05:42:38 pm »
Hola Yacosta, la unica forma de cargar una pagina y que muestre un nombre en la barra de direccion distinta es mediante frames

Osea que si tu tienes el dominio corporacionbelsuzarri.com solo haz una pagina y llamala como index html o index.htm y pega el codigo siguiente codigo

Código: [Seleccionar]
<HTML>
<HEAD>
  <TITLE>Bienvenidos a CorporacionBelsuzarri.com</TITLE>
</HEAD>
<FRAMESET>
<FRAME NAME="indice" SRC="http://corporacionbelsuzarri.com/">
<NOFRAMES>
<P align="center">Tu Navegador no soporta FRAMES</P>
  </NOFRAMES>
</FRAMESET>
</HTML>
Dime si es eso lo que necesitabas o entendi mal


Otro tema el de los subdominios es simple.

Tu tienes el dominio pedro.com, y a este le puedes agregar subdominios pero siempre te quedaria 
subdominio.pedro.com, y no subdominio.com, ya q el subdominio es simplemente un subdominio del dominio proncipal.
No se si con esto ultimo te confundi mas o no, pero dime si lo que buscabas era la solucion que te di

Páginas: [1]