这个问题我搞了很久了,怎样搞都不行!难道VB没此功能?

当然有啊
可以直接用Execute执行Update语句更新,也可以用记录集先获取记录后再赋值更新,去看下ADO的资料吧,

可是ADO好象只能从文本框里获得数据,不能用变量赋值啊!
用SQL试过,也只能往记录集增加一组确定的数,而不能使用变量.

[[it] 本帖最后由 wgl2691 于 2008-6-3 13:11 编辑 [/it]]

文本框里的值不是变量?

问题是我要将程序运行的结果自动保存到数据库,不可能再通过文本框来输入吧!

运行结果不是变量?

运行结果当然就是变量,但怎样将它赋给表中的字段呢?

又要回到我第一条回复了......

谁说ADO只能读取文本框的东西了? 那是ADODC控件,而不是ADO对象,况且ADODC也可以赋值啊,ADODC也不只有用绑定控件这种笨办法,大可以这样啊:Text1.Text=ADODC1.RecordSet!FiledName,不用绑定的,绑定最笨了
另外
Execute方法知道吗?动态生成SQL语句,比如:
Dim TxtSql as String
Dim a as String
TxtSql="UpDate TableName Set FiledName='" & a & "'"
'这样就已经生成了一条Sql语句,然后用Execute方法提交运行


要是看不懂的话,先去看看ADO的资料,这是最好的办法

[[it] 本帖最后由 三断笛 于 2008-6-3 14:13 编辑 [/it]]

先谢谢你的回答!我去试试.

三断笛,你好!这是我的演示程序,请看看为什么不能将数据写入到数据库?
请帮忙修改一下,谢谢!
Private Sub Cmdtest_Click()        '测试按钮
Dim a As String
Dim b As String
Dim c As String
cs_num = 9
lz_data = 999
bxl_data = 99      
'以上是演示用的数据
txtFields(0) = cs_num
txtFields(1) = lz_data
txtFields(2) = bxl_data
a = txtFields(0)
b = txtFields(1)
c = txtFields(2)
'---------------------------------
Dim astr1 As String, astr2 As String, astr3 As String
    Dim dbAdd As Database
    Screen.MousePointer = vbHourglass
    Set dbAdd = DBEngine.Workspaces(0).OpenDatabase("e:\vb2\zxky1.mdb")
    astr1 = "UpDate csbg set 测试序号= '" & a & "'"
    astr2 = "UpDate csbg Set 力值='" & b & "'"
    astr3 = "UpDate csbg Set 变形量='" & c & "'"
    Debug.Print astr1
    dbAdd.Execute astr1
    Debug.Print astr2
    dbAdd.Execute astr2
    Debug.Print astr3
    dbAdd.Execute astr3
 On Error GoTo UpdateErr
   datPrimaryRS.Recordset.UpdateBatch adAffectAll
   Exit Sub
UpdateErr:
MsgBox Err.Description
      Set dbAdd = Nothing
 End Sub
我做的是一款仪器,当按下测试按钮后,机器进行现场测试,然后把测得的数据保存到数据库,最后进行报表,打印.

[[it] 本帖最后由 wgl2691 于 2008-6-3 16:56 编辑 [/it]]