在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).NameNextRange("A1").CopyFromRecordset rstCNN.Close

End Sub

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

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