• Viernes 8 de Noviembre de 2024, 18:48

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.


Temas - marcela1513

Páginas: [1]
1
Bases de Datos / ELIMINAR UNA LISTVIEW A SQL
« en: Viernes 7 de Enero de 2011, 14:53 »
Hola a todos bueno queria saber komo puedo eliminar a una listview a sql tengo este codigo solo me elimina a a la list solo me falta en eliminar a la sql 2000

Private Sub cmddelete_Click()
Dim X As Long
X = 0
Do While X < List1.ListCount
If List1.Selected(X) = True Then
List1.RemoveItem X
Else
X = X + 1
End If
Loop
MsgBox "Si quiere Eliminar seleccione un elemento de la lista", vbInformation + vbOKOnly, ""
'traer el codigo de la seleccion del list, para despues pasarlo como parametro al SP que elimina
'Set Rst5 = mobjelimi.borrar_cod_estado(strCString, txtinfo1.Text) 'List
'If Rst5.BOF And Rst5.EOF Then
'MsgBox "No Existen Datos Asociados", vbOKOnly + vbCritical, "Advertencia"
cmddelete.Enabled = True
List1.Enabled = True

'Else

txtinfo1.Enabled = True
'****devuelve en la caja de texto los campos que correspoden
'Rst5.MoveFirst
'Do While Not Rst5.EOF
'List1.AddItem CStr(Rst5!cod_estado)
'Elimina un dato de la lista. Aquel cuya dirección u orden figure en txtinfo1.Text
'List1.AddItem CStr(Rst5!descrip_estado)
'List1.RemoveItem List1.ListIndex
'Label1.Caption = "Hay " & List1.ListCount & " Elementos"
'Rst5.MoveNext
'End If
End Submarcela1513
Nuevo miembro
 
Mensajes: 14
Registrado: Lun Dic 20, 2010 9:34 am
EmailMSNM/WLM

2
Visual Basic 6.0 e inferiores / ELIMINAR UNA LISTVIEW A SQL
« en: Viernes 7 de Enero de 2011, 14:43 »
Hola a todos bueno queria saber komo puedo eliminar a una listview a sql tengo este codigo solo me elimina a la list solo me falta en eliminar a la sql 2000 para un mantendor saludos seria de muxa ayuda
 :hitcomp:  :hola:  :ouch:  :wacko:

Private Sub cmddelete_Click()
Dim X As Long
X = 0
Do While X < List1.ListCount
If List1.Selected(X) = True Then
List1.RemoveItem X
Else
X = X + 1
End If
Loop
MsgBox "Si quiere Eliminar seleccione un elemento de la lista", vbInformation + vbOKOnly, ""
'traer el codigo de la seleccion del list, para despues pasarlo como parametro al SP que elimina
'Set Rst5 = mobjelimi.borrar_cod_estado(strCString, txtinfo1.Text) 'List
'If Rst5.BOF And Rst5.EOF Then
'MsgBox "No Existen Datos Asociados", vbOKOnly + vbCritical, "Advertencia"
cmddelete.Enabled = True
List1.Enabled = True

'Else

txtinfo1.Enabled = True
'****devuelve en la caja de texto los campos que correspoden
'Rst5.MoveFirst
'Do While Not Rst5.EOF
'List1.AddItem CStr(Rst5!cod_estado)
'Elimina un dato de la lista. Aquel cuya dirección u orden figure en txtinfo1.Text
'List1.AddItem CStr(Rst5!descrip_estado)
'List1.RemoveItem List1.ListIndex
'Label1.Caption = "Hay " & List1.ListCount & " Elementos"
'Rst5.MoveNext
'End If
End Sub

3
Visual Basic para principiantes / ELIMINAR UNA LISTVIEW A SQL
« en: Jueves 6 de Enero de 2011, 16:33 »
Hola a todos bueno queria saber komo puedo eliminar  a una listview a sql  tengo este codigo  solo me elimina a  a la list solo me falta en eliminar  a la sql 2000

Private Sub cmddelete_Click()
Dim X As Long
    X = 0
Do While X < List1.ListCount
If List1.Selected(X) = True Then
List1.RemoveItem X
Else
X = X + 1
End If
Loop
  MsgBox "Si quiere Eliminar seleccione un elemento de la lista", vbInformation + vbOKOnly, ""
    'traer el codigo de la seleccion del list, para despues pasarlo como parametro al SP que elimina
     'Set Rst5 = mobjelimi.borrar_cod_estado(strCString, txtinfo1.Text) 'List
        'If Rst5.BOF And Rst5.EOF Then
         'MsgBox "No Existen Datos Asociados", vbOKOnly + vbCritical, "Advertencia"
          cmddelete.Enabled = True
          List1.Enabled = True
         
         'Else
         
          txtinfo1.Enabled = True
            '****devuelve en la caja de texto los campos que correspoden
                  'Rst5.MoveFirst
               'Do While Not Rst5.EOF
                'List1.AddItem CStr(Rst5!cod_estado)
            'Elimina un dato de la lista. Aquel cuya dirección u orden figure en txtinfo1.Text
            'List1.AddItem CStr(Rst5!descrip_estado)
            'List1.RemoveItem List1.ListIndex
            'Label1.Caption = "Hay " & List1.ListCount & " Elementos"
             'Rst5.MoveNext
        'End If
End Sub

4
Visual Basic para principiantes / codigo mayor ingresar tabla en la caja de texto
« en: Jueves 30 de Diciembre de 2010, 15:31 »
hola me surgio la duda de Traer el codigo mayor de lo que tienes ingresado en la tabla estado, campo cod>-estado.......y despues pasarlo a la caja de texto donde le sumas un uno a ese codigo y eso lo muestras en la caja de texto ?

5
Visual Basic para principiantes / como puedo hacer la conexion de vb kon el sql en modulo ?
« en: Miércoles 22 de Diciembre de 2010, 20:46 »
wuenas como podria  hacer la conexion de vb kon el sql en modulo y modulo de clases?para que aparesca en grilla los datos de sql
y k tipo de codigo es mas efectiva sin problemas saludos

6
Visual Basic para principiantes / form hijo que vuelva mdiform principal
« en: Martes 21 de Diciembre de 2010, 17:46 »
bueno hola hice un formulario mdi principal y k despues apretar un formulario aparesca  y despues para volver komo que el form hijo llame al mdi form  principal k codigo se podria usar saludos :mellow:

7
Visual Basic para principiantes / hola soy nueva necesito codigo para un mantenedor
« en: Lunes 20 de Diciembre de 2010, 15:28 »
Hola como están soy nueva bueno necesito opiniones y ayuda ya que estoy en la U y necesito códigos de programación  para un mantenedor  de estados en  visual Basic con un formulario, en  un mantenedor y los requerimientos son:

Código Estado (Buscar) en el texto se pone el código (inicia búsqueda)

Y los otros botones son guardar, modificar, eliminar, actualizar, limpiar y volver
Seria de gran aporte y ayuda
Saludos gracias
 ^_^  :P

Páginas: [1]