小弟在表單"form1"的首部加入文字方塊(未結合)"text0" 及指令按鈕"command0"又在此表單的細部加入二個文字方塊(未結合)"text2"及"text4"。目的是當在文字方塊(未結合)"text0"輸入peter 後按下指令按鈕"command0"利用ADO 的 Find 去找在資料表"table1"的資料(欄位"id","name"及"date"),但問題是如資料表欄位"name"有二筆以上的資料同是 peter ,那表單只出現最後一筆資料,不能出現全部二筆。請老師指教!
------------------------------------------------------------
Dim cnnDB As New ADODB.Connection
Dim rstSQL As New ADODB.Recordset
Set cnnDB = CurrentProject.Connection
strsql = "select * from table1"
rstSQL.Open strsql, cnnDB, adOpenDynamic, adLockReadOnly
With rstSQL
Do
.Find "[Name] ='" & Me![Text2] & "'"
If .EOF Then Exit Do
Me.Text4 = !Name
Me.Text6 = !Date
.MoveNext
Loop
.Close
End With
Set rstSQL = Nothing
cnnDB.Close
Set cnnDB = Nothing
End Sub
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(3) 人氣()