SoloCodigo

pues nada diablito....no me llega ningun archivo a capricorniana1977@hotmail.com


k@rmen[/b][/i]

a ver por ahora solo como eliminar una fila de un datagrid (este datagrid contiene varias tablas) pero la eliminacion seria solo en formal logica algo asi?
sql = "update cab_salida set estado=0 where idsalida=15"

donde el estado=0 sera estado activo
y estado=1 estado anulado

y yo solo quiero q al darle clic en una fila x q elija de mi datagrid esta fila y todos los datos pasen a estado 1 y se desaparescan

hola seba hasta ahora a mi el crystal me ha funcionado bien hasta para hacer facturas....como es tu factura? porq dices q no te sale?

karmen

ahh muchisimas gracias diablo rojo por haberte tomado el tiempo de contestarme
...solo busco algunos ejemplos o aunq sea uno para guiarme de datagrids q contengan varias tablas y como eliminar filas de estos datagrids, agregar y modificar seria chevere pero hasta ahora no  doy con nada parecido

Karmen

lo q pasa es q recien estoy aprendiendo y no enteindo lo q me quieres decir...estoy q aprendo solo viendo y con ejemplos porq sql es nuevo para mi y lo q intento eliminar logicamente es una fila del datagrid y el problema es q mi datagrid contiene varias tablas y por eso me sale error cada vez q intento eliminar con delete asi q opte mejor eliminar logicamente pero la idea la tengo pero no se como seria la sintaxis porq la q intento me sale error de sintaxis
sql="update cab_salida set estado=1 where idsalida"

A ver si aqui si me pueden ayudar

que dificil se me hace esto pero ahi terca yo en aprender......pues ahi va mi problem......: usando ado utilice varias tablas para hacer mi consulta en un data grid y ahora desea agregar, modificar y eliminar (pero solo eliminar aparentemente por medio de una llave q se llamara estado donde 0 sera estado activo y 1 estado eliminado) ....hasta ahora voy avanzando esto pero ya me tranque y todo me sale a medias  ojala alguien pueda ayudarme a terminar esto y principalmente a entenderlo..gracias de antemano



Dim RstPec As New ADODB.Recordset
Dim Temp As New ADODB.Recordset
Dim sql As String
Dim RstNuevo As New ADODB.Recordset
Option Explicit






Private Sub Command2_Click()

Picture2.Visible = True
TxtAreaOrigen.Enabled = False
TxtArea.Enabled = True
TxtSubArea.Enabled = True
TxtUarea.Enabled = True
TxtCodAreaDestino.Enabled = False
TxtAreaDestino.Enabled = True
TxtSubareaDestino.Enabled = True
TxtUareaDestino.Enabled = True
TxtCodProducto.Enabled = False
TxtPartida.Enabled = True
TxtDescripcion.Enabled = True
TxtUnidad.Enabled = True
TxtCantidad.Enabled = True
TxtPrecio.Enabled = True
TxtSubTotal.Enabled = True
TxtStock.Enabled = True
TxtTotal.Enabled = True
   

'        sql = "update Bien " & _
'            "set Partida ='" & Me.TxtPartida.Text & "', DESCRIPCION='" & Trim(TxtDescripcion) & "', " & _
'            "UNIDAD='" & Trim(TxtUnidad) & "', " & _
'            "WHERE Cod ='" & TxtCodProducto.Text & "'"
            '"Precio='" & Trim(TxtPrecio) & "', " & _
            '"Fechamod='" & TxtFechMod & "', " & _
            '"Usuariomod='" & UserActive & "' " &
'            Debug.Print sql
        '    DbPrin.Execute sql
            'Valor = "Registro Actualizado "
        '    'MsgBox Valor
'           MsgBox "SE MODIFICO CON EXITO ..!", vbExclamation

If Command2.Caption = "&Grabar" Then
   Command2.Caption = "&Modificar"
   Call Activa(False)
   MsgBox "REGISTRO MODIFICADO CON EXITO ..!", vbExclamation, "Sistema de Almacen"
   Command1.Enabled = True
    sql = "update BIEN set PARTIDA ='" & Me.TxtPartida.Text & _
    "', DESCRIPCION = '" & TxtDescripcion.Text & _
    "', UNIDAD = '" & TxtUnidad.Text & _
    "' WHERE COD = '" & TxtCodProducto.Text & "'"
       
'    sql = "update CAB_SALIDA set CODAREAD ='" & Me.TxtCodAreaDestino.Text & _
'    "', MODALIDAD = '" & TxtModalidad.Text & _
'    "', USERMOD = '" & TxtUsuario.Text & _
'    "', FECHMOD = '" & TxtFechMod.Text & _
'    "' WHERE (IDSALIDA='209')"
   
     

    sql = "update DET_SALIDA set CANTIDAD ='" & Me.TxtCantidad.Text & _
    "', PRECIO = '" & TxtPrecio.Text & _
    "', STOCK_ALDIA = '" & TxtStock.Text & _
    "' WHERE COD = '" & TxtCodProducto.Text & "'"
    Debug.Print sql
    DbPrin.Execute sql
    RstPec.Requery
