Office中国论坛/Access中国论坛

标题: 请教各位关于ADO记录集做为连续窗体数据源的问题! [打印本页]

作者: majian77 时间: 2003-11-25 19:21
标题: 请教各位关于ADO记录集做为连续窗体数据源的问题!
怎样使连续窗体全部显示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 时间: 2003-11-25 21:23
這個簡單啊
我試過
只是只能看不能改....

在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 时间: 2003-11-26 16:32
搞掂,谢谢ADAM!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)