Question

VB6.0 用ADO修改Access数据库中指定某行某列的单元内数据

不需要读取，只要变更任意指定单元内的数据即可。（之前网上找了很多，都只是读写表中第一行）

请给完整代码吧：
如图：当前目录下名为“AAAAA.mdb”的数据库内的一名称为“SSSSS”的表。

要求：单机command1，表内“八爪鱼”改为“XXX”，保存修改。

Answer 1

VB6.0真正的ADO用得好的是ADO控件。介绍ADO类和ADO控件两种办法：

一   ADO类，在工程找到引用，在引用里找到Data Object 2.5以上版本，Command事件中写：

Dim cnn As ADODB.Connection
Dim rs As ADODB.RecodeSet
Set cnn As New ADODB.Connection
Set rs As New ADODB.RecordSet
cnn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;Data Source="+ACCESS相对完整路径名    '//你那明明就是ACCESS2007的怎么会以mdb做后缀，这是2007以上版本字符串
cnn.Open
cnn.Excute "Update SSSSSS Set 八爪鱼='XXX' where 用户名='八爪鱼'"

但是这种方法移植性差，ADO类文件要跟着安装包走

 

二 ADO控件，在工程里找到部件，部件里加ADO Data Control 6.0，随便拖一个到窗体，Visible隐藏起来，按钮事件中加代码，

Adodc1.ConnectionString=="Provider=Microsoft.ACE.OLEDB.12.0;Data Source="+ACCESS相对完整路径名
Adodc1.RecordSource="Select * from SSSSSS where 用户名='八爪鱼'"
Adodc1.Refresh    
While Not Adodc1.RecordSet.EOF
   Adodc1.RecordSet.Fields("用户名")="八爪鱼"
   Adodc1.Update
Loop

追问

是ADO控件，您第二部分代码里面 将“八爪鱼”改为“XXX” 是那一句？

追答

Adodc1.RecordSet.Fields("用户名")="八爪鱼"
Adodc1.Update

追问

“XXX” 没有出现啊？

追答

While Not Adodc1.RecordSet.EOF
Adodc1.RecordSet.Fields("用户名")="八爪鱼"
Adodc1.Update
Adodc1.MoveNext
Wend
随手写的，写错了

追问

我很菜的，能不能给完整的代码啊？还是没有看到这么把“XXX”替换为“八爪鱼”的啊！

追答

Adodc1.RecordSet.Fields("用户名")="八爪鱼"
Adodc1.Update

Answer 2

update SSSSS set 用户名='XXX' where 用户名='八爪鱼'

追问

可以给我完整代码么？

追答

自己去百度吧。

Answer 3

你用ADO控件还是对象呢？

追问

是控件