Sistema de caja en visual basic 6.0 [Resuelto]

Mirá este mini sistema de control de stock lo realice para vos, no utilizo el data control sino que lo accedo todo por código, pero con este código podes tener una idea de como manejarte.

En el formulario agregas dos combos (combo1 y combo2)

Luego agrega un frame(Frame1) con el caption "Control de Stock" y dentro del mismo pones cuatro casillas de
texto en este orden:
text1 para ---> Clave del Producto
text2 para ---> Producto
text3 para ---> Proveedor
text4 para ---> Cantidad

Agregas otro frame(Frame2) con el captión "Facturación de Ventas" y dentro del mismo pones cuatro casillas mas de texto en este orden:

text8 para ---> Clave del Producto
text7 para ---> Producto
text6 para ---> Proveedor
text5 para ---> Cantidad Vendida.

Dentro de este frame ingresas un commandbutton con el caption "Imprimir factura"

Este código que desarrolle esta tarde, funciona con una base de datos access, cuyo nombre es "Fotos", tiene una tabla creada nombrada como "Tabla1", y los siguientes campos:

nombre tipo
----------------------------------------
clave Número (Indexado sin duplicados)
producto texto
cantidad texto
proveedor texto
-----------------------------------------

Ahora te dejo el código para que lo estudies:
-------------------------------------------------------
Option Explicit
' Objeto para acceder directamente a la base usando código sin el datacontrol
Private cnn As ADODB.Connection
Private rst As ADODB.Recordset

Private Sub Combo1_Click()
Dim sBase
sBase = App.Path & "\fotos.mdb"
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT * FROM Tabla1 WHERE clave = " & Combo1.Text, cnn

Text1.Text = rst.Fields!Clave
Text2.Text = rst.Fields!producto
Text3.Text = rst.Fields!proveedor
Text4.Text = rst.Fields!cantidad
cnn.Close
End Sub

Private Sub Combo2_Click()
Dim sBase
sBase = App.Path & "\fotos.mdb"
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT * FROM Tabla1 WHERE producto = '" + Combo2.Text + "';", cnn

Text1.Text = rst.Fields!Clave
Text2.Text = rst.Fields!producto
Text3.Text = rst.Fields!proveedor
Text4.Text = rst.Fields!cantidad
cnn.Close
End Sub

Private Sub Command1_Click()
Dim sBase
sBase = App.Path & "\fotos.mdb"
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT * FROM Tabla1 WHERE clave = " & Text8.Text, cnn, adOpenDynamic, adLockOptimistic

'rst.Fields!Clave = Text8.Text
'rst.Fields!producto = Text7.Text
'rst.Fields!proveedor = Text6.Text
rst.Fields!cantidad = Val(Text4.Text) - Val(Text5.Text)
Text4.Text = rst.Fields!cantidad
rst.Update
rst.MoveFirst

cnn.Close
Text8.Text = ""
Text7.Text = ""
Text6.Text = ""
Text5.Text = ""
End Sub

Private Sub Form_Load()
On Error Resume Next
' Asignar el nombre de la base de datos
' (si la aplicación se ejecuta en el directorio raiz, quitar el \)
Dim sBase
sBase = App.Path & "\fotos.mdb"
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT * FROM Tabla1", cnn

Do Until rst.EOF
Combo1.AddItem rst.Fields(0).Value
Combo2.AddItem rst.Fields(1).Value
rst.MoveNext
Loop
Combo1.ListIndex = 0
Combo2.ListIndex = 0
rst.MoveFirst
cnn.Close
End Sub

Private Sub Text1_DblClick()
Text8.Text = Text1.Text
Text7.Text = Text2.Text
Text6.Text = Text3.Text
End Sub

Private Sub Text2_DblClick()
Text8.Text = Text1.Text
Text7.Text = Text2.Text
Text6.Text = Text3.Text
End Sub


Private Sub Text3_DblClick()
Text8.Text = Text1.Text
Text7.Text = Text2.Text
Text6.Text = Text3.Text
End Sub


Private Sub Text4_DblClick()
Text8.Text = Text1.Text
Text7.Text = Text2.Text
Text6.Text = Text3.Text
End Sub
--------------------------------------------------------------

Esperando haberte sido util, te dejo un abrazo.

Cualquier duda, estoy a tu disposición.


Luis

podes realizar una consulta de actualizacion con sql
ej

if rsventas.estate = 1 then rsventas.close
sql= "select * from productos"
rsventas.Open SQL, miconexion, adOpenStatic, adLockOptimistic


y despues seleccionas elproducto y actualizas segun una condicion de filtrado de datos

hola mira para q te pueda ayudar me tienes q embiar el sistema q estas desarrollando, para q pueda verlo como es el funcionamiento, y asi poder ayudarte.

saludos.

Private Sub Command2_Click()
COMPRAR = ""
MONEDERO = ""
End Sub

Private Sub Command3_Click()
End
End Sub

ElseIf PROMEDIO >= 6 And PROMEDIO < 7 Then
LEYEN = "INDEFICIENTE"
ElseIf PROMEDIO < 5 Then
LEYEN = "REPROBADO"
End If
End Sub

Private Sub Command2_Click()
LEYEN = ""
PROMEDIO = ""
ELABORAR = ""
DISEÑAR = ""
APLICAR = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()

End Sub

Private Sub Command1_Click()
RESULTADO = ""
End Sub

Private Sub Command2_Click()
End
End Sub

Escribeme a este msn y yo te respondere

por favor necesitoo urgentemente la definicon de:

- caja de vista en visual basic
- caja combinada en visual basic

seria bueno saber eso y que pases ese conocimiento me gustaria tambien ver eso te lo agradeceria te dejo mi correo de por ahi me lo mandas y te lo agradeceria gamau6@gmail.com

gracias Roman, me jue de ayuda.
porfa no se podrias embiarme un modelo,
de un sistema de ventas.
porfa. a este E-mail: beetto10@gmail.com
saluods.
Betto