Onlin Shop商品管理DB

1. Home
2. 商品管理DBテールの作成

登録データの更新(在庫数)

仕入先から在庫数更新CSVファイルが提供されている場合の処理。

在庫数の更新処理

標準モジュール(Update)

使用変数：

Dim conCsv3 As New ADODB.Connection
Dim rsCsv3 As New ADODB.Recordset
Dim rsQItemDetail2 As New ADODB.Recordset
Dim intVdID As Integer

CSVファイルに接続するための設定

CSVファイルのレコードセットを生成

クエリのレコードセット生成
クエリQ_ItemDataを仕入先コードで絞り込んでレコードセットを生成

    intVdID = Forms!F_ItemRegist.vndID
    
    With Application.CurrentProject
        rsQItemDetail2.Open "select * from Q_ItemData where VID=" & intVdID, .Connection _
        , adOpenStatic, adLockOptimistic
    End With

仕入先によって処理を分岐させる
(仕入先IDで処理を分けるを参照)

在庫数の更新処理(仕入先毎に記述が必要)

在庫数の更新

    Do Until rsQItemDetail2.EOF
        rsCsv3.Find "<商品番号>=" & "'" & rsQItemDetail2("ItemNo") & "'", 0, adSearchForward, 1
        rsQItemDetail2("Quantity") = 0
        If rsCsv3.EOF = False Then
            rsQItemDetail2("Quantity") = rsCsv3("<数量>")
        End If
        rsQItemDetail2.Update
        rsQItemDetail2.MoveNext
    Loop