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

2024-11-13 17:18:04
推荐回答(2个)
回答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

回答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

 

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