VB 数据库表里指行列的内容
VB + ACCESS 2003

把指定表内的 行 列 的内容

如: 表1

编号 完成数

1 20

2 30

指定编号为1 列为完成 内的内容 赋予 变量 jjjjj

再是变量JJJJ 和 TEXT1.TEXT 里的内容相加
我TEXT1输入的是50 20+50
写入数据库 就等于
编号 完成数

1 70
2 30




[解决办法]
'链接数据库语句略
SQL="select 完成数 from 表1 where 编号=1"
rs.open sql,con,3,3
jjjjj =rs.field("完成数")
rs.field("完成数")=jjjjj+text1.text
rs.update
rs.close
’关闭数据库语句略

[解决办法]

VB code

  Dim sql$, rs As DAO.Recordset  Dim g_WS As Workspace '工作区对象  Dim g_DB As Database '数据库对象     Set g_WS = DBEngine.Workspaces(0)  Set g_DB = g_WS.OpenDatabase(App.path + "\database\数据库名.mdb")  sql = "select * from 表名 where 编号='1'"  Set rs = g_DB.OpenRecordset(sql)  text1.text=val(text1.text)+val(rs.fields("完成数").value)  sql="update 表名 set 完成数='" & text1.text & "'" & "where 编号='1'"  g_DB.Execute sql