ＶＢでＤＣＯＵＮＴを使用するには？ (ID:76676)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

なぜ、私の環境は実行できてしまうのでしょう．．．

はづきさんの提示したデータで [TBL明細] と [TBL商品] を作成。
※ [TBL明細].[商品コード] に関しては、恐らく記述間違いだったと思うので、
   001, 003, 005 -> 101, 103, 105 と修正して作成しました。
環境
OS      : WinNT4.0(SP6)
VB      : VB5(SP3)
Access  : Access97(SR2)
JET     : 4.00.6019.00
DAO     : 3.51.1608.0
SandBox : 2

'* コード（参照設定は Microsoft DAO 3.51 Object Library のみ追加）
Option Explicit
Private Sub Command1_Click()
  Dim daoDbe  As DAO.DBEngine
  Dim daoWs   As DAO.Workspace
  Dim daoDb   As DAO.Database
  Dim daoRs   As DAO.Recordset
  Dim sSQL    As String
  Dim i       As Integer
  sSQL = ""
  sSQL = sSQL & " select コード, 氏名, 商品コード, 購入価格,"
  sSQL = sSQL & "        DCount(""*"", ""TBL商品"", ""商品コード <= '"" & 商品コード & ""'"") as 商品連番"
  sSQL = sSQL & " from TBL明細"
  Set daoDbe = New DAO.DBEngine
  Set daoWs = daoDbe.Workspaces(0)
  Set daoDb = daoWs.OpenDatabase(App.Path & "\db1.mdb")
  Set daoRs = daoDb.OpenRecordset(sSQL)
  Do While daoRs.EOF = False
    For i = 0 To daoRs.Fields.Count - 1
      Debug.Print daoRs.Fields(i).Value,
    Next i
    Debug.Print
    daoRs.MoveNext
  Loop
  daoRs.Close
  daoDb.Close
  daoWs.Close
  Set daoRs = Nothing
  Set daoDb = Nothing
  Set daoWs = Nothing
  Set daoDbe = Nothing
End Sub

'* 実行後のイミディエイトウィンドウ
001  Ａさん  105  500  3
001  Ａさん  101  200  1
003  Ｂさん  103  400  2
008  Ｃさん  105  200  3

←解決時は質問者本人がここをチェックしてください。

戻る