Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
添加右联接时Excel VBA SQLite错误_Excel_Vba_Sqlite - Fatal编程技术网

添加右联接时Excel VBA SQLite错误

添加右联接时Excel VBA SQLite错误,excel,vba,sqlite,Excel,Vba,Sqlite,我使用下面的VBA代码将SQL查询粘贴到工作表中。当使用注释掉的查询时,它工作得很好,但无论出于何种原因,从同一数据库中的另一个SQLite表添加正确的联接都会产生问题 运行此命令的宏返回错误ODBC驱动程序不支持请求的属性,并高亮显示最后一行。我找不到为什么sql字符串不起作用,因为它在sqlite本身中也起作用。任何我忽略的想法或事情都将是巨大的 Dim conn As Object, rst As Object Set conn = CreateObject("ADODB.Co

我使用下面的VBA代码将SQL查询粘贴到工作表中。当使用注释掉的查询时,它工作得很好,但无论出于何种原因,从同一数据库中的另一个SQLite表添加正确的联接都会产生问题

运行此命令的宏返回错误ODBC驱动程序不支持请求的属性,并高亮显示最后一行。我找不到为什么sql字符串不起作用,因为它在sqlite本身中也起作用。任何我忽略的想法或事情都将是巨大的

Dim conn As Object, rst As Object

Set conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")

ReportDate = Range("B1")

' OPEN CONNECTION
conn.Open "DRIVER=SQLite3 ODBC Driver;Database= ** omitted for security ** ;"
         
'strSQL = "SELECT IPDM_Number, Fund_Name, Manager, Rating," & _
'         " Commitment, Asset_Value, Sub_Asset_Class, Asset_Class" & _
'         " FROM Illiquid_Table WHERE Report_Date = '" & ReportDate & "' ORDER BY Rating"
         
strSQL = "SELECT IPDM_Number, Fund_Name, Manager, Rating," & _
         " Commitment, Asset_Value, Sub_Asset_Class, Asset_Class" & _
         " FROM Illiquid_Table RIGHT JOIN Rating_Code ON Rating_Code.Rating = Illiquid_Table.Rating" & _
         " WHERE Report_Date = '" & ReportDate & "' ORDER BY Rating_Code.Code desc;"


' OPEN RECORDSET
rst.Open strSQL, conn, 1, 1

您可能需要删除括号,只需从非流动表右连接…我尝试过这样做,但不幸的是似乎没有任何区别