當前位置:成語大全網 - 新華字典 - 如何在access的VBA中,執行查詢類的sql命令?

如何在access的VBA中,執行查詢類的sql命令?

在組合框的change事件裏寫類似如下代碼:

以下代碼的意思是:combo是顯示供應商的壹個組合框,通過選擇供應商,在Text4裏面顯示該供應商的總訂單數。

Private?Sub?Combo0_Change()

Dim?供應商ID

供應商ID?=?Combo0.Value

Dim?sql?As?String,?rs?As?Recordset

sql?=?"select?count(*)?as?cnt?from?[采購訂單]?where?[供應商?ID]="?&?供應商ID?'查詢的SQL語句。

Set?rs?=?CurrentDb.OpenRecordset(sql)

Text4.SetFocus

Text4.Text?=?rs.Fields(0)

End?Sub