在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