4168.html
来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 26 行
HTML
26 行
<html>
<head>
<title>资料不能即时更新.</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>资料不能即时更新.</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:kkcheung@resolink.com">kkcheung</a> on July 24, 1998 at 09:54:22:<p>
Private Sub Form_Load()<br>Dim db1 As Database<br>Dim ss1 As Snapshot<p>Set db1 = OpenDatabase("", False, False, "ODBC;UID=fms;DSN=FMSDATA;PWD='fmsfms';DATABASE=FMSDB")<br>Set ss1 = db1.CreateSnapshot("select sum(weight)/1000 as ans from sale_rec where sale_date='19980724'")<br>ss1.Refresh<br>Label1.Caption = ss1("ans")<br>End Sub<p>以上的程式不能对ss1作即时更新,请问问题出在那里?
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 4168-->
<!--top: 4177--><li><a href="4177.html">不是用 Refresh</a> <b>小吴</b> <i>16:48:54 7/24/98</i>
(<!--responses: 4177-->0)
<ul><!--insert: 4177-->
</ul><!--end: 4177-->
</ul><!--end: 4168-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?