Else
If Command2.Caption = "&Modificar" Then
Command2.Caption = "&Grabar"
Activa (True)
End If
Refrescar
End If
End Sub



Public Sub Refrescar()
Command1.Refresh
Command2.Refresh
Command3.Refresh
End Sub

Public Sub Activa(TF As Boolean)
TxtArea.Enabled = TF
TxtSubArea.Enabled = TF
TxtUarea.Enabled = TF
TxtAreaDestino.Enabled = TF
TxtSubareaDestino.Enabled = TF
TxtUareaDestino.Enabled = TF
TxtPartida.Enabled = TF
TxtDescripcion.Enabled = TF
TxtUnidad.Enabled = TF
TxtCantidad.Enabled = TF
TxtPrecio.Enabled = TF
TxtSubTotal.Enabled = TF
TxtStock.Enabled = TF
TxtTotal.Enabled = TF
End Sub

Private Sub Command3_Click()
Unload Me
End
End Sub

Private Sub DgEdicion_Click()
If RstPec.RecordCount > 0 Then
TxtAreaOrigen = RstPec(1)
TxtArea = RstPec(2)
TxtSubArea = RstPec(3)
TxtUarea = RstPec(4)
TxtCodAreaDestino = RstPec(5)
TxtAreaDestino = RstPec(6)
TxtSubareaDestino = RstPec(7)
TxtUareaDestino = RstPec(8)
TxtCodProducto = RstPec(9)
TxtPartida = RstPec(10)
TxtDescripcion = RstPec(11)
TxtUnidad = RstPec(12)
TxtCantidad = RstPec(13)
TxtPrecio = RstPec(14)
TxtSubTotal = RstPec(15)
TxtStock = RstPec(16)
TxtTotal = RstPec(15)            
End If
End Sub

Private Sub Form_Load()
Dim sql As String
FrmPassword.Mascar.ApplySkin Me.hwnd
Me.Top = 50
Me.Left = 1150
Picture1.BackColor = RGB(210, 218, 227)
Picture2.BackColor = RGB(210, 218, 227)
Label1.BackColor = RGB(210, 218, 227)
Label2.BackColor = RGB(210, 218, 227)
Label3.BackColor = RGB(210, 218, 227)
Label4.BackColor = RGB(210, 218, 227)
Label5.BackColor = RGB(210, 218, 227)
Label6.BackColor = RGB(210, 218, 227)
Dim RstNuevo As New ADODB.Recordset
Me.TxtUsuario = UserActive
Me.TxtFechMod = Date
sql = "SELECT right(('000'+convert(nvarchar,CODTAB)),2)+' '+DESCRIPCION as opcion FROM MODALIDAD"

    AsignaRst RstNuevo, sql, DbPrin
    CmbModalidad.AddItem "Seleccionar Opcion"
   
    Do While Not RstNuevo.EOF
        CmbModalidad.AddItem RstNuevo!opcion
        RstNuevo.MoveNext
    Loop
    CmbModalidad.ListIndex = 0
   
    sql = "SELECT DOCUMENTO.NUMERO, dbo.CAB_SALIDA.CODAREAO, AREAS_1.AREA AS AREA_ORIGEN, AREAS_1.SUBAREA AS SUB_AREA_ORIGEN, " & _
                      "AREAS_1.U_AREA AS U_AREA_ORIGEN, dbo.CAB_SALIDA.CODAREAD, dbo.AREAS.AREA AS AREA_D, dbo.AREAS.SUBAREA AS SUBAREA_D, " & _
                      "dbo.AREAS.U_AREA AS U_AREA_D, dbo.DET_SALIDA.COD AS CODBIEN, dbo.BIEN.PARTIDA, dbo.BIEN.DESCRIPCION, dbo.BIEN.UNIDAD, " & _
                      "dbo.DET_SALIDA.CANTIDAD, dbo.DET_SALIDA.PRECIO, dbo.DET_SALIDA.CANTIDAD * dbo.DET_SALIDA.PRECIO AS SUBTOTAL, " & _
                      "dbo.DET_SALIDA.STOCK_ALDIA AS STOCK, dbo.CAB_SALIDA.FECHMOD, dbo.CAB_SALIDA.USERMOD, dbo.CAB_SALIDA.FECHA, " & _
                      "dbo.MODALIDAD.DESCRIPCION AS MODALIDAD " & _
                      "FROM CAB_SALIDA INNER JOIN " & _
                      "dbo.DET_SALIDA ON dbo.CAB_SALIDA.IDSALIDA = dbo.DET_SALIDA.IDSALIDA INNER JOIN " & _
                      "dbo.DOCUMENTO ON dbo.CAB_SALIDA.IDSALIDA = dbo.DOCUMENTO.IDSALIDA INNER JOIN " & _
                      "dbo.AREAS ON dbo.CAB_SALIDA.CODAREAD = dbo.AREAS.CODAREA INNER JOIN " & _
                      "dbo.AREAS AREAS_1 ON dbo.CAB_SALIDA.CODAREAO = AREAS_1.CODAREA INNER JOIN " & _
                      "dbo.BIEN ON dbo.DET_SALIDA.COD = dbo.BIEN.COD INNER JOIN " & _
                      "dbo.MODALIDAD ON dbo.CAB_SALIDA.MODALIDAD = dbo.MODALIDAD.CodTab WHERE(dbo.CAB_SALIDA.ESTADO = '0') ORDER BY dbo.DOCUMENTO.NUMERO "
   
   
     Debug.Print sql
    AsignaRst RstPec, sql, DbPrin
    If RstPec.RecordCount > 0 Then
        Set Me.DgEdicion.DataSource = RstPec
        'AjustaAncho
        'Set DGAlumno.DataSource = RstNuevo
    Else
        MsgBox "No existe ninguna Pecosa!!"
    End If
   
   
