thaicosmic.com

หนัง

วันอาทิตย์ที่ 22 ธันวาคม พ.ศ. 2556

Haguichi บอกว่า Hamachi not installed ใน Ubuntu 10.04

from http://askubuntu.com/questions/164296/glibcxx-3-4-15-not-found

WHEN==>
sudo hamachi -c /etc/hamachi start

 ==>ERROR:
...   libstdc++.so.6: version 'GLIBCXX_3.4.15' not found ....

THEN==>
sudo apt-get install libstdc++6
sudo ldconfig

THEN(1)==>
strings /usr/lib/libstdc++.so.6 | grep GLIBC        ==>>
(If error go to THEN(2))

==>
SHOW:
...
GLIBCXX_3.4.12
GLIBCXX_3.4.13
GLIBCXX_3.4.14
...
GLIBC_2.2.5
GLIBC_2.3
GLIBC_2.4
GLIBC_2.3.4
...

THEN(2)==>
Update your stdc++ libraries from this PPA              ==>>
==>

sudo add-apt-repository ppa:ubuntu-toolchain-r/test
sudo apt-get update
sudo apt-get upgrade
sudo apt-get dist-upgrade

THEN==>
strings /usr/lib/libstdc++.so.6 | grep GLIBC        ==>>

==>SHOW:
...
GLIBCXX_3.4.12
GLIBCXX_3.4.13
GLIBCXX_3.4.14
GLIBCXX_3.4.15
...
GLIBC_2.2.5
GLIBC_2.3
GLIBC_2.4
GLIBC_2.3.4
...

It Ok!


GLIBCXX_3.4.15 is an object in libstdc++.so.6.0.16.
( libstdc++.so.6.0.15 ? ).
'libstdc++.so.6.0.16' is part of gcc-4.6.x .


วันพฤหัสบดีที่ 19 ธันวาคม พ.ศ. 2556

ปรับปรุงสิทธิ์ใน jhcis ด้วยไฟล์จาก ucsearch client


#ลบสิทธิ์เดิมในตาราง person ทิ้งทั้งหมดก่อน
UPDATE person SET
person.rightcode = NULL,
person.rightno = NULL,
person.hosmain = NULL,
person.hossub = NULL,
person.dateregis = NULL,
person.datestart = NULL,
person.dateexpire = NULL;

#เอาลักษณะสิทธิ์อ้างอิงที่รับจาก สป.สชเพิ่ิมเข้าในตารางสิทธิ์มาเพราะถ้ามีใครมีสิทธิิ์ที่ไม่มีในรายการอ้างอิง การปรับปรุงสิทธิ์จะล้มเหลวทั้งหมด
INSERT INTO `cright` (rightcode, rightname)
SELECT Field1, Field2 FROM `refright`
WHERE NOT EXISTS
(SELECT * FROM `cright` WHERE cright.rightcode=refright.Field1);

#เอาสิทธิ์ที่ได้รับจริงแต่ไม่มีในตารางลักษณะสิทธิ์เพิ่มเข้าในตารางสิทธิ์  เพราะถ้ามีใครมีสิทธิิ์ที่ไม่มีในรายการอ้างอิง การปรับปรุงสิทธิ์จะล้มเหลวทั้งหมด
INSERT INTO `cright` (rightcode, rightname)
SELECT givedright.SUBINSCL,givedright.SUBINSCL_NAMEFROM
from(SELECT DISTINCT `right-nhso`.SUBINSCL,
`right-nhso`.SUBINSCL_NAMEFROM
`right-nhso`) AS givedright
WHERE NOT EXISTS
(SELECT * FROM `cright` WHERE cright.rightcode=givedright.SUBINSCL);

#ปรับปรุงคำบรรยายสิทธิ์ให้ตรงกับคำบรรยายในตาราง refRight
UPDATE cright , refright
SET
cright.rightname = refright.Field2
WHERE
cright.rightcode = refright.Field1;

#สร้้างตาราง right-nhso-mod เพื่อสร้างสิทธิ์ย่อย (subinscl) ให้้กับสิทธิ์หลัก ( maininscl ) ที่ไม่มีสิทธิ์ย่อย
DROP TABLE IF EXISTS `right-nhso-mod`;
CREATE TABLE `right-nhso-mod` SELECT `right-nhso`.*  FROM `right-nhso`;

UPDATE `right-nhso-mod`, `right-nhso`
SET
`right-nhso-mod`.SUBINSCL = "S1"
WHERE
`right-nhso-mod`.MAININSCL = "SSS"
AND `right-nhso-mod`.SUBINSCL IS NULL;

UPDATE `right-nhso-mod`
SET
`right-nhso-mod`.SUBINSCL = "12"
WHERE
`right-nhso-mod`.MAININSCL = "VSS"
AND `right-nhso-mod`.SUBINSCL IS NULL;

UPDATE `right-nhso-mod`
SET
`right-nhso-mod`.SUBINSCL = "25"
WHERE
`right-nhso-mod`.MAININSCL = "SSI"
AND `right-nhso-mod`.SUBINSCL IS NULL;

UPDATE `right-nhso-mod`
SET
`right-nhso-mod`.SUBINSCL = "51"
WHERE
`right-nhso-mod`.MAININSCL = "NRD"
AND `right-nhso-mod`.SUBINSCL IS NULL;

