만료 목적 날짜 간격

Question

90 일 이내에 만료되는 모든 의약품을 나열하려고하는데 구문 오류가 발생했습니다. 아무도 알려 줄 수 없습니다.

Try 
     If (Me.conn.State = ConnectionState.Closed) Then 
      Me.conn.Open() 
     End If 
     Dim da As New SqlDataAdapter((" 
      select 
       ItemNo,Name,ManufacturerName,MedicineName,BatchNo,MedicineLocation, 
       CostPrice,SellPrice,QtyAvailable,ExpiryDate,StockValue 
      from ItemTypes,Items 
      where ItemTypes.ItemTypesId=Items.ItemTypesId 
       and ExpiryDate> '" & Strings.Format(DateAndTime.Now) & "' + INTERVAL 90 DAY "), conn) 
     Dim dataSet As New DataSet 
     Dim dt As New DataTable 
     da.Fill(dataSet, "dt") 
     Me.dgrdItems.DataSource = dataSet.Tables.Item(0) 
    Catch exception1 As Exception 
     ProjectData.SetProjectError(exception1) 
     Dim exception As Exception = exception1 
     Interaction.MsgBox(exception.Message, MsgBoxStyle.Critical, Nothing) 
     ProjectData.ClearProjectError() 
    End Try 

Answer 1

내 생각에 interval을 이해하지 못하는 데이터베이스를 사용하고있는 것 같습니다. 다음은 SQL Server에서이 쿼리를 표현하는 방법입니다.

select ItemNo, Name, ManufacturerName, MedicineName, BatchNo, MedicineLocation, 
     CostPrice, SellPrice, QtyAvailable, ExpiryDate, StockValue 
from ItemTypes join 
    Items 
    on ItemTypes.ItemTypesId = Items.ItemTypesId 
where ExpiryDate > getdate() + 90; 

두 가지 사항이 변경되었습니다. 먼저 where 절에있는 암시 적 조인의 구식 구문보다는 명시적인 join 구문을 사용합니다. 둘째, 데이터베이스에서 날짜 비교를 수행합니다.

MySQL은 :

where ExpiryDate > now() + interval 90 day 

오라클 :

where ExpiryDate > sysdate + 90 

포스트 그레스 : 여기

는 다른 데이터베이스에 대한 where 논리입니다

이

where ExpiryDate > now() + interval '90 days' 

참고이 알 그래서 시간 구성 요소를 가지고 있지만, 일반적으로 쉽게 제거 할 수 있습니다 (데이터베이스 특정 방식으로).