查询某段时间的物品

Question

有一个 table 显示药物的类型和每种药物的序列号。有一列用于从项目收到的数量，另一列用于从项目花费的数量。有一列用于日期和最后一个布尔值，通过不设置 true

来删除和隐藏元素

数据库访问 2010 代码 vb.net .

Table: MEDICALCOME_TB

列 MEDICALCOME_CODE : 项目代码 MEDICALCOME_SERIAL : 公司序列号 MEDICALCOME_NAME : 项目名称 MEDICALCOME_COM :进货数量 MEDICALCOME_LEAVE :出货数量 MEDICALCOME_DATE：日期 MEDICALCOME_CHECK : 通过删除和归档检查要使用的布尔值

我想对两个日期 DateTimePicker 之间的时间段求和 - 对于总传入 - 和传出 - 以及传入和传出剩余之间的差异

我使用以下代码在两个不同的日期期间进行搜索和分组。什么都没有出现

Dim A = Format(DATETIM_START.Value, "yyyy/dd/MM")

Dim B = Format(DATETIM_END.Value, "yyyy/dd/MM")

Dim DataAdapter As New OleDbDataAdapter("Select MEDICALCOME_TB.MEDICALCOME_CODE, MEDICALCOME_TB.MEDICALCOME_SERIAL, Sum(MEDICALCOME_TB.MEDICALCOME_COM) As SumOfMEDICALCOME_COM, Sum(MEDICALCOME_TB.MEDICALCOME_LEAVE) As SumOfMEDICALCOME_LEAVE
From MEDICALCOME_TB
Where (((MEDICALCOME_TB.MEDICALCOME_CHECK) = True) And ((MEDICALCOME_TB.MEDICALCOME_DATE)between #" & B & "# And #" & A & "#))
Group By MEDICALCOME_TB.MEDICALCOME_CODE, MEDICALCOME_TB.MEDICALCOME_SERIAL ;", con)

Answer 1

参数化查询并将日期作为日期对象传递

Dim DataAdapter As New OleDbDataAdapter("Select MEDICALCOME_TB.MEDICALCOME_CODE, MEDICALCOME_TB.MEDICALCOME_SERIAL, Sum(MEDICALCOME_TB.MEDICALCOME_COM) As SumOfMEDICALCOME_COM, Sum(MEDICALCOME_TB.MEDICALCOME_LEAVE) As SumOfMEDICALCOME_LEAVE From MEDICALCOME_TB Where (((MEDICALCOME_TB.MEDICALCOME_CHECK) = True) And ((MEDICALCOME_TB.MEDICALCOME_DATE) between ? AND ?)) Group By MEDICALCOME_TB.MEDICALCOME_CODE, MEDICALCOME_TB.MEDICALCOME_SERIAL ;", con)

DataAdapter.SelectCommand.Parameters.Add("@StartDate", OleDbType.DBDate).Value = DATETIM_Start.Value)
DataAdapter.SelectCommand.Parameters.Add("@EndDate", OleDbType.DBDate).Value = DATETIM_END.Value)

这是我的记忆，但应该足够接近，可以让你继续。看这里了解更多： https://docs.microsoft.com/en-us/dotnet/api/system.data.oledb.oledbparameter?redirectedfrom=MSDN&view=netframework-4.7.2

查询某段时间的物品

query for items during a certain period

vb.net