关于如何实现用ADO在Access表中添加记录,查询等

Question

我想用ADO 在Access 中添加记录,表名是 稳定系数,其中有字段 b,t,h,tw,A
分别把变量b,t,h,tw的值当作记录对应字段的值
    Dim cn As ADODB.Connection
    Dim Rs As ADODB.Recordset
    Dim b As Integer, t As Integer
    Dim h As Double, tw As Double
        Set cn = New ADODB.Connection
    Set Rs = New ADODB.Recordset
    cn.Open "PROVIDER=microsoft.jet.oledb.4.0;data source=" & App.Path & "\steel.mdb"
    Rs.Open "SELECT * FROM " & "稳定系数", cn
请问如何写代码?
还有个问题,就是用SELECT从表中查找出符合条件 A/b<=200 的记录,那么代码
Rs.Open "SELECT * FROM " & "稳定系数", cn  该怎么写?

Answer 1

前一个问题，不知道你问什么。
后一个问题：
Rs.Open "SELECT * FROM 稳定系数 where A/b<=200", cn

Answer 2

添加记录cn.excute  你的SQL语句，插入一条记录cn.excute "insert into 稳定系数 value(.................."
建议楼主多看SQL语句的书

Answer 3

第一个问题是请问如何写代码 在Access 中添加记录（用ADO ）,表名是 稳定系数,其中有字段 b,t,h,tw,A 分别把变量b,t,h,tw的值当作记录对应字段的值
to lihonggen0(李洪根,用.NET，标准答案来了) 
thanks,但是现在不能出校，图书馆里SQL书都借出去了
所以只能到这里求助，你能否把语句写具体一些？
比如我要插入一条纪录字段b,t,h,tw对应的值分别是200，10，350，8

Answer 4

with rs
  .addnew
  .fields!b.value=b
  .fields!t.value=t
  ...
  .update
end with