http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=30622&star=1

看著里面的教程后，我自己寫了一段查詢的代碼

sub sjk_button_click()
  call DataInsert()
  Set adoConn=CreateObject("Adodb.Connection")
  '連接數(shù)據(jù)庫(kù)（數(shù)據(jù)指向是金字塔安裝目錄下的test.mdb，也可以自己更改想要的路徑）
   adoConn.Open "Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=test.mdb"
  strSqlread="select max(id) as stockdate,price as 價(jià)格,sum(buyvol) as 主買,sum(vol) as 主賣,round(sum(buyvol)/sum(vol),3) as 競(jìng)買率 from ada group by price; "
  Set rstTmp=CreateObject("ADODB.RecordSet")
   rstTmp.open strSqlread,adoConn
   aa=rstTmp("價(jià)格")
   sjk_text1=aa
   msgbox aa
  end sub

這里當(dāng)我點(diǎn)擊按鈕結(jié)束后，為什么只出來(lái)第一個(gè)數(shù)據(jù)，而之后的97條記錄都沒(méi)有查到？

你要使用循環(huán)語(yǔ)句來(lái)讀取數(shù)據(jù)庫(kù)表的

用FOR EACH怎么迭代RStTMP 啊？

While Not rstTmp.EOF

aa=rstTmp("價(jià)格")
       sjk_text1=aa
   msgbox aa
   Wend

這個(gè)和FOR 循環(huán)都用了，

while不但是死循環(huán)，而且的出來(lái)的永遠(yuǎn)是第一條數(shù)據(jù)。

for 循環(huán)了98次，并且得出來(lái)的也是第一條數(shù)據(jù)，根本沒(méi)有往下讀取。

AA=RSTMP('')這句話后面還需要加什么？