Question

求VB编程连接access数据库的源代码

我想设计一个简单的代码程序，访问一个access的mdb数据库，数据库表名为Results，里面有FF，BB，aB这3个字段名，我向查找ab中介于1-3之间的数的平均值，这段代码怎么写，要求用select 语句来写，要源代码，写好再加分奖励，谢谢
在VB中不能直接输入这句话吧。。。抱歉我才刚入门。。。麻烦写详细点，分会给多一点的。。。

Answer 1

要使程序能够访问数据库必须通过ADO技术实现，下面就LZ所提供的例子作详细讲解：
（调用入口，如单击按钮事件发生时。注：vb中变量不区分大小写）
Dim conn as new adodb.connection '定义conn为新的数据库连接对象并分配内存
Connstr="Provider=microsoft.jet.oledb.4.0;data source=" & app.path & "\lib.mdb" '在这里编写一个用于与告知计算机连接的数据库的连接串，其中app.path指该应用程序/工程所在路径，所以必须将Access的数据库文件放在应用程序/工程所在路径的同一个目录下
Conn.open Connstr,"admin","",-1 '启动conn的连接，其中参数如下：连接串，连接用户名，连接密码，连接方式（这里的-1是指默认方式）
Dim rs as new adodb.recordset '定义rs为新的数据库记录集对象并分配内存
Sqlstr="select ab from results" '这里是放入sql语句的地方，将LZ的实际sql语句替换到我填入的sql语句中
Rs.open Sqlstr,Conn,3,2,-1 '打开rs记录集查询结果，其中参数如下：sql语句，活动的连接串（即现在打开中的连接串），静态集（3表示静态集），悲观锁（2表示悲观锁），打开方式（-1表示默认方式）
这样就完成了查询的工作，接下来是提取从查询中值的操作，由于我对LZ想要得到的信息不是很清晰，所以在这里就停下问一下您到底是要达到什么样的查询效果，需要的是一个什么样的值，再采取合适的方法将其提取出来是比较合适的

追问

将你的：Dim rs as new adodb.recordset '定义rs为新的数据库记录集对象并分配内存
加入进去以后出现这样的错误提示
我的界面就是那样，将数据输出到datagrid表中，谢谢

追答

用数据库控件的话我就不大懂了= =|因为还不如用自己的代码控制容易

Answer 2

'定义一个名为Db1的数据集
Public Db1 As ADODB.Connection
'初始化数据集
Set Db1 = New ADODB.Connection
'刷新初始数据
Db1.CursorLocation = adUseClient
'连接数据库语句
Db1.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Results.mdb;Jet OLEDB:Database Password=;"
'查询语句
RS.Open " select avg(ab) from Results where ab >= 1 and ab =< 3 , Db1, adOpenStatic, adLockOptimistic

追问

这些代码怎么分开放啊？
我有一个窗体和一个Command1按钮，按按钮就可以查询了。。
谢谢
另外调试了一下，最后一行的那个代码出：现实时错误424，“要求对象”的错误

Answer 3

select * from Results where ab > 1 and ab < 3