vb6.0如何返回ACCESS某一列中最大值
解决方案 »
- VB6调用DLL的问题(解决问题立即结贴)
- 如何用vb实现将excel文件导入sql server2000数据库
- 找不到DLL入口点 createcompatibledc in gdi32.dll 怎么解决 20分送
- 请教一个IIS应用程序的问题,谢谢
- 利用ListView消息能獲取它的ITEM前景顏色嗎?
- 在VB中做一个文本框如何用剪切板复制粘贴文本?
- VB做仿真遇到的一个问题(线条颜色去除)
- 提几个小问题,高兴,顺便散分!910优先!
- 找出网上邻居中的所有计算机?
- 问题还是没有解决呀,再帮帮我好吗?
- 如何按条件筛选ACCESS中的数据放在MSFlexGrid1表格中
- VB6 ACCESS时间类型匹配
Dim dbs As Database, rst As Recordset
' 在您的计算机中修改此行使其正确指到 Northwind 的路径。 Set dbs = OpenDatabase("Northwind.mdb") ' 对运费超过 $100 的订单, ' 对送货到英国的订单返回最低的和最高的 ' 货运运费。 Set rst = dbs.OpenRecordset("SELECT " _ & "Min(Freight) AS [Low Freight], " _ & "Max(Freight)AS [High Freight] " _ & "FROM Orders WHERE ShipCountry = '英国';") ' populateRecordset。 rst.MoveLast ' 调用 EnumFields 来打印记录集的内容。 '传递记录集对象和要求的字符宽度。 ' EnumFields rst, 12
dbs.Close
End Sub