ขอความช่วยเหลือหน่อยเรื่อง คำสั่ง update

[โรงพยาบาลอัมพวา]

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

[nayok]

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

[k_toedkiets]

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

[naj]

โค๊ด: SQL

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

[โรงพยาบาลอัมพวา]

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

[โรงพยาบาลอัมพวา]

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

[naj]

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

โค๊ด: Delphi

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

[โรงพยาบาลอัมพวา]

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


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

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

[naj]

ผมไม่แน่ใจว่าในคำสั่งที่ใช้สร้างรายงานนี้ได้ 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.