Descargar

Dim conexion2 As ADODB.Connection
Dim inventario2 As ADODB.Recordset
 
 
'Estos 2 de arriba se pueden poner en el mismo boton o se pueden poner en general
'Si lo ponen en general podran accesar a la base de datos desde cualquier parte
 
Dim stringdeconexion2
Dim sql As String
Set conexion2 = New ADODB.Connection
stringdeconexion2 = "Data Source=C:Avance 2.mdb"
 
'Esto que dice Data source se refiere a la ubicación exacta del archivo
 
conexion2.Provider = "MICROSOFT.JET.OLEDB.4.0"
conexion2.Open stringdeconexion2
sql = "select F.Id_producto,F.Descripcion,F.Precio_unitario,F.Existencia from Datos_Producto as F"
 
'Esto anterior se refiere a "Select F.(la columna), F.(La columna) from (la tabla) as F"
 
Set inventario2 = New ADODB.Recordset
inventario2.LockType = adLockOptimistic
inventario2.CursorLocation = adUseClient
inventario2.CursorType = adOpenDynamic
inventario2.Open sql, conexion2
 
'para moverse al siguiente use inventario2.movenext
'para moverse al anterior use inventario2.moveprevious
'para moverse al primero use inventario2.movefirst
'para moverse al ultimo use inventario2.movelast
'para llamar a un dato que esta en la base de datos use 
               Ejm: Text3.Text = inventario2("Descripcion")
                   'Text,Label,etc = inventario2("la columna") , dependiendo de donde este
                                                                 el inventario se mostrara
    								 el dato.
'(Atras)
If Not inventario2.BOF Then
inventario2.MovePrevious
If inventario2.BOF And inventario2.RecordCount > 0 Then
inventario2.MoveFirst
End If
End If
 
'si desea que por medio de un boton se devuelva al anterior, y que cuando llege al primero
 
 
'(Siguiente)
If Not inventario.EOF Then
inventario.MoveNext
If inventario.EOF And inventario.RecordCount > 0 Then
inventario.MoveLast
End If
End If
 
'si desea que por medio de un boton se vaya al siguiente, y que cuando llege al ultimo
 
 
If inventario2.EOF And inventario2.RecordCount > 0 Then
end if
' Esto significa que llega al final del documento.
' muy util para que establecer una restricción,

Descargar