VB 数据库表里指行列的内容,该如何处理

2012-01-22

VB 数据库表里指行列的内容VB + ACCESS 2003把指定表内的行列的内容如:表1编号完成数120230指定编号为1

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
’关闭数据库语句略

[解决办法]

探讨
jwc = rs.Field("完成")
rs.Field("完成数") = jwc + Text2.Text

这个里面的RS.FIELDS 才对!

如果说输入的COMBO1-4 数据库里没有那就出错了呀!

用什么方法才可以, 判断 COMBO1.TEXT COMBO2.TEXT COMBO3.TEXT COMBO4.TEXT
这四个里内容为直才进行写入呢!!

[解决办法]
'VB工程中引用DAO对象

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

热点排行