Programación General > Visual Basic 6.0 e inferiores

 Para Nostromo

(1/1)

cancervero:
OYE, YO SOY CARLOS LA PERSONA QUE NECESITA AYUDA CON EL INVENTARIO, YO SOLO NECESITO COMO MOSTRAR EL DESCUENTO DE LA EXISTENCIA DE UN ARTICULO CUANDO ES VENDIDO O SACADO DE LA EXISTENCIA, SI PUEDES ACLARARME LA DUDA TE LO AGRADESCO, Y EXPLICAME COMO DESARROLLO EL RICHTEXTBOX?

nostromo:
Hola;

Podemos realizar lo siguiente:

Proyectos / Referencias / Microsoft DAO 3.51 Object Library

Realizamos la Consulta:


--- Código: Text ---         Option Explicit         Dim db As Database         Dim rs As Recordset         Dim ac As String         Dim art As Integer         Dim s As String         Dim men, m1, m2,m3,  mensaje As String Private Sub cmdConsulta_Click()                 s = vbCrlf & vbCrLf          art = txtIDArticulo  'Identificación del artículo de la consulta         ac = .txtUsoCarpe & "\" & .lblArchivo & ".mdb"        Set db = OpenDatabase(ac)        Set rs = db.OpenRecordset("Select Sum(Stock) From ESTADO" Where & art)         men = rs.Fields(0)          m1 = "Estado de Resultado Bodega VVV" & s        m2 = "Stock actual del Artículo Ref Nº " & art & " al " & lblfecha & s        m3 = "Quedan : " & men & " Unidades."         mensaje = m1 & m2 & m3   'Cuerpo del mensaje         'RichTextBox        rtbInforme.Text = mensaje         mensaje = ""End Sub  
Nos vemos.

tksko:
por favor contactame por msn que necesito ayduaaaaa

gracias

Navegación

[0] Índice de Mensajes