求VB达人制作一个VB6 操作ACCESS2003数据库读取查询 函数

来源：百度知道 编辑：UC知道 时间：2024/05/30 23:24:34
求VB达人制作一个VB6 操作ACCESS2003数据库读取查询 函数
函数的功能：
查询ACCESS2003数据库EDEN_CODE128中表CODE128中记录的数值，并且找出表号中的最大值和最小值，并将找出的值赋值给textmin.text,textmax.text
当然是找VB达人了，菜鸟又不会啊。

1、连接数据库：
Dim strPTR As String
strPTR = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\eden_code128.mdb"
db.Open strPTR

2、连接数据表：
strSQL = "select * from code128" '如果有条件查询必须有查询条件
RS.Open strSQL, db, 3, 3
3、查询记录：
A = RS("电表类型代码")
B = RS("制造单位代码")
C = RS("电表表号")
4、关闭对象：
RS.Close
Set RS = Nothing
db.Close
5、电表表号中的最大值和最小值：
strSQL = "select min(电表表号) as 最小值 from code128"
strSQL = "select max(电表表号) as 最大值 from code128"

至于你怎吗应用，你自己组织吧。

select min(电表表号) as 最小值, max（电表表号）as 最大值 from CODE128

用max 和min 对比下就好

找我?