请教各位关于ADO记录集做为连续窗体数据源的问题!

majian77

怎样使连续窗体全部显示ADO记录集
Sub datasourcetest()
Dim rs1 As New ADODB.Recordset
Dim prm As String
prm = "sj-03/2456"
Set rs1 = CurrentProject.Connection.Execute("[purchase-test] '" & prm & "'")
Me.SupplierName = rs1.Fields("SupplierName")
Me.PurchaseOrderPo = rs1.Fields("urchaseOrderPo")
Me.PurchaseDate = rs1.Fields("urchaseDate")
Me.SupplyDate = rs1.Fields("SupplyDate")
Me.MaterialName = rs1.Fields("MaterialName")
Me.PurchaseQTY = rs1.Fields("urchaseQTY")
Me.MaterialPrice = rs1.Fields("Price")
End Sub
这样做只能得到一条记录,我是要显示ADO中所有数据,谢谢

ADAM

這個簡單啊
我試過
只是只能看不能改....

在LOAD事件中寫到
Private Sub Form_Load()
Dim CNN As New ADODB.Connection
Dim RST As New ADODB.Recordset

Set CNN = CurrentProject.Connection
RST.Open "AA", CNN, adOpenKeyset, adLockOptimistic, adCmdTable
Set Me.Recordset = RST

End Sub

當然,表單上的控件的資料來源要跟連接時一樣.
比如:SupplierName 文本框中,資料來源也要為SupplierName

majian77

搞掂,谢谢ADAM!