BMS-HOSxP Community

HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: โรงพยาบาลอัมพวา ที่ มีนาคม 25, 2013, 08:56:59 AM

หัวข้อ: ขอความช่วยเหลือหน่อยเรื่อง คำสั่ง update
เริ่มหัวข้อโดย: โรงพยาบาลอัมพวา ที่ มีนาคม 25, 2013, 08:56:59 AM

ผมจะ update  ฟิว bloodgrp   ที่มีค่า ว่างให้เป็น ไม่ทราบต้องเขียนคำสั่ง อย่างไร ครับ  ขอบ คุณครับ

หัวข้อ: Re: ขอความช่วยเหลือหน่อยเรื่อง คำสั่ง update
เริ่มหัวข้อโดย: nayok ที่ มีนาคม 25, 2013, 09:17:45 AM

update table set field="" where condition ประมาณนี้น่ะครับ

หัวข้อ: Re: ขอความช่วยเหลือหน่อยเรื่อง คำสั่ง update
เริ่มหัวข้อโดย: k_toedkiets ที่ มีนาคม 25, 2013, 09:22:13 AM

หรือไม่ก็ update patient set bloodgrp="" where bloodgrp="99"
ลองทดสอบดูก่อนครับ

หัวข้อ: Re: ขอความช่วยเหลือหน่อยเรื่อง คำสั่ง update
เริ่มหัวข้อโดย: naj ที่ มีนาคม 25, 2013, 09:29:35 AM

โค๊ด: SQL

1. UPDATE patient SET bloodgrp="99"
2. WHERE bloodgrp IS NULL OR bloodgrp LIKE""

หัวข้อ: Re: ขอความช่วยเหลือหน่อยเรื่อง คำสั่ง update
เริ่มหัวข้อโดย: โรงพยาบาลอัมพวา ที่ มีนาคม 25, 2013, 13:59:57 PM

แล้ว ถ้าเป็นใบสั่งยา  ช่อง แพ้ยา มันเป็น ค่าว่างแต่จะให้ขึ้นว่า ไม่แพ้ยา ละครับ

หัวข้อ: Re: ขอความช่วยเหลือหน่อยเรื่อง คำสั่ง update
เริ่มหัวข้อโดย: โรงพยาบาลอัมพวา ที่ มีนาคม 25, 2013, 14:48:49 PM

 ดัง รูปครับ แต่ ค่า drugallergy  เป็น ค่า ว่าง   จะให้ ออกในใบว่า  ไม่แพ้ยา ต้อง เขียนคำสั่งอย่างไรครับ

หัวข้อ: Re: ขอความช่วยเหลือหน่อยเรื่อง คำสั่ง update
เริ่มหัวข้อโดย: naj ที่ มีนาคม 26, 2013, 06:35:22 AM

ลองใช้คำสั่งนี้ ไปวางไว้ใน Variable ครับ
 

โค๊ด: Delphi

1.  IF   DBPipeline['drugallergy']='' THEN
2.  Value :='ไม่แพ้ยา'  Else
3. Value:= ReplaceStr(  DBPipeline['drugallergy'],'''','');
4.  

หัวข้อ: Re: ขอความช่วยเหลือหน่อยเรื่อง คำสั่ง update
เริ่มหัวข้อโดย: โรงพยาบาลอัมพวา ที่ มีนาคม 26, 2013, 08:42:52 AM

แบบ นี้ป่าว ครับ


  Value := GetSQLStringData('select drugallergy '
+' from patient pt'
+' where pt.hn="'+DBPipeline['hn']+'"')'

+' IF   DBPipeline['drugallergy']='' THEN
+' Value :='ไม่แพ้ยา'  Else
+' Value:= ReplaceStr(  DBPipeline['drugallergy'],'''','');

หัวข้อ: Re: ขอความช่วยเหลือหน่อยเรื่อง คำสั่ง update
เริ่มหัวข้อโดย: naj ที่ มีนาคม 26, 2013, 10:00:58 AM

ผมไม่แน่ใจว่าในคำสั่งที่ใช้สร้างรายงานนี้ได้ join กับตาราง patient ไว้ด้วยหรือเปล่า ถ้า join ไว้แล้ว และได้ระบุให้แสดง field drugallergy ใน sql ที่ใช้ ก็ใช้ code ที่ผม post ได้เลย แต่ ถ้าไม่ได้ join ไว้ให้ใช้คำสั่งนี้

โค๊ด: Delphi

1. if GetSQLStringData('select drugallergy '
2. +' from patient pt'
3. +' where pt.hn="'+DBPipeline['hn']+'"')=''  Then
4. Value:='ไม่แพ้ยา'  ELSE
5. Value:=ReplaceStr(GetSQLStringData('select drugallergy '
6. +' from patient pt'
7. +' where pt.hn="'+DBPipeline['hn']+'"'),'''','');
8.  
9.