VB6.0 用ADO修改Access数据库中指定某行某列的单元内数据
不需要读取，只要变更任意指定单元内的数据即可。（之前网上找了很多，都只是读写表中第一行）
请给完整代码吧：
如图：当前目录下名为“AAAAA.mdb”的数据库内的一名称为“SSSSS”的表。
要求：单机command1，表内“八爪鱼”改为“XXX”，保存修改。
VB6.0真正的ADO用得好的是ADO控件。介绍ADO类和ADO控件两种办法：
一 ADO类，在工程找到引用，在引用里找到Data Object 2.5以上版本，Command事件中写：
Dim cnn As ADODB.ConnectionDim 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
可以给我完整代码么？
追答自己去百度吧。
是控件
VB6.0 用ADO修改Access数据库中指定某行某列的单元内数据
一 ADO类，在工程找到引用，在引用里找到Data Object 2.5以上版本，Command事件中写：Dim cnn As ADODB.ConnectionDim rs As ADODB.RecodeSetSet cnn As New ADODB.ConnectionSet rs As New ADODB.RecordSetcnn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;Data Source="+ACCESS相对完整路...
VB6.0 使用Adodc控件读取Access数据库. 怎么修改数据库指定某一列的所 ...
Private Sub Command1_Click() Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS路径名" '\/\/连接字符串,ACCESS2007以上版本不一样 Adodc1.RecordSource="Select * from 表名称" '\/\/查询表数据 Adodc1.Refreash '\/\/必须要刷新控件激活 '\/\/如果要...
vb中如何调用Access数据表中的某一个记?
1. 首先，确保在项目中添加ADO控件。在“工程”菜单下的“部件…”选项中，选择并添加Microsoft ActiveX Data Objects 2.5 到工具箱。2. 将ADO控件拖至窗体，然后在代码编辑器中编写代码，通过ADO对象连接Access数据库。例如： `Dim con As ADODB.Connection`，`con.Open "Provider=Microsoft.Jet.OLED...
请教VB6.0 中DataGrid 操作Access数据库的问题
1:添加ADODC控件 2:添加DATEGRID控件 3:设置ADODC1的连接字符串,指定ACCESS数据库(详细操作不用我说了吧)4:设置ADODC1的RECORDSOURCE,一般指表名 5:设置DATEGRID的RECORDSOURCE为ADODC1 6:设置DATAGRID的允许的操作 7:在FORM_LOAD中写ADODC1.REFRESH就可以了 在所有数据控件中,我个人认为DATAGRID是最简...
VB如何使用ADODC控件用代码连接数据库
Microsoft ADO Data Control 6.0和Microsoft DataGrid Control 6.0ADODC控件属性设置：1、在ADODC控件上右击，选择ADODC属性2、然后在通用选项卡中选择使用连接字符串，点击生成按钮3、然后选择Microsoft Jet 4.0 OLE DB Provider，点击下一步4、选择要连接打开的Access数据库文件(你要打开的ACCESS文件)，...
如何使用VB6.0中 ADO控件获取ACCESS数据库表中字段的最大值并把最大值...
Dim sql As String Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "c:\\成绩.mdb;"sql = "select * from 学生成绩表 ORDER BY 数学 DESC "Adodc1.RecordSource = sql Adodc1.Refresh Text1 = Adodc1.Recordset("数学")
我怎么把我自己编写的Access连接到VB6.0中去呢
Private Sub Command1_Click()Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS完整路径\/ACCESS名;UID=...;PWD=..."Adodc1.RecordSource="Select * From ACCESS 表"Adodc1.Refresh '---\/\/这就是连接数据库字符串，要引用数据就该这么写 If Not Adodc1.RecordSET.EOF...
vb6.0使用ADO和datagrid连接access数据库的语句是啥
VB6.0使用ADO和datagrid连接access数据库的语句是：Dim cn As New ADODB.Connection '定义数据库的连接 Dim rs As New ADODB.Recordset Dim sql As String sql = "select * from guzhang_sj" ' where madanhao='1'" cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data...
VB6.0中datalist控件如何获得Access数据库中表的数据
例如：一个窗体中有一个ado控件，设置好链接，还需一个access数据表 表名假如是“11”要想显示表11中的哪一列数据就这样写 set datalist.recordsource= ado datalist.listfile="想要显示的列"datalist.绑定=“想要显示的列"
vb6.0 设置登录界面 怎么调用access数据库? 有模块吗
实用ado 调用， 有模块， 还是用ado 简单 Dim db As Database Dim rs As Recordset Private Sub Command1_Click()Set db = OpenDatabase(App.Path & "\\person.mdb")Set rs = db.OpenRecordset("select name,sign from per where name='" & Combo1.Text & "'and sign='" & Text1....
