ด้านล่างรวบรวมคำสั่ง sql ทำงานใน msaccess ที่ สามารถสั่ง รันคำสั่ง ใน vb6.0 ได้

ด้านล่างรวบรวมคำสั่ง sql ทำงานใน msaccess  ที่ สามารถสั่ง รันคำสั่ง ใน vb6.0 ได้ 

-Me.cmbSqlSample.AddItem "Select * From Tblendpro Where project like  'ติวาน%'  and  cdate(endprom) >=  now  Order by id (หา id จากโครงการติวานนท์ และ ยังไม่หมดสัญญา)"

-Me.cmbSqlSample.AddItem "Select * from tblendpro where realcheck not like '%[/]%' order by id   (ใช้หา id ไม่ลงวันที่เซอร์วิสบริการ)"

-Me.cmbSqlSample.AddItem "Select * From Tblendpro Where ser_type = 'gpc'  and  val(area) >1000 and val(area) <>2140  Order by id"

-Me.cmbSqlSample.AddItem "Select * From Tblendpro Where  cdate(endprom) >=  now  Order by id (หา id ลูกค้าที่ยังไม่หมดสัญญา)"

-Me.cmbSqlSample.AddItem "Select * From Tblendpro Where ser_type = 'etr'  and  cdate(firstprom)  <=  cdate('1/1/2558')  Order by id"

-Me.cmbSqlSample.AddItem "Select * From Tblendpro Where backlog like  '%ค้างเก็บ%'  and  mid(prom_no,7,1) not like  'A' Order by id"

-Me.cmbSqlSample.AddItem "Select * From Tblendpro Where name like  'บรร%'  and  cdate(firstprom)   <=  cdate('1/1/2558')  Order by id"

-Me.cmbSqlSample.AddItem "SELECT count( *) as retCountID  From (select distinct name,sname from tblendpro  Where  cdate(endprom) >= now)  'หาจำนวนลูกค้าที่มีชื่อหรือสกุลต่างกัน และเป็นลุกค้าไม่หมดสัญญา"

-Me.cmbSqlSample.AddItem "Select * From Tblendpro Where cvdate(firstprom) >= cvdate(""1/3/2558"") and ser_type like ""pst%"""

-Me.cmbSqlSample.AddItem "select *,cvdate(mid(prom_no,1,2)  & ""/"" &  mid(prom_no,3,2) & ""/25"" &  mid(prom_no,5,2))  as newprom  from tblendpro where mid(prom_no,1,2)  & ""/"" &  mid(prom_no,3,2) & ""/25"" &  mid(prom_no,5,2)  = ""18/02/2558"""

-Me.cmbSqlSample.AddItem "select *   from tblendpro where cvdate(mid(prom_no,1,2)  & ""/"" &  mid(prom_no,3,2) & ""/25"" &  mid(prom_no,5,2))  >= cvdate(""1/3/2558"")"    ' ถ้าเข้าปีที่ 2600 พศ. ให้หารูปแบบ การได้มา เลขปี 2 หลักหน้า ให้ใช้เลขที่เซอร์วิสบริการทำนายเลข หลักพันหลักร้อย ดังนั้นวันที่ วันแรกที่เข้าทำต้องมี

-Me.cmbSqlSample.AddItem "select *, mid(realcheck,instr(1,realcheck,"","")-4,2)  as due1   from tblendpro where cvdate(mid(prom_no,1,2)  & ""/"" &  mid(prom_no,3,2) & ""/25"" &  mid(prom_no,5,2))  >= cvdate(""1/3/2558"")"

-Me.cmbSqlSample.AddItem "SELECT  * FROM tblendpro WHERE cvdate(mid(prom_no,1,2) & ""/"" & mid(prom_no,3,2) & ""/"" & mid(realcheck,instr(1,realcheck,"","")-4,2) & mid(prom_no,5,2))>=cvdate(""15/3/2558"");"

-Me.cmbSqlSample.AddItem "update tblendpro set flagtransfer=""yes"" where right(prom_no,1) like ""%T"""

-Me.cmbSqlSample.AddItem "update tblendpro set flagproject=""yes"" where project like ""บ้านกลางเมือง นวมินทร์42"""

Me.cmbSqlSample.AddItem "SELECT DISTINCT xzone, province From tblendpro WHERE province IN (""กรุงเทพฯ"",""กรุงเทพมหานคร"",""นครปฐม"",""นนทบุรี"",""ปทุมธานี"",""สมุทรปราการ"",""สมุทรสาคร"");"

