Question

VB6.0 使用Adodc控件读取Access数据库. 怎么修改数据库指定某一列的所有见容?

比如我现在有一个名为"基本情况"的数据库.
数据库中包含: 姓名,年龄,性别. 三列数据. 我在窗体上设置一个按钮,只要点一下按钮就可以把性别一整列的数据都改成男. 怎么编写代码?

Answer 1

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这个控件有关系吗?

追答

If Not Adodc1.Recordset.EOF Then    //确保有数据可以更新
      For i=0 to Adodc1.RecordSet.RecordCount Step 1
          Adodc1.Recordset.Fields("列名称")=你要更新的值   '//赋值
          Adodc1.Update   //更新数据集合
          Adodc1.MoveNext  //移动索引
      Next i
Else

Answer 2

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

 

上面这段代码放到按钮里，如果不行的话需要在工程中引用 如下图的控件库。