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
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
上面这段代码放到按钮里,如果不行的话需要在工程中引用 如下图的控件库。