VB与access数据库调用问题 - 编程论坛

#2

梦昔梦矣2018-04-20 23:06

我是VB 小白，跪求各位大神帮忙，不胜感激！！！谢谢帮忙

#3

Artless2018-04-24 03:04

select

#4

ZHRXJR2018-04-24 06:26

最基础的东西，网上一大把。
在 VB 中添加数据库连接对象、记录集对象的引用，连接数据库就非常简单。

只有本站会员才能查看附件，请登录

声明 db As New ADODB.Connection, RS As New ADODB.Recordset，db就是数据库连接对象，RS就是记录集对象。

程序代码：

db.ConnectionString =  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database13.mdb;Persist Security Info=False"
db.Open    '这样就连接了database13.mdb数据库，但数据库必须在VB程序的目录中。
Dim RSstr  As String, A As Integer, B As Integer, C As Integer
RSstr = "select * from 表2 "
RS.Open RSstr, db, 2, 2
        Do While Not RS.EOF
            A = RS!加数1： B = RS!加数2:  C = A + B
            If C > 10 Then Print C;
        RS.MoveNext
        Loop
    RS.Close
    Set RS = Nothing
db.Close
Set db = Nothing

这样就在屏幕显示了二个加数之和大于10的数了。

[此贴子已经被作者于2018-4-24 06:27编辑过]

#5

梦昔梦矣2018-04-24 10:45

回复 4楼 ZHRXJR

谢谢大神

#6

wmf20142018-04-24 11:23

回复 4楼 ZHRXJR

如果这样符合题意，“select 加数1+加数2 as aaa from 表2 where 加数1+加数2>10”是不是效率更高些。

#7

ZHRXJR2018-04-24 20:55

以下是引用wmf2014在2018-4-24 11:23:21的发言：

如果这样符合题意，“select 加数1+加数2 as aaa from 表2 where 加数1+加数2>10”是不是效率更高些。

是的，这样效率是比较高，但考虑楼主是初学者，以最简单的SQL语句比较容易理解一点。