• Viernes 29 de Marzo de 2024, 11:56

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 - 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
Cita de: "marcela1513"
bueno disculpa lo k dije en la pregunta k codigo serviria para la conexion en el modulo no keria decir "k hagan las cosas"  y "de copiar y pegar"solo me referia a codigos sin erroneo y si se visual basic no lo preguntaria en el tema,por lo que habia hay muxos kodigos de conexion solo eso...

mira tengo ese codigo k no se si serviria muxo pero no si plantearlo en el modulo

Option Explicit

' ----------------------------------------------------------------------------------------------
' \ -- Descripción : Ejemplo simple para eliminar un registro solo o un rango de filas seleccionado
' ----------------------------------------------------------------------------------------------
' ----------------------------------------------------------------------------------------------

' -- Declaraciones
Private Declare Function SetErrorMode Lib "kernel32" (ByVal wMode As Long) As Long
Private Declare Sub InitCommonControls Lib "Comctl32" ()

Dim cn      As ADODB.Connection
Dim Rs      As ADODB.Recordset

' -----------------------------------------------------------------------------------------
' \ -- Función para cargar la tabla en la grilla y otras opciones
' -----------------------------------------------------------------------------------------
Private Sub pv_Flexgrid_Initialize(MSHFlex As MSHFlexGrid, cn As ADODB.Connection)
   
    ' -- Declarar y crear el recordset
    Set Rs = New ADODB.Recordset
    ' -- Ejecutar el command SQL de la tabla productos
    With Rs
        .CursorLocation = adUseClient
        ' -- Ejecutar comando SQL
        .Open "SELECT [IDProducto],[NombreProducto],[UnidadesEnExistencia],[PrecioUnidad] From Productos Order by [IdProducto]", cn, adOpenStatic, adLockOptimistic
    End With
    With MSHFlex
        .AllowUserResizing = flexResizeColumns
        .FixedCols = 0
        .FixedRows = 1
        .ForeColorFixed = vbHighlight
        .BackColorFixed = vbWhite
        .GridLinesFixed = flexGridDots
        .RowHeight(0) = 450
        .GridColor = RGB(190, 190, 190)
        .SelectionMode = flexSelectionByRow
        Set .DataSource = Rs
       
        Dim i As Integer
        For i = 0 To .Cols - 1
            .ColWidth(i) = 1700
        Next
        .Refresh
    End With
   
End Sub
' -----------------------------------------------------------------------------------------
' \ -- Sub para ejecutar la consulta de eliminación
' -----------------------------------------------------------------------------------------
Private Sub ExecuteQuery(cn As ADODB.Connection, sQuery As String)
On Error GoTo Error_Handler
    ' -- Llamar al método Execute para Eliminar el registro
    cn.Execute sQuery
Exit Sub
Error_Handler:
MsgBox Err.Description, vbCritical
End Sub
' -----------------------------------------------------------------------------------------
' \ -- Botón para eliminar el registro
' -----------------------------------------------------------------------------------------
Private Sub Command1_Click()
           
    On Error GoTo Error_Handler
    Dim sQuery As String
   
    With MSHFlexGrid1
        ' -- Comprobar que hay una fila activa
        If .Row <= 0 Then
            MsgBox " No hay ninguna fila seleccionada para eliminar ", vbExclamation
            Exit Sub
        End If
        ' -- Mostrar en un mensaje la cantidad de filas a eliminar
        If MsgBox("Se van a eliminar " & CStr(Abs(.Row - .RowSel) + 1) & " registros ... ¿ Continuar?", vbQuestion + vbYesNo) = vbNo Then
            Exit Sub
        End If
       
        ' -- Obtener valores del rango seleccionado
        Dim i As Long
        Dim j As Long
        Dim k As Long
        If .Row < .RowSel Then i = .Row: j = .RowSel
        If .Row > .RowSel Then j = .Row: i = .RowSel
        If .Row = .RowSel Then i = .Row: j = .Row
        ' -- Recorrer en un bucle el rango de selección
        For k = i To j
            .Row = k
            sQuery = "DELETE * FROM [Productos] WHERE [IdProducto] = " & CLng(.TextMatrix(.Row, 0))
            Call ExecuteQuery(cn, sQuery)
        Next
       
        ' -- Deshabilitar el redraw para el MSHFlexGrid
        .Redraw = False
        ' -- Cargar nuevamente el Grid para actualizar los datos
        Set .DataSource = Nothing
        ' -- Ejecutar el método Requery para volver a cargar el recordset actualizado
        Rs.Requery
        ' -- Enlazar el conjunto de datos con el Grid
        Set .DataSource = Rs
        ' -- Volver a habilitar el repintado del control Flex
        .Redraw = True
    End With
   
    ' -- Errores
    Exit Sub
