MonthEnd.gif (3102 bytes)

From and To dates

How to access calendar control dates in Access / Visual Basic

Sql = "Select Name,City,State, " ' Always leave a space bar at the end
Sql = Sql + "sum(Qty) as Qty_Shipped,sum(Amt) as Amount "
Sql = Sql + "From Order_Detail "
Sql = Sql + "Left Outer Join Customer_Master on "
Sql = Sql + "Order_detail.cus_num=CUSTOMER_MASTER.cus_num "
Sql = Sql + "Where Invoice_date between #" ' Don't forget the pound sign here
Sql = Sql + Format(MonthEnd1.FromDateAsDate, "mm/dd/yy") + "# AND #"
Sql = Sql + Format(MonthEnd1.ToDateAsDate, "mm/dd/yy") + "# "
Sql = Sql + "Group by Name,City,State "
ExecSql

Resulting SQL Statement

Select Name,City,State, sum(Qty) as Qty_Shipped,sum(Amt) as Amount From Order_Detail Left Outer Join Customer_Master on Order_detail.cus_num=CUSTOMER_MASTER.cus_num Where Invoice_date between #11/01/00# AND #03/31/01# Group by Name,City,State

SQL Server


Sql = "Select Name,City,State, " ' Always leave a space bar at the end
Sql = Sql + "SUM(Qty) as QTY,sum(Amt) as AMOUNT "
Sql = Sql + "From ORDERS "
Sql = Sql + "Left Outer Join CUSTOMER_MASTER on "
Sql = Sql + "ORDERS.cus_num=CUSTOMER_MASTER.cus_num "
Sql = Sql + "Where Date_Inv between """ ' YOU NEED THREE DOUBLE QUOTES HERE
Sql = Sql + Format(MonthEnd1.FromDateAsDate, "mm/dd/yy") + """ AND """
Sql = Sql + Format(MonthEnd1.ToDateAsDate, "mm/dd/yy") + """ "
Sql = Sql + "Group by Name,City,State "

Resulting SQL Statement

Select Name,City,State, SUM(Qty) as QTY,sum(Amt) as AMOUNT From ORDERS Left Outer Join CUSTOMER_MASTER on ORDERS.cus_num=CUSTOMER_MASTER.cus_num Where Date_Inv between "11/01/00" AND "03/31/01" Group by Name,City,State