|
各位大师,我做了个数据查询,子窗体 在底下有显示 553 但是 无法再窗体中显示 数据出来
- 'Dim SQL As String
- If CBool(cn.State = 0) Then cn.Open
- ' SQL = "SELECT * FROM 个人收支"
- ' Set rst = cn.Execute(SQL)
- ' Set kuchuen_chuku.Recordset = rst
- ' SET kuchuen_chuku.re
- 'Create a new ADO Connection object
- 'Use the Access 10 and SQL Server OLEDB providers to
- 'open the Connection
- 'You will need to replace MySQLServer with the name
- 'of a valid SQL Server
- 'Create an instance of the ADO Recordset class, and
- 'set its properties
- With rst
- Set .ActiveConnection = cn
- .Source = "SELECT * FROM 个人收支"
- .LockType = 1
- .CursorType = 3
- .Open
- End With
- 'Set the form's Recordset property to the ADO recordset
- Set Me.窗体1.Form.Recordset = rst
- 'Set MeRecordset = rst
- ' Set Me.Recordset = rst
- rst.Close
复制代码
各位大师。请帮忙下。。谢谢! |
|