Как отобразить данные из базы данных в VBA Excel?

Question

У меня есть столбец в базе данных под названием «UOM», и я хочу отобразить его рядом со значением «Qty» через открытие SQL-запроса. Но он показал ошибку: «Нет данных для строки/столбца». Это мои коды.

Dim Oledbconn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:/inetpub/wwwroot/ProjectIntegrated/Inven.mdb;Persist Security Info=True") 
     Dim cmd As New OleDbCommand 
     Dim reader As OleDbDataReader 

     cmd.CommandText = "Select UOM FROM Master WHERE IPN = '" & Session("PO IPN")(SummaryCounter) & "'" 
     cmd.CommandType = CommandType.Text 
     cmd.Connection = Oledbconn 

     Oledbconn.Open() 
     reader = cmd.ExecuteReader() 

     oSheet.Range("F" & ExcelCounter).Value = "" & Session("PO Qty") + reader.Item("UOM") + (POTableCounter) 
     oSheet.Range("F" & ExcelCounter).HorizontalAlignment = -4108 


     Oledbconn.Close() 

Answer 1

Выполнение работы с самим читателем этого не сделает. Вы также должны на самом деле читать. Попробуйте следующее:

Oledbconn.Open() 
reader = cmd.ExecuteReader() 

if (dreader.HasRows) 
{ 
    dreader.Read(); 
    oSheet.Range("F" & ExcelCounter).Value = "" & Session("PO Qty") + reader.Item("UOM") + (POTableCounter) 
    oSheet.Range("F" & ExcelCounter).HorizontalAlignment = -4108 
} 

Oledbconn.Close()