# 资料不能即时更新.

Posted by kkcheung on July 24, 1998 at 09:54:22:

Private Sub Form_Load()
Dim db1 As Database
Dim ss1 As Snapshot

Set db1 = OpenDatabase("", False, False, "ODBC;UID=fms;DSN=FMSDATA;PWD='fmsfms';DATABASE=FMSDB")
Set ss1 = db1.CreateSnapshot("select sum(weight)/1000 as ans from sale_rec where sale_date='19980724'")
ss1.Refresh
Label1.Caption = ss1("ans")
End Sub

以上的程式不能对ss1作即时更新,请问问题出在那里?

Follow Ups:

- 不是用 Refresh 小吴 16:48:54 7/24/98 (0)