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

1、连接数据库：
Dim
strPTR
As
String
strPTR
=
"Provider=MicrosoftJetOLEDB40;Data
Source="
&
AppPath
&
"\eden_code128mdb"
dbOpen
strPTR
2、连接数据表：
strSQL
=
"select

from
code128"
'如果有条件查询必须有查询条件
RSOpen
strSQL,
db,
3,
3
3、查询记录：
A
=
RS("电表类型代码")
B
=
RS("制造单位代码")
C
=
RS("电表表号")
4、关闭对象：
RSClose
Set
RS
=
Nothing
dbClose
5、电表表号中的
最大值
和最小值：
strSQL
=
"select
min(电表表号)
as
最小值
from
code128"
strSQL
=
"select
max(电表表号)
as
最大值
from
code128"
至于你怎吗应用，你自己组织吧。

以上就是关于求VB达人制作一个VB6  *** 作ACCESS2003数据库读取查询 函数全部的内容，包括:求VB达人制作一个VB6  *** 作ACCESS2003数据库读取查询 函数、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！