re.edit
re("客户地址")="aaaaaabbbbbbbbb"
re.update
re("客户地址")="aaaaaabbbbbbbbb"
re.update
解决方案 »
- VB菜鸟求助,文本框内容写入Newfile.txt文件(急急急!!!!!)
- 问个问题求和为1000的连续整数怎么用VB求。。。
- 在vb中怎么设置水晶报表的纸张格式?
- activex cab 控件的问题。..
- *************请高手帮忙,如何进行统计*******
- [醒目]imgscan imgedit 控件联合使用的资料.望各位提供.
- ●40元提供一套VB管理软件源码(含进销存和人事工资)●
- 什么软件适合用COM编写?
- 如何用API新建注册表一个 二进制键值?成功送上 100 分
- 紧急请教:刚装的VB6打不开别的机上开发的Project
- 字体问题,commondialog1.showfont
- 请问打印中的文本框的问题
rs("客户地址").AppendChunk "aaaaaabbbbbbbbb"
rs.update
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open StrConn
rs.ActiveConnection = cn
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Source = "select * from 111"
rs.Open
While Not rs.EOF
rs("客户地址") = "aaaaaa"
rs.Update
rs.MoveNext
Wend
或者
dim strsql as string
strsql ="update 表名 set 客户地址 = aaaaabbbbb where '这里加上限制的语句
只要使
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
就可以了
然后象 vbdabster那样就行了