刚学VB 数据库读取碰到问题 请高手帮忙

Question

这是我写的一段连接access数据库的代码
Private Sub Form_Load()
    Dim cnn As ADODB.Connection
    Dim cmd As ADODB.Command
    Dim prm As ADODB.Parameter
    Dim num As Integer
    
    Set cmd = New ADODB.Command    cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Temp\db1.mdb;Persist Security Info=False"
    cmd.CommandText = "SELECT data FROM DD WHERE data = 30"
    cmd.Execute
End Subdb1.mdb是一个简单的access数据库
里面有一个表DD 里面有两个值 一个是data  另一个是number
现在要求制定了data查找number，并且把满足条件的number值赋给变量num
请问要怎么写啊

Answer 1

实际上就是请教：怎么数据库中的数据download到本地程序进行处理及怎么把处理后的结果updata到数据库
这里的数据库特指access数据库

Answer 2

dim rs as Recordset
dim data as long,num as long 
set rs=new Recordset
data=30
rs=cnn.Execute("select * from dd where data=" & data)
num=RS.Fields("number").Value
debug.print number '得到值了RS.Fields("number").Value="100"
rs.update   '更新值了set rs=nothing
好像没错吧

Answer 3

debug.print number '得到值了
-----------------
哦错了改成  debug.print num

Answer 4

用recordset得到值
sql="select c1 from tb1 where data=30"
rs.open sql,conn,1,3   '后面的1，3两个参数为cursor类型，以及lock类型可以查到组合dim a as integer
a=rs.fields(0)
...相应代码
sql="update set c1=" & a & " where data=30"
conn.excute sql, en   'en是影响行数
这个是简单过程，根据具体要求自己调整

Answer 5

cmd.Execute
改为：
cmd.Execute num'把影响的行数赋给num
debug.Print num'打印num的值

Answer 6

这个用recordset对象方便一点
例如 
dim rs as adodb.recordset
XXXX=rs.fields(i).value      '从数据库DOWN数据
rs.fields(i).value=Function(XXXX)    'Function处理数据并上传给数据库
rs.upodate                           '更新

Answer 7

Private Sub Form_Load()
    Dim cnn As adodb.Connection
    Dim cmd As adodb.Command
    Dim rs As adodb.Recordset
    Dim data As Long, number As Long
    
    Set rs = New Recordset
    number = 1
    
    Set cmd = New adodb.Command    cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Temp\test.mdb;Persist Security Info=False"
    
    
    rs = cmd.Execute("select * from table where number=" & number)
    
    
    data = rs.Fields("get").Value
    lblDisplay.Caption = data    rs.Fields("data").Value = "100"
    rs.Update       Set rs = NothingEnd Sub表名是data 一个字段number 另一个字段data
分别对应是：
number      data
1            10
2            20
3            30
运行的时候报错 ：rs = cmd.Execute("select * from table where number=" & number)这一句 编译错误：属性的使用无效
这是什么原因啊

Answer 8

说错了，一个字段number 另一个字段是get
对应关系是：
number      get
1            10
2            20
3            30