Error_Handler:
MsgBox Err.Description, vbCritical
End Sub
' --------------------------------------------------------------------------------------------
' \ -- Inicio
' --------------------------------------------------------------------------------------------
Private Sub Form_Load()
    ' -- ruta de la base de datos
    Dim path_bd As String

    path_bd = App.Path & "datadb1.mdb"

    With MSHFlexGrid1
        ' --Crear una Nueva conexión
        Set cn = New ADODB.Connection
        ' -- Abre la bd pasando de la cadena de conexión OLEDB
        cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path_bd & ";Persist Security Info=False"
        Call pv_Flexgrid_Initialize(MSHFlexGrid1, cn)
    End With
End Sub
' --------------------------------------------------------------------------------------------
' \ -- Fin -- Descargar
' --------------------------------------------------------------------------------------------
Private Sub Form_Unload(Cancel As Integer)
    If Not Rs Is Nothing Then
        If Rs.State = adStateOpen Then Rs.Close
        Set Rs = Nothing
    End If
    Call pvCloseDataBase
End Sub
' --------------------------------------------------------------------------------------------
' \ -- Iniciar InitCommonControls
' --------------------------------------------------------------------------------------------
Private Sub Form_Initialize()
    Call SetErrorMode(2)
    Call InitCommonControls
End Sub
' --------------------------------------------------------------------------------------------
' \ -- Cerrar conexión
' --------------------------------------------------------------------------------------------
Private Sub pvCloseDataBase()
    If Not cn Is Nothing Then
       If cn.State = adStateOpen Then cn.Close
       Set cn = Nothing
    End If
End Sub

6
si tu piensas asi en realidad los demas no aprenderian si lo cerraras si te molesto lo que dije disculpa pero deberias buscar unainformacion buena para que atraigas mas gente al en realidad puedas aportar o la gente saben aportar y que puedan aprender mas pero lo k me me mandaste no es muy revelatorio... :huh:

7
bueno disculpa lo k dije en la pregunta k codigo serviria para la conexion en el modulo no keria decir "k hagan las cosas"  y "de copiar y pegar"solo me referia a codigos sin erroneo y si se visual basic no lo preguntaria en el tema,por lo que habia hay muxos kodigos de conexion solo eso...

8
mal aporte tus ideas...saludos

9
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

10
Visual Basic para principiantes / Re: hola soy nueva necesito codigo para un mantenedor
« en: Miércoles 22 de Diciembre de 2010, 20:41 »
disculpa pero kon eso k saco si tengo k komprarlo lo kiero para descargarlo saludos graxias por el aporte   :huh:

11
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:

12
solo codigos de programacion k se va utilizar ahi en la interfaz(command button) osea que paraescan los datos despues agregarlo,eliminarlos,modificarlos y actualizarlos eso mas k nada eso en la grilla  saludos  &lt;_&lt;   :o   ;)

13
k kieres decir kon eso solo es una opinion k necesito nada mas saludos  :mellow:

14
VB .NET / Re: Vb .net + Acces
« en: Lunes 20 de Diciembre de 2010, 16:34 »
Hola me podrían pasar el ejemplo del mantenedor por favor, es urgente!! los codigos para el formulario visual basic  (guardar,actualizar,modificar,eliminar)mi correo marcela_sakura@hotmail.com
gracias

15
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]