UPDATE `right-nhso-mod`
SET
`right-nhso-mod`.SUBINSCL = "O1"
WHERE
`right-nhso-mod`.MAININSCL = 'OFC'
AND `right-nhso-mod`.SUBINSCL IS NULL;

#ปรับปรุงสิทธิ์บุคคลในตาราง person
UPDATE person , `right-nhso-mod`
SET
person.rightcode = `right-nhso-mod`.SUBINSCL,
person.rightno = `right-nhso-mod`.CARD_ID,
person.hosmain = `right-nhso-mod`.HMAIN,
person.hossub = `right-nhso-mod`.HSUB,
person.datestart = `right-nhso-mod`.STARTDATE,
person.dateexpire = `right-nhso-mod`.EXPDATE
WHERE
person.idcard = `right-nhso-mod`.`PERSON_ID`;

#สร้างตาราง  __tmpInscl จากค่า rightcode ที่มีในตาราง visit ไว้อ้างอิงว่าลบไม่ได้ (มันไม่ยอมให้ลบ)
DROP TABLE IF EXISTS `__tmpinscl`;
CREATE TABLE `__tmpinscl` SELECT DISTINCT visit.rightcode as rightcode  FROM visit;

#นำค่าจากตาราง refRight ซึ่งนำสิทธิ์จาก nhso มาใส่ในตาราง __tmpInscl (สิทธิ์มาตรฐานล่าสุด จะลบทำไม)
INSERT INTO `__tmpinscl` (rightcode)
SELECT DISTINCT Field1 FROM `refright`
WHERE NOT EXISTS
(SELECT * FROM `__tmpinscl` WHERE `__tmpinscl`.`rightcode` = refright.Field1);

#ลบสิทธิ์ที่เกินจำเป็น (ไม่มีในตาราง __tmpInscl) ออกจากตาราง cright
DELETE  cright FROM cright
  LEFT JOIN `__tmpinscl` ON `__tmpinscl`.rightcode = cright.rightcode
      WHERE `__tmpinscl`.rightcode IS NULL;

#ลบตาราง __tmpInscl ทิ้งเพราะไม่ใช้แล้ว
DROP TABLE IF EXISTS `__tmpinscl`;

วันอาทิตย์ที่ 1 ธันวาคม พ.ศ. 2556

            เบื่อหน้าเดิม หน้าไม่พัฒนา (ใครว่าใครไม่รู้ คำพูดคุ้นๆแฮะ)















วันอังคารที่ 29 ตุลาคม พ.ศ. 2556

Chrome / Chromium: Aw, Snap! every page on 10.04 Lucid Lynx

sudo gedit /etc/apt/sources.list

deb http://ppa.launchpad.net/chromium-daily/ppa/ubuntu lucid main
deb-src http://ppa.launchpad.net/chromium-daily/ppa/ubuntu lucid main

sudo apt-get update
sudo apt-get upgrade

หรือ

sudo add-apt-repository ppa:chromium-daily/ppa
sudo apt-get update
sudo apt-get install chromium-browser


วันเสาร์ที่ 19 ตุลาคม พ.ศ. 2556

เปลี่ยน connection ของ jhcis

Public Function Check_Host(sserver As String, sschema As String, suser As String, spassword As String, sport As String) As Boolean
On Error GoTo errdesc
Dim conn As ADODB.Connection
   
    Set conn = New ADODB.Connection
 '   conn = "Driver={mySQL ODBC 3.51 Driver};Server=" & sserver & ";" & _
           "Port=" & sport & ";Option=10;Database=" & sschema & ";Uid=" & suser & ";Pwd=" & spassword & ";"
    conn = "Driver={mySQL ODBC 3.51 Driver};Server=" & sserver & ";" & _
           "Port=" & sport & ";Database=" & sschema & ";Uid=" & suser & ";Pwd=" & spassword & ";"
    conn.Open
    Check_Host = True
    conn.Close
    Set conn = Nothing
errdesc:
    If Err.Number <> 0 Then
        If Err.Description Like "*Unknown database*" Then
            MsgBox "หา Database บ่พ้อ", vbOKOnly + vbInformation, "Error..."
      '     MsgBox "Unknown Database specified.", vbOKOnly + vbInformation, "Error..."
            Check_Host = False
        ElseIf Err.Description Like "*Unknown MySQL server host*" Then
            MsgBox "ติดต่อ Server  ไม่ได้", vbOKOnly + vbInformation, "Error..."
    '       MsgBox "Unknown Server Host specified.", vbOKOnly + vbInformation, "Error..."
            Check_Host = False
        ElseIf Err.Description Like "*Access denied for user*" Then
            MsgBox "username หรือ password ไม่ถูกต้อง", vbOKOnly + vbInformation, "Error..."
   '        MsgBox "Wrong username or password specified.", vbOKOnly + vbInformation, "Error..."
            Check_Host = False
        ElseIf Err.Description Like "*Can't connect to MySQL server*" Then
            MsgBox "ติดต่อ  Mysql ไม่ได้", vbOKOnly + vbInformation, "Error..."
  '          MsgBox "Incorrent port no. or host server unknown.", vbOKOnly + vbInformation, "Error..."
            Check_Host = False
        End If
    End If
End Function