VB 数据库表里指队列的内容

2012-12-29

VB 数据库表里指行列的内容本帖最后由 huwu006 于 2011-05-14 07:06:13 编辑VB + ACCESS 2003把指定表内的

VB 数据库表里指行列的内容
本帖最后由 huwu006 于 2011-05-14 07:06:13 编辑 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
这四个里内容为直才进行写入呢!!

if combo1.text<>"" then
或者if len(combo1.text)<>0 then
[解决办法]
'VB工程中引用DAO对象

  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

热点排行