Me.cmbSqlSample.AddItem "SELECT DISTINCT xzone, province From tblendpro WHERE province IN ('กรุงเทพฯ','กรุงเทพมหานคร','นครปฐม','นนทบุรี','ปทุมธานี','สมุทรปราการ','สมุทรสาคร') and xzone IN ('เมือง');"

-Me.cmbSqlSample.AddItem "update tblendpro set flagproject = ""no"""

-Me.cmbSqlSample.AddItem "update tblendpro set flagtransfer = ""no"""

-Me.cmbSqlSample.AddItem "UPDATE tblbid SET lblPicturePath =mid(lblpicturepath,1,8) & 'databasegrand\' & mid(lblpicturepath,9) WHERE lblPicturePath like '\\Share\findendpromise\%';"

-Me.cmbSqlSample.AddItem "SELECT Sum(price) as isum ,imonth " & _

FROM ( SELECT  price, cint( format(prom_no_dateformat,'m'))  as imonth  From tblendpro WHERE prom_no_dateformat like '%/2559' and right(prom_no,1) <> 'T'   and sales like 'นิ่มขวัญ' ) & _

GROUP BY imonth ORDER BY imonth;

-Me.cmbSqlSample.AddItem "SELECT sum(price) as sum1,sales , 'a'  as  value1  From tblendpro  as table1  WHERE prom_no_dateformat like '%/3/2559'  and right(prom_no,1)  <> 'T' GROUP BY sales " & _

UNION SELECT sum(price) as sum1 ,sales ,'b'  as  value1    From tblendpro  as table2  WHERE prom_no_dateformat like '%/ & "%/4/2559" & "'  and right(prom_no,1)  <> 'T' GROUP BY sales;"

-Me.cmbSqlSample.AddItem "SELECT sum(price) as isum, sales  From tblendpro WHERE prom_no_dateformat like '" & "%/4/2559" & "' and right(prom_no,1) <> 'T' GROUP BY sales;"

-Me.cmbSqlSample.AddItem "SELECT sum(price) as isum, sales  From tblendpro WHERE ( " & _

cvdate(prom_no_dateformat)  >= cvdate(" & "1/4/2559" & """)  and  cvdate(prom_no_dateformat)  <= cvdate(""" & "5/4/2559" & """) ) and right(prom_no,1) <> 'T' GROUP BY sales;"

'UPDATE tblproject_department  SET pj_notalarm = pj_notalarm & "(" & "14" & ")"

'WHERE right(pj_prom_no,1) like "T";

'UPDATE tblproject_department  SET pj_notalarm = replace(pj_notalarm,"(19)","")  WHERE  pj_id=4974;    ' replace เหมือนจะใช้ไม่มได้ใน vb sql แต่ accesss ได้ ใช้อันล่างแทน

'MID(pj_notalarm, 1, INSTR(pj_notalarm, '(19)') - 1) + '' + MID(pj_notalarm, INSTR(pj_notalarm, '(19)') + LEN('(19)'), LEN(pj_notalarm) - INSTR(pj_notalarm, '(19)') - LEN('(19)') + 1)

'code ล่าง คือ เพิ่ม (18) เข้าไปในฟิลด์เดิม  gAL_ID=18

'"UPDATE tblproject_department  SET pj_notalarm = pj_notalarm & '(" & CStr(gAL_ID) & ")'"

'code ล่างคือ การตัดคำ เช่น จาก (19)(18) ตัด เอา (18) ออก และเซฟไปยังฟิลด์เดิม จะเหลือ (19) โดยที่ d คือ 18

'Sql = "UPDATE tblproject_department  SET pj_notalarm =MID(pj_notalarm, 1, INSTR(pj_notalarm, '(" & d & ")') - 1) + '' + MID(pj_notalarm, INSTR(pj_notalarm, '(" & d & ")') + LEN('(" & d & ")'), LEN(pj_notalarm) - INSTR(pj_notalarm, '(" & d & ")') - LEN('(" & d & ")') + 1) where  INSTR(pj_notalarm, '(" & d & ")') > 0" sQls = "SELECT Sum(price) as isum ,iyear " & _ "FROM ( SELECT  price, cint( format(prom_no_dateformat,'yyyy'))  as iyear  From tblendpro WHERE  ( " & _ "cvdate(prom_no_dateformat)  >= cvdate(""" & iTime & """)  and  cvdate(prom_no_dateformat)  <= cvdate(""" & iTime2 & """) )  and right(prom_no,1) <> 'T'   and sales like '" & SaleName & "' )" & _ "GROUP BY iyear ORDER BY iyear;"   Mysql = "select count(pj_project) as icount  , pj_project  from tblproject_department  where " & iWherClause & " group by pj_project "