End Sub

Private Sub TxtEBusca_Change()

 sql = "SELECT DOCUMENTO.NUMERO, dbo.CAB_SALIDA.CODAREAO, AREAS_1.AREA AS AREA_ORIGEN, AREAS_1.SUBAREA AS SUB_AREA_ORIGEN, " & _
                      "AREAS_1.U_AREA AS U_AREA_ORIGEN, dbo.CAB_SALIDA.CODAREAD, dbo.AREAS.AREA AS AREA_D, dbo.AREAS.SUBAREA AS SUBAREA_D, " & _
                      "dbo.AREAS.U_AREA AS U_AREA_D, dbo.DET_SALIDA.COD AS CODBIEN, dbo.BIEN.PARTIDA, dbo.BIEN.DESCRIPCION, dbo.BIEN.UNIDAD, " & _
                      "dbo.DET_SALIDA.CANTIDAD, dbo.DET_SALIDA.PRECIO, dbo.DET_SALIDA.CANTIDAD * dbo.DET_SALIDA.PRECIO AS SUBTOTAL, " & _
                      "dbo.DET_SALIDA.STOCK_ALDIA AS STOCK, dbo.CAB_SALIDA.FECHMOD, dbo.CAB_SALIDA.USERMOD, dbo.CAB_SALIDA.FECHA, " & _
                      "dbo.MODALIDAD.DESCRIPCION AS MODALIDAD " & _
                      "FROM CAB_SALIDA INNER JOIN " & _
                      "dbo.DET_SALIDA ON dbo.CAB_SALIDA.IDSALIDA = dbo.DET_SALIDA.IDSALIDA INNER JOIN " & _
                      "dbo.DOCUMENTO ON dbo.CAB_SALIDA.IDSALIDA = dbo.DOCUMENTO.IDSALIDA INNER JOIN " & _
                      "dbo.AREAS ON dbo.CAB_SALIDA.CODAREAD = dbo.AREAS.CODAREA INNER JOIN " & _
                      "dbo.AREAS AREAS_1 ON dbo.CAB_SALIDA.CODAREAO = AREAS_1.CODAREA INNER JOIN " & _
                      "dbo.BIEN ON dbo.DET_SALIDA.COD = dbo.BIEN.COD INNER JOIN " & _
                      "dbo.MODALIDAD ON dbo.CAB_SALIDA.MODALIDAD = dbo.MODALIDAD.CodTab where Numero = '" & TxtEBusca.Text & "'"
                       
                       'sql = "select * From deberia_ser where Numero = '" & TxtEBusca.Text & "'"
                       
AsignaRst RstPec, sql, DbPrin
If RstPec.RecordCount > 0 Then Set Me.DgEdicion.DataSource = RstPec
End Sub





..........
PD.: hay muchas cosas q no me salen y por eso las estoy ignorando....creo q ya me enrede ojala alguien me pueda orientar o mandar algun ejemplo parecido ami correo usando un grid y varios datos con tablas combinadas para hacer una eliminacion por filas en un grid, modicacion haciendo clic en una fila de grid y asi se pasn los datos a las respectivas cajas de texto y recien ahi poder modificar y grabar los datos


capricorniana1977@hotmail.com-----> Karmen  
 
   
Please help me

creo q ta muy komplicado q nadie me ayuda [/size]

Si me indicas tu e-mail, te puedo enviar un ocx SKIN para tus formularios.

capricorniana1977@hotmail.com

o alguien q me enseñe please a usar los skins en visual basic please...gracias de antemano