VB6.0 使用Adodc控件读取Access数据库. 怎么修改数据库指定某一列的所有见容?
比如我现在有一个名为"基本情况"的数据库.
数据库中包含: 姓名,年龄,性别. 三列数据. 我在窗体上设置一个按钮,只要点一下按钮就可以把性别一整列的数据都改成男. 怎么编写代码?
Adodc控件是这个兄弟，使用很简单，举个按钮单击的例子：
Private Sub Command1_Click()Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS路径名" '//连接字符串,ACCESS2007以上版本不一样
Adodc1.RecordSource="Select * from 表名称" '//查询表数据
Adodc1.Refreash '//必须要刷新控件激活
'//如果要操作查询，加下面的语句，比如象你说的整列更新
If Not Adodc1.Recordset.EOF Then //确保有数据可以更新
Adodc1.Recordset.Fields("列名称")=你要更新的值 '//赋值
Adodc1.Update //更新数据集合
Else
MsgBox "无数据可以更新！","系统消息",vbOkOnly
End If
End Sub
'//ADO控件一共就需要你设置两个属性，再刷新一下就好了，也可以不用代码，直接设置好属性，代码里直接写刷新他的语句就齐活
还有一种方法那不是ADO控件，是ADO类，需要引用ActiveX Data Object
追问首先感谢您的帮助。
我用您给的语句试了一下，我给数据库中先输入了三行的数据，但您给的语句只能更新数据库中第一行指定列的内容。 不是更新所有行中这一列的数据。 您再帮我看看。
我使用的是Adodc 和 DataGrid 这两个控件。 不能更新整列和DataGrid这个控件有关系吗?
For i=0 to Adodc1.RecordSet.RecordCount Step 1
Adodc1.Recordset.Fields("列名称")=你要更新的值 '//赋值
Adodc1.Update //更新数据集合
Adodc1.MoveNext //移动索引
Next i
Else
Dim gadoConnLocal As New ADODB.Connection
Dim gadoCmdLocal As New ADODB.Command
Dim adoRstLocal As New Recordset
gadoConnLocal.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False" '假设数据库名为db1,存放在C盘下
gadoConnLocal.CursorLocation = adUseClient
gadoConnLocal.Mode = adModeReadWrite
gadoConnLocal.Open
gadoCmdLocal.ActiveConnection = gadoConnLocal
gadoCmdLocal.CommandType = adCmdText
gadoCmdLocal.CommandText = "update [基本情况] set 性别= '男'"
gadoCmdLocal.Execute
上面这段代码放到按钮里，如果不行的话需要在工程中引用 如下图的控件库。
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 '\/\/必须要刷新控件激活 '\/\/如果要...
VB6.0 如何 批量修改Access 的 mdb数据库指定字段且满足条件的数据
用update table set b=yes where a=true 类似语句，用VB直接执行这样的SQL语句就可以更新了啊。
VB6.0,连接Access数据库,用ADODC控件,如何将数据库里面某条指定的记录...
确保你ADODC已经连上数据库，并并且Recordset="table1"，就是关联那个表 那么，with adodc1 .recordset.find "name='" & text1.text & "'"If Not .EOF And Not .BOF Then .Delete .Update End If end with
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文件)，...
VB中的VScroll控件怎么用?
1.Data控件的常用属性 （1）Connect属性 Connect属性用来指定该数据控件所要链接的数据库格式，默认值为Access，其他还包括dBASE、FoxPro、Excel等。（2）DatabaseName属性 DatabaseName属性是用于确定数据控件使用的数据库的完整路径。如果链接的Access 数据库，就可单击按钮定位.mdb文件。例如，选择"C：＼...
菜鸟急求vb6.0对access数据库操作中取出某列最大值的代码
sql查询语句 select max(某列)from 某表 where 某条件 或在VB6中 假定rs为查询出来的数据集 dim themax rs.movefirst for i = 1 to rs.recordcount if i= 1 then themax = rs("某列")else if themax<rs("某列")then themax = rs("某列")end if end if rs.movenext next i ...
请教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中如何调用Access数据表中的某一个记?
在VB6.0中调用Access数据表中的某个记录，可借助ADO控件实现。具体操作如下：1. 首先，确保在项目中添加ADO控件。在“工程”菜单下的“部件…”选项中，选择并添加Microsoft ActiveX Data Objects 2.5 到工具箱。2. 将ADO控件拖至窗体，然后在代码编辑器中编写代码，通过ADO对象连接Access数据库。例如...
50分求解,在VB6.0中查询Access数据库多字段并加条件查询,?
ConnectionString="连接到数据库的字符串"，点击边上的下拉按钮就能浏览到你要的数据库，也可以直接在程序中设置。RecordSource=“要打开的数据表或者查询”然后TextBox要设置两个属性 DataSource=上面设置的那个数据控件，比如ADODC1,你把ADODC控件添加到Form中的时候，在这个属性里面就能选择 DataField=你要...
VB6.0 连接Access数据库后 如何编写代码使数据库导出到excel、word或htm...
2) = shiyanH For sum = 0 To Adodc1.Recordset.RecordCount - 1 xlSheet.Cells(sum + 3, 1) = Adodc1.Recordset(1) For j = 2 To 21 If Adodc1.Recordset(j) <> "" Then If Adodc1.Recordset(j) = "***"...
