在EXCEL写VBA连接ORACLE并查询数据库中的内容

在EXCEL写VBA连接ORACLE并查询数据库中的内容

Sub searchDB()

Set CNN = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
CNN.Open "Driver={Oracle in instantclient_19_14};Dbq=mesproc;User Id=IQC_CHECKER;Password=iqc_123456;"
Set rst = CNN.Execute("select iqc.no from MES_PROD.IQC_BILL iqc where iqc.no = '" & ActiveSheet.Cells(1, 2) & " '")
For j = 0 To rst.Fields.Count - 1
  Cells(1, j + 1) = rst.Fields(j).Name
Next
Range("A1").CopyFromRecordset rst
CNN.Close

End Sub

可成功连接但是不知道怎么修改内容 ，我会写VBA查询SQLSERVER的， 但是不知道ORACLE的怎么写。 比如我知道列的名字 ，怎么去写SELECT FROM 然后选择那个单元格copyfrom 我只会跟着模板依葫芦画瓢 所以不会写了

想要根据NO号查到 各个列的值

UPDATE 表名称 SET 列名称 = 新值 WHERE 列名称 = 某值