图片自适应高度
统计字符串中出现的次数
2007/08/14 15:02 | by
UNION 运算示例
此示例捕获在巴西的所有供给商和客户的名字及城市。
此示例调用过程 EnumFields 过程，且可以在 SELECT 语句示例中找到该过程。
Sub UnionX()
Dim dbs As Database, rst As Recordset
' 在您的计算机中修改此行使其正确指到 Northwind 的路径。
Set dbs = OpenDatabase("Northwind.mdb")
' 对运费超过 $100 的订单，
' 捕获在巴西的所有供给商和客户的名字及城市。
'
Set rst = dbs.OpenRecordset("SELECT CompanyName," _
& " City FROM Suppliers" _
& " WHERE Country = 'Brazil' UNION" _
& " SELECT CompanyName, City FROM Customers" _
& " WHERE Country = 'Brazil';")
' populateRecordset。
rst.MoveLast
' 调用 EnumFields 来打印记录集的内容。
'传递记录集对象和要求的字符宽度。
'
EnumFields rst, 12
dbs.Close
End Sub
作者：Else 's Blog
地址：http://www.aixq.com/post/803/
版权所有。转载时必须链接形式注明作者和原始出处及本声明！ 在
中查看更多“UNION 运算示例”相关内容
在
中查看更多“UNION 运算示例”相关内容
在
中查看更多“UNION 运算示例”相关内容
在
中查看更多“UNION 运算示例”相关内容
在
中查看更多“UNION 运算示例”相关内容
在
中查看更多“UNION 运算示例”相关内容
最后编辑： Else 编辑于2007/08/14 15:04
此示例捕获在巴西的所有供给商和客户的名字及城市。
此示例调用过程 EnumFields 过程，且可以在 SELECT 语句示例中找到该过程。
Sub UnionX()
Dim dbs As Database, rst As Recordset
' 在您的计算机中修改此行使其正确指到 Northwind 的路径。
Set dbs = OpenDatabase("Northwind.mdb")
' 对运费超过 $100 的订单，
' 捕获在巴西的所有供给商和客户的名字及城市。
'
Set rst = dbs.OpenRecordset("SELECT CompanyName," _
& " City FROM Suppliers" _
& " WHERE Country = 'Brazil' UNION" _
& " SELECT CompanyName, City FROM Customers" _
& " WHERE Country = 'Brazil';")
' populateRecordset。
rst.MoveLast
' 调用 EnumFields 来打印记录集的内容。
'传递记录集对象和要求的字符宽度。
'
EnumFields rst, 12
dbs.Close
End Sub
作者：Else 's Blog
地址：http://www.aixq.com/post/803/
版权所有。转载时必须链接形式注明作者和原始出处及本声明！
中查看更多“UNION 运算示例”相关内容中查看更多“UNION 运算示例”相关内容中查看更多“UNION 运算示例”相关内容中查看更多“UNION 运算示例”相关内容中查看更多“UNION 运算示例”相关内容中查看更多“UNION 运算示例”相关内容最后编辑： Else 编辑于2007/08/14 15:04
