Reports

Tabela Stocuri:

stocuri (
    codprodus (Text),
    coddepozit (Text),
    codfurnizor (Text),
    pret (Currency),
    cantitate (Integer),
    data_intrarii (Date)
)

Se va crea un formular numit Form_Stocuri cu câmpuri legate de tabelul „stocuri”.

Private Sub Form_Load()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset

    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\calea\catre\test1.accdb"

    rs.Open "SELECT * FROM stocuri WHERE cantitate > 0", conn, adOpenKeyset, adLockOptimistic

    If Not rs.EOF Then
        Set Me.Recordset = rs
    Else
        MsgBox "Nu există produse în stoc!"
    End If
End Sub

79533342