JoeGTEC's path: สิงหาคม 2016

วันพุธที่ 31 สิงหาคม พ.ศ. 2559

วันจันทร์ที่ 29 สิงหาคม พ.ศ. 2559

ด้านล่างรวบรวมคำสั่ง 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 "

วันพุธที่ 17 สิงหาคม พ.ศ. 2559

Solution : vb6.0 compile error : sub or function not defined

vb6.0 compile error : sub or function not defined

ถ้าหากเกิด error เช่นนี้

ถ้าแก้ไขตามลิงคนี้แล้วไม่หาย
https://msdn.microsoft.com/en-us/library/s8y42ktc.aspx

ให้ ปล่อยชื่อ sub ที่ error นั้น ทิ้งไว้ ไม่ต้องลบออก ปล่อยไว้ แล้วสร้าง sub ชื่ออื่นขึ้นมาแทน (ถ้ายังไม่หาย ให้ลองสร้าง function ด้วยโค็ดทำงานที่แตกต่างกันกันที่ error แล้วค่อยสร้าง sub ที่มีโค็ดเดียวกับที่ error ด้วยชื่อ sub ใหม่) อย่างน้อยก้ทำให้ เขียนโค็ดต่อไปได้ หรือพัฒนาโปรแกรมต่อไปได้ เป็นการแก้ไข แบบแก้ขัด ( work around )ไปก่อน