RE:Ayuda con aplicacion VB
saludos
por lo que veo aun no elijes la base de datos que usaras para guardar los datos
te recomiendo acces yo de preferencia uso acces 2003 por la facilidad de conectarlo con vb6
mira lo que puedes hacer es crearte una base de datos en acces
te recomiendo que cuando creas una tabla en la base de datos
en lo posible siempre uses un folio en los registros, se que esto no es necesario pero te da la falicidad de llamar la informacion de manera facil, ya que cuando quieras ver informacion que ya guardaste en esa tabla la puedes solicitar por el folio
mira create la base de datos por ejemplo con el nombre base.mdb y ponlo en la carpeta donde quedara instalada la aplicacion ejemplo c:\mi sistema\base.mdb
create una tabla en vista de diseño y haz lo siguiente
empieza por crar los campos para cada una de las cajas de texto
ej
folio (en el tipo tienes que dejarlo como autonumerico)
fecha (date/time) en la parte donde dice date format dejalo en short date
hora (date/time) en la parte de format ponlo en time
caja1 queda como text en la propiedad
caja2 idem
caja3 idem
o como quieras llamarle en este caso usaremos este ejemplo
puedes usar un modulo para dejar fija la coneccion a la base de datos
usa este codigo para el modulo
Public Sub conectar()
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.ConnectionTimeout = 500
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & "c:\mi sistema\base.mdb" & ";"
End Sub
con esto lo unico que tienes que haces es que en el evento load form del formulario que vas a usar para conectarte uses el codigo
Private Sub Form_Load()
conectar
end sub
con esto ya tienes la base de datos conectada
ahora procedes al formulario
en el form pones una caja de texto que se llame folio
en el evento doble click de la caja de texto que corresponde al folio usa este codigo
private folio dblclick()
Set rs = New ADODB.Recordset
rs.Open "select top 1 folio FROM mitabla ORDER BY folio desc", cnn, adOpenDynamic, adLockOptimistic
If rs.EOF = False Then
folio = Val(rs.Fields(0) + 1)
Else
folio = "1"
End If
end sub
de esta manera generas n folio en correlativo
ahora vamos a la caja fecha
en el evento doble click usa lo siguiente
fecha.Value = Format(Now, "dd-mm-yyyy")
con esto al hacer doble click tomas la fecha de hoy desde la pc
hora.caption = format$(now,"hh:mm:ss")
ahora ya tienes todo ya que la funcion de calculo ya la sabes para las cajas con cantidades
pon un boton que se llame grabar
en el evento click
pones este codigo aunque tendras que adaptarlo a tus necesidades
como ya te conectaste al abase de datos al abrir el formulario a traves del modulo
usas esto
SQL = " "
SQL = "Insert into mitabla values('" & FOLIO.Text & "','" & fecha.Value & "','" & hora.Value & "','" & caja1.Text & "','" & caja2.Text & "','" & caja3.Text & "')"
cnn.Execute (SQL)
la ultima linea dice que ingrese los datos en la coneccion activa, si necesitas poner mas cajas recuerda que tiene que estar en el mismo orden de tu base de datos
puedes agrear en la ultima parte "'aqui)"
solo pea un tramo ,'" & caja3.Text & "' con esto agregas un componente mas a la linea de entrada
saludos
